ggplot标签( Rshiny )

Question

试图做一件简单的事情，并遇到意想不到的麻烦。我正在将一个RShiny应用程序放在一起，并希望在我的ggplot图中标记这些点。

我的密码在下面。我不明白为什么我不能传递可变的花来获取图表中的点标签。为了比较起见，当我删除所有尝试点标签的尝试时，注释行都能很好地工作(这意味着其他函数的变量传递没有问题，等等)。

此外，将行名()直接放入aes也不起作用。

谢谢你的帮助。

output$graph=renderPlot({
pairs2=pctchg()
pairs3=as.data.frame(pairs2)

rownames(pairs3)=input$vector[]
flowers=rownames(pairs3)

#basegraph=ggplot(pairs3,aes(x,y))
basegraph=ggplot(pairs3,aes(x,y,label=flowers))

globalvars=basegraph + geom_point() + geom_smooth(method = 'lm') + geom_text(aes(label=flowers)) 

#globalvars=ggplot(pairs3,aes(x,y)) + geom_point() + geom_smooth(method = 'lm')

print(globalvars) })

Answer 1

使flowers成为您正在绘图的data.frame的列，而不是单独的对象。

pairs3$flowers <- input$vector

那就试试你的密谋代码。