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》程序加吗，谢谢