r - 无法找出 lapply 中的错误

Question

几周前我是一名初学者，我正在尝试学习 apply 系列。不知道如何使用 lapply，这很令人抓狂。是的，我查了 ?lapply 和包括 R in a nutshell 和 R cookbook 在内的几本书，但仍然无法弄清楚我做错了什么。

lapply(X = c("ggplot2", "gtable", "grid"), library)
## Error: 'package' must be of length 1
lapply(X = c("ggplot2", "gtable", "grid"), FUN = function(x) library(x))
## Error: there is no package called 'x'
lapply(X = c("ggplot2", "gtable", "grid"), FUN = library)
## Error: 'package' must be of length 1
x = c("ggplot2", "gtable", "grid")
lapply(x, library)
## Error: 'package' must be of length 1
lapply(x, FUN = function(x) library(x))
## Error: there is no package called 'x'

Answer 1

您的 lapply() 本身没有任何问题，但问题在于 library() 以稍微特殊的方式评估其参数。

这意味着您需要使用

library(pkg.name, character.only=TRUE)

这在 ?library 的帮助中相当模糊:

package, help
the name of a package, given as a name or literal character string, or a character string, depending on whether character.only is FALSE (default) or TRUE).

这意味着如果您向 library() 提供字符串，则必须将 character.only 设置为 TRUE。

所以，试试这个:

lapply(x, library, character.only=TRUE)

那么您可能想要调用 require() 而不是 library() ，并使用 sapply 简化结果:

sapply(x, require, character.only=TRUE)
ggplot2  gtable    grid 
   TRUE    TRUE    TRUE 

不同之处在于 require() 返回单个逻辑值，指示包是否加载成功。