这个想法是在函数中修补对 ggplot 的调用。
这个例子:
library(dplyr)
library(ggplot2)
library(lazyeval)
df <- data.frame(A=letters[1:10], B=2:11, C=3:12))
func <- function(name, dat=df) {
output <- dat %>%
select_(~A,name) %>%
arrange_(interp(~desc(var), var=as.name(name)))
plot <-
ggplot(output, aes_string(x=reorder(~A,-name), y=B)) +
geom_bar(stat='identity')
print(plot)
return(plot)
}
result <- func("B")
编译给出:
-name 中的错误:一元运算符的参数无效。
我试过deparse
了substitute
。不确定我得到了正确的组合。有任何想法吗?