我遇到以下问题：我想将标签添加到由ggplot2和ggplotly创建的散点图中的点上。我在这里阅读了几篇有关如何使用geom_text()的帖子。但是，如果我要打印图，我总是得到NULL的回报。不幸的是，由于机密信息，我无法发布确切的数据。但是，存储所有要绘制的值的数据框通常以以下方式构造：我有一个xvar列，其中的字符表示我的x变量。我的Y轴有一个数字列yvar。然后，我有一列category，可用于对数据进行分组并为图中的点获得相似的颜色。我有一个列pLabel，其中包含要用作绘图中标签的数值。
我以以下方式（考虑到描述的数据帧df）对其进行了编码：
pl1 <- ggplotly(ggplot(df,aes(x=xvar,y=yvar,text = paste("sqrt(z):", df$pLabel))) + geom_point(aes(colour=df$category)))
pl1 <- pl1 + geom_text(aes(label = df$pLabel), hjust = -0.05,vjust = 0.05)
print(pl1)
如果我仅使用第一行代码打印pl1，它将绘制所有不带标签的图形。但是，如果我运行所有三行代码，它将返回NULL。我该如何调整以获取绘图，而不仅仅是在控制台中返回NULL？谢谢！