我正在使用下面的 R 代码阅读附加的 .txt 文件。我有 2200 个这样的具有不同站 ID 的 txt 文件。我只需要输出可用的峰值流量数据的年份。例如，
Year Peak
1929 4050
1940 7000
1958 4050
...
有人可以帮助我修改此代码以实现此目的。
我的 R 代码如下所示。
rm(list=ls(all=TRUE))
iPath <- 'C:/Desktop/flow_raw/Region-03/'
mydata <- read.table("02053200-PeakFlow-uptoWY2015.txt", sep="\t", header=TRUE)
out <- mydata[c(3,5)]
【问题讨论】：
我看不到任何附件。
完成任务有多种选择。
library(plyr) #you only need these packages if you follow my first Option
library(dplyr)
files <- dir("C:/Desktop/flow_raw/Region-03",
full.names = TRUE)
# OPT. 1: if you need a Data Frame
df <- lapply(files, function(x)
read.table(x, sep = '\t', header = FALSE)[c(3,5)]) %>%
plyr::ldply() #the '.id' argument might be useful
# OPT. 2: if you need a list
listTxt <- lapply(files, function(x)
read.table(x, sep = '\t', header = FALSE)[c(3,5)])
注意：如果您需要快速阅读功能，请查看
data.table::fread
【讨论】：
sessionInfo()的输出粘贴到此处，我会尽力帮助您。
sessionInfo()贴在这里:)
如果我正确理解您的问题，您希望一次导入 2200 个文本文件。由于某种原因，我看不到附件，但您应该能够使用 tm 包中的 Corpus 函数读取数据。
在您的情况下：（路径应指向所有文本文件所在的文件夹）
TextCorpus <- Corpus(DirSource("C:/Desktop/flow_raw/Region-03"))
TextCorpus$content
您应该能够对这些文档进行子集化。我通常会列出文档的内容，这样您就会有一个包含原始文本的 2200 个元素的列表。
【讨论】：