R - 替換矢量列表中的元素

Question

我有矢量列表，並且想要將矢量指定給它的一個位置（覆蓋）。以下是示例代碼：

for (nodeId in names(chains)) { 
    chains[nodeId] <- unlist(chains[nodeId])[-1] 
} 

分配後我收到許多警告，告訴我列表長度不相等。我明白，發生的任務不是我想要的。

有什麼辦法可以用unlist(chains[nodeId])[-1]代替chains[nodeId]中的元素嗎？

當我做str(chains)，str(chains[nodeId])和str(unlist(chains[nodeId])[-1])我獲得以下的輸出：

$str(chains) 
List of 15 
$ 4 : chr [1:3] "root" "alcohol< 9.85" "totalSulfurDioxide>=60.5" 
$ 10 : chr [1:4] "root" "alcohol< 9.85" "totalSulfurDioxide< 60.5" "sulphates< 0.575" 
$ 22 : chr [1:5] "root" "alcohol< 9.85" "totalSulfurDioxide< 60.5" "sulphates>=0.575" ... 
(...) lots more 

$str(chains[nodeId]) 
List of 1 
$ 4: chr [1:3] "root" "alcohol< 9.85" "totalSulfurDioxide>=60.5" 

$str(unlist(chains[nodeId])[-1]) 
Named chr [1:2] "alcohol< 9.85" "totalSulfurDioxide>=60.5" 
- attr(*, "names")= chr [1:2] "42" "43" 

更新：str替換dput;加入dput(chains[nodeId])

$ dput(chains) 
structure(list(`4` = "alcohol< 9.85", `10` = "alcohol< 9.85", 
    `22` = "alcohol< 9.85", `92` = "alcohol< 9.85", `93` = "alcohol< 9.85", 
    `47` = "alcohol< 9.85", `24` = "alcohol>=9.85", `50` = "alcohol>=9.85", 
    `102` = "alcohol>=9.85", `103` = "alcohol>=9.85", `26` = "alcohol>=9.85", 
    `27` = "alcohol>=9.85", `28` = "alcohol>=9.85", `29` = "alcohol>=9.85", 
    `15` = c("root", "alcohol>=9.85", "alcohol>=11.55", "sulphates>=0.685" 
    )), .Names = c("4", "10", "22", "92", "93", "47", "24", "50", 
"102", "103", "26", "27", "28", "29", "15")) 

$ dput(chains[nodeId]) 
structure(list(`15` = c("root", "alcohol>=9.85", "alcohol>=11.55", 
"sulphates>=0.685")), .Names = "15") 

$ dput(unlist(chains[nodeId])[-1)) 
structure(c("alcohol>=9.85", "alcohol>=11.55", "sulphates>=0.685" 
), .Names = c("152", "153", "154")) 

$ dput(chains[nodeId]) 
structure(list(`15` = "alcohol>=9.85"), .Names = "15") 

我想實現的是從向量中刪除第一個元素鎖鏈[NODEID]

Answer 1

如果chains是列表，nodeId是一個字符串，然後chains[nodeId]將名單長一個。您需要chains[[nodeId]]，其中包含該列表的內容。

Answer 2

這是你想要的嗎？

# make a list of vectors since no data provided 
origlist<-lapply(1:3,function(x)c("a",paste0("b",x),"c")) 
names(origlist)<-c("_1","_2","_3") 

$`_1` 
[1] "a" "b1" "c" 

$`_2` 
[1] "a" "b2" "c" 

$`_3` 
[1] "a" "b3" "c" 

# remove first item from each as per your example 
lapply(origlist, tail, n = -1) 

$`_1` 
[1] "b1" "c" 

$`_2` 
[1] "b2" "c" 

$`_3` 
[1] "b3" "c"