将单位添加到geomtext标签

Question

我创建了一个气泡图，并希望给出气泡大小的标签。但是，我看不出如何在标签上添加单位，而不是说“228”标签为“228 qq”

代码是：

SalesChannells <- read.csv("SalesChannelsData.csv")
View(SalesChannells)
SalesChannelsScatter <- ggplot(SalesChannells, aes(x = SalesChannel, y = NumberOfFarmers, size = TotalVolumeOfCoffee, color = TotalVolumeOfCoffee), alpha=.5) +
  geom_point()
SalesChannelsScatter + 
  scale_size_area(max_size = 30) + 
  theme(legend.position = "bottom", legend.direction = "horizontal") +
  labs(size = "Volume of coffee sold") +
  labs(title="More coffee is sold to intermediaries than to organisations") +
  expand_limits(y=c(0,100)) +
  labs(x="Sales Channel", y="Number of farmers")+
  geom_text(aes(label=TotalVolumeOfCoffee), size=8, color="white",hjust = 1.7)

情节如下：

如果可以在标签后面添加一张漂亮的卡片，那么额外的奖励积分就是一个矩形，一端是三角形，最后是泡泡的中心。到目前为止，我只能添加标准矩形，不知道如何正确添加点或位置。

Answer 1

可能是这样的：

geom_text(aes(label=paste(TotalVolumeOfCoffee, "qq")), size=8, color="white", hjust = 1.7)

（未经测试）