title: "R的学习笔记05"
author: "ks_c"
date: "2021/2/2"
output: html_document
<font face="宋体">以下为R数据分析指南与速查手册 第三章的内容</font>
导出
导出变量
使用save(..., list = character(),file = stop("'file' must be specified"))可以保存单个变量或一些变量。文件名为.rda或.Rdata。
- ...：要存储的变量
- list：变量标签/名称
- file：文件名及路径
如果想保存整个环境，用save.image函数。常用用法为save.image(file = ".RData")，用file指定文件名即可。
导出txt或csv
导出为txt格式：
write.table(x, file = "",
append = FALSE,
quote = TRUE,
sep = " ",
eol = "\n",
na = "NA",
dec = ".",
row.names = TRUE,
col.names = TRUE,
qmethod = c("escape", "double"),
fileEncoding = "")
导出文件中：
- 字符串型数据将用引号括起来，如果不想有引号，可设置quote = FALSE。
(注意导出的csv文件中也是如此，只是如果用Excel打开的话，其中的引号不显示出来，如果用文本查看器如Notepad++打开，就可以看到引号。) - 如果要保存的数据不是数据框格式，会被转化为数据框格式，然后再保存为csv或txt文件。
- 导出文件中默认包含行名（行序号）和列名，如果不需要，在write.table中可以设定row.names = FALSE及col.names = FALSE，在write.csv中设定row.names=FALSE（在write.csv中，可以通过col.names给csv文件修改列名，但是不能取消其列名）。
- 更多参数设置，可查看write.table的帮助文档。在write.csv中，会将行名与列名交叉格以空字符串输出，但write.table会将其空缺。这会导致他们重新导入时，对行名的处理不同。
# 数据生成
name <- c("Alice","Bob","Christien","Einstein")
age <- c(10,20,14,25)
gender <- c("F","M","F","M")
weight <- c(25,50,30,54)
nationality <- c("USA","UK","China","German")
height <- c(1.2,1.65,1.43,1.75)
example_df <- data.frame(name,age,gender,weight,nationality,height)
# 保存
write.csv(example_df, file = "example_df.csv")
write.table(example_df, file = "example_df.txt")
write.table(example_df, file = "example_df2.txt",quote = FALSE)#字符串没有引号
导出图片
直接保存而不展示图片：
- 新建保存格式（称之为一个图形设备），如png、jpg、pdf（pdf是矢量图），
- 运行绘图相关的代码，
- 关闭图形设备。
png("example_plot.png") # 新建一个图片保存格式，png可以是jpg、pdf等
plot(1:10) # 绘图
dev.off() # 关闭图形设备
图片的长、宽、分辨率等参数可参考png等的帮助文档。
如果已经画好了图，可以使用如下代码输出到文件中。
dev.copy(png, 'example_plot2.png')
dev.off()
如果最开始打开的是Windows窗口，则可用savePlot()函数，其用法为：
savePlot(filename="Rplot",
type=c("wmf", "png", "jpeg", "jpg", "bmp", "ps"),
device=dev.cur())
#例子：
windows(width = 9, height = 9, rescale = "fit") # 打开一个Windows窗口
plot(1:10,type = "l")
savePlot(filename="Myplot",type="pdf")
# savePlot(filename="Myplot",type="png")
## 支持下列格式："wmf", "emf", "png", "jpg", "jpeg", "bmp", "tif", "tiff", "ps", "eps", "pdf"
dev.off()
导出文本
readr::write_file(txt, file_name.txt", append = FALSE)
writeLines(txt, con = fileConn,sep = "")
close(fileConn)
sink("cat.txt")
操作
sink()
cat(... = ,file = ,sep = ,fill = ,labels = ,append = )
fileConn<-file("writeChar.txt")
writeChar(txt, con = fileConn, eos = NULL, useBytes = FALSE)
close(fileConn)
writeChar
R与python通用的数据
feather
#R中
library(feather)
path <- "my_data.feather"
write_feather(df, path)
df <- read_feather(path)
#py中
import feather
path = 'my_data.feather'
feather.write_dataframe(df, path)
df = feather.read_dataframe(path)
数据载入
数据
read.table默认的分隔符为空格，read.csv2默认的分隔符为分号;
可以改变默认的分隔符。
read.csv(file,
header = TRUE,
sep = ",",
quote = """,
dec = ".",
fill = TRUE,
comment.char = "", ...)
按行或单元导入（表格数据）
按行导入用readLines，按单元导入用scan
文本
整体读取可用readr::read_file，
按行读取可用readLines，如
txt<- read_file("write_file.txt")
