データフレームのリストからデータフレーム名のベクトルを作成

Question

データフレームのリストがあり、特定の基準を満たすデータフレーム名を含む文字ベクトルを作成します。この場合、少なくとも1つの観測を含むデータフレームの名前が必要です。後で別の関数で使用するために、これらの名前がベクトルに必要です。

データフレームのリストは、分割機能によって自動的に作成されます。

df1 <- data.frame(replicate(2,sample(0:1,5,rep=TRUE))) 
df2 <- data.frame(replicate(2,sample(0:1,5,rep=TRUE))) 
df3 <- data.frame(replicate(0,sample(0:1,5,rep=TRUE))) #empty 

mylist <- list(df1, df2,df3) #create list of data frames 

mylist2 <- mylist[sapply(mylist, function(x) dim(x)[1]) > 0] #subset list so that df's with no observations are dropped 

は今、私は必要なものmylist2におけるデータフレームの名前を持つ文字ベクトルである：再現性のために、ここではデータフレームのリストです。 （この例では「df1」と「df2」）

ありがとう！

Answer 1

あなたは、これはやや自動化したい場合は、例えば、あなたがお使いの環境でdata.framesの多数を持っている、あなたはでパターンマッチングでそれらを選択することをお勧めします1行：

mylist = do.call("list", mget(grep("df", ls(), value=T))) 
mylist2 <- mylist[sapply(mylist, function(x) dim(x)[1]) > 0] 

これは、リストの要素の属性として自分の名前を維持しながら、自分の名前に「DF」を持っているすべてのdata.framesとの最初のリストを作成します。

それから私は、1要素data.framesのためにあなたのフィルタを適用し、あなただけの名前を取得：

names(mylist2) 
#### [1] "df1" "df2" 

Answer 2

名前付きリストが必要です。ここではあなたがそれを行うことができる方法である：

library(dplyr) 
library(purrr) 

mylist <- list(df1 = df1, df2 = df2, df3 = df3) 

test <- mylist %>% 
    map_int(nrow) 

test[test > 0] %>% names() 
#[1] "df1" "df2"