將€符號添加到氣泡圖中的資料標簽-ggplot？

這是我的資料的負責人：

structure(list(asutus = c("Eesti Draamateater", "Eesti Draamateater", 
"Eesti Noorsooteater", "Eesti Noorsooteater", "Rahvusooper Estonia", 
"Rahvusooper Estonia", "Rakvere Teatrimaja", "Rakvere Teatrimaja", 
"Sakala Teatrimaja", "Vene Teater", "Vene Teater"), liik = c("Kinnisvara haldus ja korraldus", 
"Teatrite tugiteenused", "Kinnisvara haldus ja korraldus", "Teatrite tugiteenused", 
"Kinnisvara haldus ja korraldus", "Teatrite tugiteenused", "Kinnisvara haldus ja korraldus", 
"Teatrite tugiteenused", "Kinnisvara haldus ja korraldus", "Kinnisvara haldus ja korraldus", 
"Teatrite tugiteenused"), tooandja_kulu_aastas = c(131980, 455701, 
103401, 257137, 124755, 1081211, 49147, 188658, 24373, 105234, 
236232)), row.names = c(NA, -11L), class = c("tbl_df", "tbl", 
"data.frame"))

我的顏色：

prx_col_palette <- function(){
  c("#E69F00",
    "#56B4E9",
    "#009E73",
    "#F0E442",
    "#0072B2",
    "#D55E00",
    "#CC79A7")
}
prx_cols <- prx_col_palette()

我的氣泡圖：

ggplot(palgad_joonisele2,
       aes(x = liik, 
           y = asutus,
           colour = liik,
           size = tooandja_kulu_aastas))  
  geom_point()  
  geom_text(aes(label = tooandja_kulu_aastas), 
            colour = "white", 
            size = 3.5)  
  scale_x_discrete(position = "top") 
  scale_y_discrete(limits = rev)  
  scale_size_continuous(range = c(14, 37))   
  scale_colour_manual(values = prx_cols) 
  labs(x = NULL, y = NULL)  
  theme(legend.position = "none",
        panel.background = element_blank(),
        panel.grid = element_blank(),
        axis.text.x = element_text(size=11),
        axis.text.y = element_text(size=11),
        axis.ticks = element_blank())

這就是我的情節現在的樣子：

我的問題是 - 如何在圖表上的數字之前獲得歐元符號（€）并格式化資料標簽，因為它們是勞動力成本，因此它們將更具可讀性。例如像這樣：10,000 歐元而不是 10,000 歐元或類似 10,000 歐元？

uj5u.com熱心網友回復：

使用包裝scales更改geom_text標簽。唯一的變化是

label = dollar(tooandja_kulu_aastas, prefix = "\u20ac")

其余代碼與問題中的完全相同。

library(ggplot2)
library(scales)

prx_col_palette <- function(){
  c("#E69F00",
    "#56B4E9",
    "#009E73",
    "#F0E442",
    "#0072B2",
    "#D55E00",
    "#CC79A7")
}
prx_cols <- prx_col_palette()

ggplot(palgad_joonisele2,
       aes(x = liik, 
           y = asutus,
           colour = liik,
           size = tooandja_kulu_aastas))  
  geom_point()  
  geom_text(aes(label = dollar(tooandja_kulu_aastas, prefix = "\u20ac")), 
            colour = "white", 
            size = 3.5)  
  scale_x_discrete(position = "top") 
  scale_y_discrete(limits = rev)  
  scale_size_continuous(range = c(14, 37))   
  scale_colour_manual(values = prx_cols) 
  labs(x = NULL, y = NULL)  
  theme(legend.position = "none",
        panel.background = element_blank(),
        panel.grid = element_blank(),
        axis.text.x = element_text(size=11),
        axis.text.y = element_text(size=11),
        axis.ticks = element_blank())

^由

uj5u.com熱心網友回復：

替代方法使用paste0('€',formatC(tooandja_kulu_aastas, big.mark=',', format = 'fg'))

library(tidyverse)
library(scales)


prx_col_palette <- function(){
  c("#E69F00",
    "#56B4E9",
    "#009E73",
    "#F0E442",
    "#0072B2",
    "#D55E00",
    "#CC79A7")
}
prx_cols <- prx_col_palette()

palgad_joonisele2 %>% 
  mutate(my_label = paste0('€',formatC(tooandja_kulu_aastas, big.mark=',', format = 'fg'))) %>% 
ggplot(aes(x = liik, 
           y = asutus,
           colour = liik,
           size = tooandja_kulu_aastas))  
  geom_point()  
  geom_text(aes(label = my_label), 
            colour = "white", 
            size = 3.5)  
  scale_x_discrete(position = "top") 
  scale_y_discrete(limits = rev)  
  scale_size_continuous(range = c(14, 37))   
  scale_colour_manual(values = prx_cols) 
  labs(x = NULL, y = NULL)  
  theme(legend.position = "none",
        panel.background = element_blank(),
        panel.grid = element_blank(),
        axis.text.x = element_text(size=11),
        axis.text.y = element_text(size=11),
        axis.ticks = element_blank())

標籤：r ggplot2 图形 气泡图

上一篇：將ggplot線大小縮放到樣本大小

下一篇：如何從嵌套資料框創建直方圖并將它們作為物件存盤在r的串列中？