在风水文字标签中添加单元

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)

(未测试)