Производительность Проблемы при работе между двумя столбцами dataframe

Question

Пусть даны dataframe с двумя колоннами:

• длиной (длина элементов)
• findLengthOf (Это строка значений) Индекс элементов для который необходим для длины

Таким образом, необходимо найти всю длину всех индексов во втором столбце и поместить результат в третий столбец. Пожалуйста, смотрите выше примера, где мы ищем длину 1637 и получить 1835:

> df$length[1637] 
[1] 1835 


head(df) 
    length findLengthOf 
1 6434 1637,386.... 
2 4272 4322,414.... 
3 7338 2052,639.... 
4 4932 190,1567.... 
5 2397 8963,844.... 
6 4405 103,4346.... 

    head(df) 
    length findLengthOf   result 
1 6434 1637,386.... 1835, 2404, 4689 
2 4272 4322,414.... 1184, 2721, 7215 
3 7338 2052,639.... 5253, 2998, 6153 
4 4932 190,1567.... 2931, 6496, 7784 
5 2397 8963,844.... 3796, 3488, 6555 
6 4405 103,4346.... 1662, 5481, 1244 

set.seed(123) 
df <- data.frame(length = sample(1e4), 
       findLengthOf = I(replicate(1e4, paste(sample(1:10000,1),sample(1:10000,1),sample(1:10000,1),sep=","), simplify = FALSE))) 

df$result=lapply(lapply(df$findLengthOf,strsplit,split=","), function(x){df[x[[1]],"length"]}) 

код работает, но требуется, чтобы долго. Как я могу улучшить скорость? Также почему

head(lapply(df$findLengthOf,strsplit,split=",")) 

всегда возвращает этот странный список списков с:

[[1]] 
[[1]][[1]] 
[1] "7744" "1346" "4626" 

Есть ли способ, чтобы избежать этих двойных скобок? Любой ответ приветствуется!

Предложение от Давида (набор фиксированных = Т):

> ptm <- proc.time() 
> df$result=lapply(lapply(df$findLengthOf,strsplit,split=",",fixed=T), function(x){df[x[[1]],"length"]}) 
> proc.time() - ptm 
    user system elapsed 
17.220 0.000 17.147 
> ptm <- proc.time() 
> df$result=lapply(lapply(df$findLengthOf,strsplit,split=","), function(x){df[x[[1]],"length"]}) 
> proc.time() - ptm 
    user system elapsed 
17.260 0.000 17.142 

Answer 1

Вот полностью vectotorized решение, но, возможно, память дорого. Я не проверял на производительность

library(data.table) 
res <- matrix(df$length[unlist(setDT(df)[, 
       tstrsplit(findLengthOf, ",", fixed = TRUE, type.convert = TRUE)])], 
       nrow = nrow(df)) 
df$result <- as.list(as.data.frame(t(res)))