如何从嵌套列表中提取

Question

我有一个数据集，如下所示：

数据

Meds<-list(MedicationMention = new("XMLAttributes", .Data = c("125333", 
"1", "57", "64", "0", "125319 125309", "1", "1", "0.0", "1", 
"0", "false", "false", "patient", "0")), MedicationMention = new("XMLAttributes", 
    .Data = c("127516", "1", "79", "85", "0", "127491 127481 127501", 
    "1", "1", "0.0", "1", "0", "false", "false", "patient", "0"
    )), MedicationMention = new("XMLAttributes", .Data = c("128244", 
"1", "235", "240", "0", "128230 128220", "1", "1", "0.0", "1", 
"0", "false", "false", "patient", "0")))

目标

我想提取.Data中列出的所有第3个元素（即值57、79和253）。

尝试

我尝试使用嵌套的lapply，但无法获取这些值。

lapply(Meds, function(x) lapply(x$MedicationMention, function(x) print(x[3])))

和

lapply(Meds, function(x) as.numeric(x["MedicationMention"][3]))

但是当我传递特定列表时，我可以获得值：

as.numeric(Meds[5]$MedicationMention[3]