R-在元素中一次应用多个功能

Question

在R中，当我在lapply运行两个函数时，它将在整个列表上运行第一个函数，然后在列表上运行第二个函数。 是否有可能迫使它在移至第二个元素之前先在列表的第一个元素上运行这两个功能？

我将函数print和nchar用于说明目的 -我编写了一些更复杂的函数来生成data.frame。

  lapply(c("a","bb","cdd"), function(x) {
    print(x)
    nchar(x)
  })

输出将是

[1] "a"
[1] "bb"
[1] "cdd"
[[1]]
[1] 1

[[2]]
[1] 2

[[3]]
[1] 3

我想要这样的东西：

[[1]]
[1] "a"
[1] 1

[[2]]
[1] "bb"
[1] 2

[[3]]
[1] "cdd"
[1] 3

这可能吗？

Juan Antonio Roladan Diaz和cash2都建议使用list ，这是一种工作：

lapply(c("a","bb","cdd"), function(x) { 
  list(x, nchar(x))
})

[[1]]
[[1]][[1]]
[1] "a"

[[1]][[2]]
[1] 1


[[2]]
[[2]][[1]]
[1] "bb"

[[2]][[2]]
[1] 2


[[3]]
[[3]][[1]]
[1] "cdd"

[[3]][[2]]
[1] 3

但这有点太混乱了。

使用打印效果更好

lapply(c("a","bb","cdd"), function(x) { 
  print(x)
  print(nchar(x))
  })

[1] "a"
[1] 1
[1] "bb"
[1] 2
[1] "cdd"
[1] 3
[[1]]
[1] 1

[[2]]
[1] 2

[[3]]
[1] 3

但是有办法抑制再次输出nchar吗？

Answer 1

发生这种情况是因为该函数先打印x，然后返回nchar(x) ； 返回的元素被lapply放到列表中并返回，并打印在REPL上。

将nchar(x)替换为print(nchar(x)) 。 或者，如果要返回list(x, nchar(x)) ，只需从内部函数返回list(x, nchar(x)) 。

Answer 2

invisible(lapply(c("a","bb","cdd"), function(x) { print(x); print(nchar(x)) }))