Einheiten zum Geomtext-Label hinzufügen

Question

Ich habe ein Blasendiagramm erstellt und möchte der Größe der Blasen ein Label geben. Allerdings kann ich nicht sehen, wie ich ein Gerät an das Etikett hinzufügen kann, dh nicht als „228“ besagen, das Etikett zu haben „228 qq“ lesen

Der Code ist:

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) 

Und die Handlung sieht wie folgt aus:

extra-Bonuspunkte wäre, wenn es möglich war, eine nette Karte hinter dem Label hinzuzufügen, die ein Rechteck mit einem Ende dreieckig ist, auf der Mitte der Blase beenden. Bis jetzt kann ich nur Standardrechtecke hinzufügen und bin nicht sicher, wie man einen Punkt hinzufügt oder ihn richtig positioniert.

Answer 1

Vielleicht so etwas wie:

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

(nicht getestet)