我需要使用不同的合并来绘制数据图表,并希望在ggplot中进行。
x< - c(1,2,1,2,1,2,1,2,1)cust< - c(“a”,“b”,“c”,“a”,“b”,“c”,“a”,“b”,“c”)prod< - c(“p1”,“…
来自 rlang 包你可以使用 !! 操作员 sym(variable) 。这种取消引用和评估的方式与您将实现的方式类似 eval(parse(text = "variable")) 。
rlang
!!
sym(variable)
eval(parse(text = "variable"))
print2.dt <- function(dt, x, qty, anchor_var_, geom) { ggplot(dt, aes(x=x, y = qty, color = !! sym(anchor_var_))) + stat_summary(fun.y=sum, geom=geom, size=1.5 , aes(group=!! sym(anchor_var_)) } print2.dt(dt,x,qty,anchor_var_ = "prod", geom = "line")