我还没有看到有人发布dplyr过与sapply以前一起使用而导致的错误，所以我想问一下是否有人知道为什么会发生这种错误。这本身并不是主要的问题，因为解决方法确实很容易，但可能会让您中的有些人不知所措，想知道到底是怎么回事。示例数据是从此处获取的，而我在同一篇文章中对jbaums给出的代码进行了修改。

样本数据

mydata <- data.frame(matrix(rlnorm(30*10,meanlog=0,sdlog=1), nrow=30))
colnames(mydata) <- c("categ", "var1","var2", "var3","var4", "var5", "var6", "var7", "var8", "var9")
mydata$var2 <- mydata$var2*5
mydata$categ <- sample(1:2)
mydata

循环功能可进行多个箱形图

sapply(seq_along(mydata)[-1], function(i) {
    y <- mydata[, i]
    names <- colnames(mydata)[i]
    plot(factor(mydata$categ), log(y + 1), main=names, ylab="foo",outpch=NA, las=1)
})

完美地运作。

现在使用后会发生此错误 tbl_df()

require(dplyr)
mydata2 <- tbl_df(mydata)
sapply(seq_along(mydata2)[-1], function(i) {
    y <- mydata2[, i]
    names <- colnames(mydata2)[i]
    plot(factor(mydata2$categ), log(y + 1), main=names, ylab="foo",outpch=NA, las=1)
})
 Error in xy.coords(x, y, xlabel, ylabel, log) : 
  'x' and 'y' lengths differ 

解决方法非常简单，因为：

mydata2 <- data.frame(mydata2)
## OR
lapply(...)

然后代码再次平滑运行。

知道为什么会这样吗？我认为这是sapplyvs的问题lapply，但我发现它很有趣。

干杯，

哦