我有一个很大的 CSV 文件,我只想导入选择某些行(如果有)。首先,我创建将导入的行的索引,然后我希望将这些行的名称传递给 sqldf 并返回指定行的完整记录。
#create the random rows ids that will be sampled
library(dplyr)
#range for the values
index<-c(1:20)
index<-as.data.frame(as.matrix(index))
#number of values to be returned
number<-5
ids<-sample_n(index,number)
#sample the data
library(sqldf)
#filepath
f<-file("/Users/.../filename.csv")
#select data
df<-sqldf("select * from f")
如何通过指定行号从 CSV 文件导入选定的行?
试试这个例子:
library(sqldf)
#dummy csv
write.csv(data.frame(myid=1:10,var=runif(10)),"temp.csv")
#define ids
ids <- c(1,3,4)
ids <- paste(ids,collapse = ",")
f <- file("temp.csv")
#query with subset
fn$sqldf("select *
from f
where myid in ($ids)",
file.format = list(header = TRUE, sep = ","))
#output
# X myid var
# 1 "1" 1 0.2310945
# 2 "3" 3 0.8825055
# 3 "4" 4 0.6655517
close(f)
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)