リストのリストを扱う最も効率的な方法は？

Question

カラム（df$list）の成分が異なる長さのリストであるデータフレーム（df）を持つと、このカラムに関数を適用して結果を新しいカラムに保存する最良の方法は何ですか？

以下は私が試したことですが、データフレーム（10k行、それほど大きくない）では非常に遅いです。私はこの作業を行うためのより良い代替方法を探しています。

df$new <- apply(df, 1, FUN = function(x) myFunc(x$list)) 

例：

# constructing df & DF 
a <- c(rep("A", 3), rep("B", 3), rep("A",2)) 
b <- c(1,1,2,4,1,1,2,2) 
df <- data.frame(a,b) 

DF <- data.frame(c = c(1:8), d = c(8:1)) 
row.names(DF) <- c("A", "B", "C", "D", "E", "F", "G", "H") 

# list of lists 
df_red <- aggregate(list(track = 1:NROW(df)), df[,1:2], '[') 
df_red$list_1 <- apply(df_red, 1, FUN = function(x) row.names(DF[(x$track),])) 

# Function 
searchInDF <- function(list){DF[list,]$d} 

# apply function on a list of list 
df_red$list_2 <- apply(df_red, 1, FUN = function(x) searchInDF(x$list_1)) 

Answer 1

ここでは、データフレームDFを作成し、カラムbの各構成要素の長さを見つけます。これは、サプリーが単純なベクトルを返すことを前提としています。

DF <- data.frame(a = 1:2) 
DF$b <- list(list("a", "b"), list("c", "d", "e")) 

DF$c <- sapply(DF$b, length) 

たり、新しい列がリスト自体である場合：

DF$c <- lapply(DF$b, rev) 

また、これらの代替案を試してみてください。

replace(DF, "c", sapply(DF$b, length)) 
replace(DF, "c", list(lapply(DF$b, rev))) 

transform(DF, c = sapply(b, length)) 

（もちろん、lengthの特定のケースでは、我々が置き換えられている可能性がsapply(...)はlengths(DF$b)となります）