我想在R中导入多个TSV文件(是: T SV)。
使用以下选项读取带有空间列选择的单个文件:
data00<-read.csv(file = '/Volumes/2018/06_abteilungen/bi/analytics/tools/adobe/adobe_analytics/adobe_analytics_api_rohdaten/api_via_data_feed_auf_ftp/beispiel_datenexporte_data_feed/01sssamsung4de_20180501-000000.tsv',
sep ="\t",
fill = TRUE,
quote='',
header = FALSE
)[ ,c(287, 288, 289, 290, 291, 292, 293, 304, 370, 661, 662, 812, 813, 994, 995, 1002)]
现在我想导入多个文件并将它们合并到一个数据框中:
setwd('/Volumes/2018/06_abteilungen/bi/analytics/tools/adobe/adobe_analytics/adobe_analytics_api_rohdaten/api_via_data_feed_auf_ftp/beispiel_datenexporte_data_feed/import_r')
temp <- list.files(pattern="*.tsv")
test_data <- lapply(temp, read.csv,
sep ="\t",
fill = TRUE,
quote='',
header = FALSE
)[ ,c(287, 288, 289, 290, 291, 292, 293, 304, 370, 661, 662, 812, 813, 994, 995, 1002)]
最后一个查询给了我一个例外并且不起作用: lahly中的Fehler(temp,read.csv,sep =&#34; \ t&#34;,fill = TRUE,quote =&#34;&#34;,header = FALSE)[,: falsche Anzahl von Dimensionen(翻译:维度错误)
当我拿走所有列时,它可以工作:
test_data <- lapply(temp, read.csv,
sep ="\t",
fill = TRUE,
quote='',
header = FALSE
)
答案 0 :(得分:3)
您正在索引数据框列表,而不是数据框本身。尝试:
test_data <- lapply(temp,function(x){
read.csv(file = x,
sep ="\t",
fill = TRUE,
quote='',
header = FALSE
)[ ,c(287, 288, 289, 290, 291, 292, 293, 304, 370, 661, 662, 812, 813,994, 995, 1002)]
}
)
答案 1 :(得分:0)
很难说没有样本数据,但我相信你必须合并&#39;首先导入的列表:
dplyr解决方案:
library(dplyr)
test_data <- lapply(temp, read.csv,
sep ="\t",
fill = TRUE,
quote='',
header = FALSE
) %>%
bind_rows() %>%
select( c(287, 288, 289, 290, 291, 292, 293, 304, 370, 661, 662, 812, 813, 994, 995, 1002) )