R写入和读取csv

写入csv

输入csv使用内置函数write.csv()来实现

给一个数据

> data <- data.frame(姓名 = c("张三", "李四", "王五"), 体重 = c(50, 70, 80), 视力 = c(5.0, 4.8, 5.2))
> data
  姓名 体重 视力
1 张三   50  5.0
2 李四   70  4.8
3 王五   80  5.2

然后使用write.csv()函数来写入csv文件

> write.csv(data, file = "data.csv")

这就已经写入到工作目录去了

很多时候,我们是不需要包含列名的,需要把列名去掉,就需要使用row.names = FALSE或者row.names = F

> write.csv(data, file = "data.csv", row.names = FALSE)

有时候数据里面存在NA,要去掉NA的,就再加一个na = ""

> write.csv(data, file = "data.csv", row.names = FALSE, na = "")

如果要省略列名的话,就稍微复杂一点,需要使用write.table()col.names = FALSE, sep = ","

> write.table(data, file = "data.csv", row.names = FALSE, na = "", col.names = FALSE, sep = ",")
读取csv

读取csv使用函数read.csv()来读取

> newdata <- read.csv(file = "data.csv", header = TRUE)
> newdata
  姓名 体重 视力
1 张三   50  5.0
2 李四   70  4.8
3 王五   80  5.2

读取数据成功

要保持数据完整和安全,就再添加一些参数

> newdata <- read.csv(file = "data.csv", header = TRUE, stringsAsFactors = F, sep = ",")
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

之芫

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值