R 十進制逗號而不是 ggplot scales::percent 中的小數點

Question

我一直在嘗試讓 R 打印 a ,而不是. 在我的 plot 的百分比標簽中，但它不適用於我迄今為止發現的任何方法。 我懷疑跑步

format(data, decimal.mark=",")或options(OutDec= ",")可能不起作用，因為我要求從label=scales::percent(Prozent/100)打印百分比。 我曾嘗試使用某種paste(Prozent+"%")作為解決方法，但重點仍然存在。 :(

plot <- ggplot(probleme, aes(x=reorder(Name, Häufigkeit), y= Häufigkeit, fill = mean)) +
          geom_col(position="dodge") +
          coord_flip() + 
          scale_fill_gradient(low = "#FEDFE8",  high = "#AC0634", limits=c(6,8), breaks = c(6,7,8))+
          scale_y_continuous(limits = c(0,1650), expand = c(0,0.1))+
          scale_x_discrete(expand = c(0,0)) + 
          geom_text(aes(label=scales::percent(Prozent/100)), 
                 position = position_dodge(0.5), hjust = -0.02, colour = "black", size=5)

在我的代碼中，我可以在哪里指定我想要一個十進制逗號？ 任何幫助將不勝感激：）謝謝

Answer 1

將decimal.mark = ","添加到您的geom_text()命令以修改逗號符號。

geom_text(aes(label=scales::percent(Prozent/100,decimal.mark = ",")), 
                 position = position_dodge(0.5), hjust = -0.02, colour = "black", size=5)