如何在R中的列表内访问可变长度列表

Question

当我在数据帧的列上调用strsplit（）时，根据strsplit（）的结果，有时会由于拆分而​​得到一个或两个“子列表”。 例如，

v <- c("50", "1 h 30 ", "1 h", NA)
split <- strsplit(v, "h")
[[1]]
[1] "50"

[[2]]
[1] "1"   " 30"

[[3]]
[1] "1 "

[[4]]
[1] NA

我知道我可以使用'[]'和'[[]]'访问split的各个列表，这些告诉我这些子列表的内容，所以我认为我理解这一点。 并且我可以通过split [[2]] [2]访问[[2]]中的“ 30”。

不幸的是，我不知道如何以编程方式在我所拥有的整个专栏中进行访问。 我正在尝试将列转换为数字数据。 但是那“ 1 h 30”的情况给我带来了很多麻烦。

func1 <- function(x){
  split.l <- strsplit(x, "h")
  len <- lapply(split.l, length)
  total <- ifelse(len == 2, as.numeric(split.l[2]) + as.numeric(split.l[1]) * 60, as.numeric(split.l[2])) 
  return(total)
}

v <- ifelse(grepl("h", v), func1(v), as.numeric(v))

我知道len返回分割长度的向量。 但是，当涉及到实际访问该子列表的第二个元素时，我根本不知道如何正确地进行操作。 这将产生错误，因为split.l [1]和split.l [2]每次只会返回整个原始数据帧列的前两个元素。 [[1]]和[[2]]也不起作用。 我需要类似[[i]] [1]和[[i]] [2]的内容。 但是我试图不使用for循环和迭代。

长话短说，如何以编程方式访问内部列表元素

作为参考，我确实对此有所帮助。 但是我仍然无法解决它。 将strsplit应用于data.frame中的特定列

我真的在R中的列表和列表处理方面苦苦挣扎，因此可以提供任何帮助。

Answer 1

一个常见的习惯用法是lapply(l, [ , 2) ，适用于您的示例给出：

> lapply(split, `[`, 2)
[[1]]
[1] NA

[[2]]
[1] " 30 "

[[3]]
[1] NA

[[4]]
[1] NA

sapply()会将其折叠为向量。

正在执行的是lapply()依次获取split每个组成部分（这是伪代码的[[i]]位），然后将每个元素我们要提取第n个元素。 我们通过应用[函数，并使用参数n –在这种情况下为2L 。

如果您想要第一个元素，除非有第二个元素（在这种情况下为第二个元素），则可以编写一个包装器，而不是直接使用[

wrapper <- function(x) {
    if(length(x) > 1L) {
        x[2L]
    } else {
        x[1L]
    }
}

lapply(split, wrapper)

这使

> lapply(split, wrapper)
[[1]]
[1] "50"

[[2]]
[1] " 30 "

[[3]]
[1] "1 "

[[4]]
[1] NA

也许

lens <- lengths(split)
out <- lapply(split, `[`, 2L)
ind <- lens == 1L
out[ind] <- lapply(split[ind], `[`, 1L)
out

但这strsplit()的输出循环两次。