数据帧名称r的子集列表

Question

给定一个包含多个A数据的主列表dataframes，其中A的名称存储在Anames中。我需要Anames中的一个子集，我使用Cnames函数存储在setdiff中。

鉴于A，如何将Cnames用于子集A，将其存储在列表B中，然后将B中的每个数据帧写入文件为如下所示？ Anames和Cnames是列向量。

sapply(names(B),function (x)  write.csv(B[[x]],file = paste0(names(B[x]), ".csv"),row.names = FALSE)) 

Answer 1

我们需要使用intersect来查找“Anames”之间的共同元素。和＆＃39; Cnames＆＃39;

B <- A[intersect(Anames, Cnames)
lapply(names(B), function(x) write.csv(B[[x]], 
        paste0(names(B[x]), ".csv"),row.names = FALSE, quote=FALSE))