DataFrameの各行にrlistを適用する方法

Question

お世話になっております。
タイトルの件、うまくいかずご教示ください。

以下のようにしてデータフレームを作りました。

devs <- 
  list(
    p1=list(name="Ken",age=24,
      interest=c("reading","music","movies"),
      lang=list(r=2,csharp=4)),
    p2=list(name="James",age=25,
      interest=c("sports","music"),
      lang=list(r=3,java=2,cpp=5)),
    p3=list(name="Penny",age=24,
      interest=c("movies","reading"),
      lang=list(r=1,cpp=4,python=2)))

sex<-c("M","F","M")
age<-c(23,42,38)
z<-data.frame(SEX=sex,AGE=age)
z$DEVS <- devs

データフレームのDEVS列にList型の値を格納されます。

ここから、例えば、各行のDEVS列の「interest」のlistだけを取り出したいのですが、以下lapplyを適用してもうまくいきません。

library(rlist)
lapply(z$DEVS, list.select(interest))
# Error in is.empty(.data) : object 'interest' not found

どのようにすればよいでしょうか。
よろしくお願いいたします。

Answer 1

rlistを使っていないので、ご希望の形式になっているか分かりませんが、
リストからlevel3の特定のデータを取り出すのであればこんな感じでしょうか。

lapply(names(z$DEVS), function(v){z$DEVS[[v]][["interest"]]})

R言語の値の取り出し方って色々あるので、
function()を使わない方法ももしかしたらあるかも知れないですが。