我正在努力编写一个非常简单的包装程序来生成不同变量的图。说我的数据是：
data <- tibble(year = seq(2001,2015),var1 = rnorm(15, mean=2), var1_sd = rnorm(15, mean=1, sd=0.8), var2 = rnorm(15, mean=7), var2_sd = rnorm(15, mean=1, sd=0.15))
而我想做的情节是
ggplot(data,aes(x=year, y=var1)) +
geom_pointrange(aes(ymin=var1-var1_sd, ymax=var1+var1_sd))
我想为许多变量组合制作完全相同的图，所以我写了一个包装器：
myplot <- function(data, var) {
var <- enquo(var)
sdvar <- paste0(quo_name(var), "_sd")
ggplot(data,aes(x=year, y=!!var)) +
geom_pointrange(aes(ymin=!!var-!!sdvar, ymax=!!var+!!sdvar))
}
调用时myplot(data, var1)，出现错误“（〜var1）中的错误-“ var1_sd”：二进制运算符的非数字参数”
我认为问题出在未引用变量之间的线性运算中？有谁知道如何解决这个问题？
谢谢！！！
此刻，sdvar只是一个字符串。您可以使用将它变成一个符号sym()，然后取消引用的工作：
myplot <- function(data, var) {
var <- enquo(var)
sdvar <- sym(paste0(quo_name(var), "_sd"))
ggplot(data,aes(x=year, y=!!var)) +
geom_pointrange(aes(ymin=!!var-!!sdvar, ymax=!!var+!!sdvar))
}
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句