申请后无法访问物品

Question

我正在使用 lapply 尝试拆分数据框中的字符串。这些字符串看起来都类似于“02D_48M_RHD”。我试图获取“D”之前和“M”之前的数字。

我对 lapply 的使用似乎有效：

a <- lapply(res$description, strsplit, split="[DM]_", fixed=FALSE)

> a[[1]]
[[1]]
[1] "02"  "48"  "RHD"

但是，我一生都无法弄清楚如何访问 a[1]。 文档建议a[[1 ]][1] 应该给我第一个元素，但这就是发生的情况：

> a[[1]][1]
[[1]]
[1] "02"  "48"  "RHD"

我不明白为什么这不起作用。 R 告诉我这是一个向量，但它也说它的长度为一。

> is.vector(a[[1]])
[1] TRUE
> length(a[[1]])
[1] 1

我不确定我误会了什么。 lapply 是否以某种不同于我预期的方式提供输出？我期望一个长度为三的向量列表，这就是它的样子。或者，这就是我得到的，但我试图错误地访问它们？

最终，我想在我的数据框中添加三列，每一条信息对应一列，因此任何可以帮助我朝这个方向前进的东西都将不胜感激。

Answer 1

 x=c('02D_48M_RHD', '34D_98M_AHR')


> lapply(x,strsplit,split='[DM]_',fixed=F)
[[1]]
[[1]][[1]]
[1] "02"  "48"  "RHD"


[[2]]
[[2]][[1]]
[1] "34"  "98"  "AHR"

这使得嵌套列表变得令人讨厌。我想你想要的是：

> lapply(strsplit(x,split='[DM]_',fixed=F),'[',1)
[[1]]
[1] "02"

[[2]]
[1] "34"

Answer 2

strsplit 已经矢量化，因此无需将其包装在 lapply 中。您很困惑，因为 a 是向量列表的列表，而不是向量列表。即a[[1]]本身是一个包含向量的单元素列表。

此外，列表是“向量”。这就是 is.vector 返回 TRUE 的原因。 is.character 应返回 FALSE。

你想要这样的东西：

splits    <- strsplit(res$description, "[DM]_", fixed=FALSE)
res$one   <- sapply(splits, "[", 1)
res$two   <- sapply(splits, "[", 2)
res$three <- sapply(splits, "[", 3)

Answer 3

我认为您对 lapply 的调用没有必要，因为 strsplit 已经适用于向量。像这样的事情可能会有所帮助：

a <- "02D_48M_RHD"
#Create a vector of values to splot
aa <- c(a,a,a,a,a,a,a)
#rbind them together and make a data.frame
> data.frame(do.call("rbind", strsplit(aa, split="[DM]_", fixed=FALSE)))

  X1 X2  X3
1 02 48 RHD
2 02 48 RHD
3 02 48 RHD
4 02 48 RHD
5 02 48 RHD
6 02 48 RHD
7 02 48 RHD