使用聚合函数

Question

我正在使用ggplot2并使用闪亮的输入，如下所示，效果很好：

geom_text(aes(label=n),data=cbind(aggregate(formula(paste0("n ~ " , 
input$yv)) , b,sum), gender = "total") )

但我可以添加第二个Shiny输入＆＃39;输入$ xv＆＃39;而不是硬编码＆＃34;性别＆＃34;例如，这不起作用：

geom_text(aes(label=n),data=cbind(aggregate(formula(paste0("n ~ " , 
input$yv)) , b,sum), input$xv = "total") )

我已经尝试了几个小时，有人有任何想法吗？

提前感谢您的时间和帮助

Answer 1

我认为可能有多种方法可以做你想做的事。一种方法如下：

df = aggregate(formula(paste0("n ~ " ,input$yv)) , b,sum)
df[[input$xv]] = 'total'

geom_text(aes(label=n), data = df)

希望这有帮助！