我有一个如下所示的列表对象:
list_data <- list("Red", "Green", c("Purple", "Yellow"), "Orange", c("Black","White")) 个
我想删除每个字符向量中的第二个观察结果，以获得如下所示的输出 `
print(list_data)`
"Red, Green, Purple, Orange, Black"
所以我试着放弃第二个观察，那就是黄色和白色.我该怎么做呢？请注意，这是一个很大的 list ，所以我不能手动完成.
只需使用索引提取第一个
lapply(list_data, `[`, 1) #if we need a list output
# or if we need a vector, use sapply
sapply(list_data, `[`, 1)
[1] "Red" "Green" "Purple" "Orange" "Black"
# if it should be a single string
toString(sapply(list_data, `[`, 1))
[1] "Red, Green, Purple, Orange, Black"