>我有一个大文本文件,其中包含来自统一犯罪报告的数据。理想情况下,我想做的是只导入数据,而省略文件中的其他无关内容。实际数据由空格分隔,当数据进入另一个"页面"时,标题信息会重复。我首先尝试使用以下代码导入数据(并且仅导入数据),并手动添加自己的标头:
data <- read.fwf("2010SHRall.txt",
c(-4,3,8,2,4,5,6,5,4,3,3,4,4,3,3,4,6,5,3,6,26,3),
skip=5,
col.names=c("AGE","AGENCY","G","MO","HOM","INC","SIT","VA","VS","VR","VE","OA","OS","OR","OE","WEAP","REL","CIR","SUB","AGENCYNAME","STATE"),
strip.white=FALSE)
这有效,然后在第 51 行退出。我绝对是一个新手R程序员,我试图谷歌答案以及搜索Stack Overflow,但我不知道从这里开始。这是我尝试导入的文本文件的链接。同样,我正在尝试导入数据并删除任何具有标题信息的行或完整数据集不需要的其他部分。
任何人可以提供的任何帮助将不胜感激。
这可能应该有效:
text <- readLines('/tmp/2010SHRall.txt')
group.start <- '^ AGENCY'
group.end <- '(^B)|(^0END OF GROUP)'
data <- character()
inside.group <- FALSE
for (line in text) {
if (inside.group) {
if (grepl(group.end, line))
inside.group <- FALSE
else
data <- append(data, line)
} else if (grepl(group.start, line)) {
inside.group <- TRUE
}
}
read.fwf(textConnection(data),
widths=c(-4,3,8,2,4,5,6,5,4,3,3,4,4,3,3,4,6,5,3,6,26,3),
header=FALSE,
col.names=c("AGE","AGENCY","G","MO","HOM","INC","SIT","VA","VS","VR","VE","OA","OS","OR","OE","WEAP","REL","CIR","SUB","AGENCYNAME","STATE"),
strip.white=TRUE)
它将所有行保留在与group.start
和正则表达式匹配的行之间,并group.end
正则表达式,并丢弃其余行。