请问原数据10列，用R提取其中的5列，如何实现

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

下面是网上的一个帖子（https://blog.csdn.net/qq_36958801/article/details/88999912）上面的代码
temfiles <- list.files(path = rawpath, full.names = T,
                       pattern = "^SURF_CLI_CHN_MUL_DAY-TEM-12001-19|20.*.TXT")
temdata <- rbindlist(lapply(temfiles, fread))[, 1:5]  这里原先是1:10的。我想只提取不连续的5列，该怎么实现？
setnames(temdata, c("sid",  "year", "month", "day", "tmax"))


谢谢大家了

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言

temdata[,c("第1列名字","第2列名字"....)]

wangfs111222 发表于 2019-9-9 19:39
temdata[,c("第1列名字","第2列名字"....)]

谢谢您。因为列没有名字，我就这样做了，是可以的。
temdata <- rbindlist(lapply(temfiles, fread))[, c(1,  5, 6, 7, 10)]
setnames(temdata, c("sid", "year", "month", "day", "tmin"))
还有个问题请教您。保存成txt格式，列与列之间是以空格隔开。这个要对下面语句怎么修改？data <- temdata

fwrite(setorder(data, sid, year, month, day), file = "cmd_raw.txt", quote = T)
# 对原始数据进行标准化处理
data <- fread("cmd_raw.txt")

data[tmin == 32766, tmin := NA]
data[, c("tmin") := list( tmin * 0.1)]

# 排序后存储为csv文件
fwrite(setorder(data, sid, year, month, day), file = "cmd_norm.txt", quote = T)

您好，能否指导下怎么运行《ChinaMeteorologicalDataHandler.R》程序加吗，谢谢