考虑以下两个函数:
library(ggplot2)
testdata <- as.data.frame(cbind(rep(c(1, 4), each = 50), rbinom(100, 50, .5)))
names(testdata) <- c("group", "value")
plotfun1 <- function(color) {
ggplot(data = testdata, aes(x = factor(group, levels = c(0: 4)), y = value)) +
geom_boxplot(color = color)
}
plotfun2 <- function(number) {
ggplot(data = testdata, aes(x = factor(group, levels = c(0: number)), y = value)) +
geom_boxplot(color = 'red')
}
Plotfun1 完美运行,调用
plotfun1('red')
产生两个漂亮的红色箱线图。然而调用
plotfun2(4)
产生错误消息:
因子错误(组,级别 = c(0:数字)):找不到对象“数字”
显然在某些情况下 ggplot 无法“找到”函数的参数,在某些情况下确实如此。这里发生了什么?
PS我知道有一个简单的解决方法:
plotfun3 <- function(number) {
plotdata <- testdata
plotdata$group <- factor(plotdata$group, levels = c(0: number))
ggplot(data = plotdata, aes(x = group, y = value)) +
geom_boxplot(color = 'red')
}
我只是想了解发生了什么。)