使用R中的ggplot2在圓環圖中添加“0”小數

我使用 ggplot2 包在 R 中創建了一個圓環圖。現在我需要在“否”切片中添加“0”小數。它現在在圖表中顯示為“74%” - 但我想將其表示為“74.0%”。以下是代碼和圖表 -

df = data.frame(Dep = c("No", 
                               "Mild",
                               "Moderate",
                               "Moderately Severe",
                               "Severe"),
                Percentage = c(74.0, 12.8, 9.4, 2.3, 1.6),
                Count = c(284, 49, 36, 9, 6))


df$Dep = factor(df$Dep, levels = c("No", 
                                                 "Mild",
                                                 "Moderate",
                                                 "Moderately Severe",
                                                 "Severe"))

df = df %>%
    arrange(desc(Dep)) %>%
    mutate (Percentage) %>%
    mutate (ypos = cumsum(Percentage)-0.5*Percentage)

donut= ggplot(df, aes(x =2, y=Percentage,fill=Dep)) 
    geom_bar(stat="identity") 
    coord_polar("y", start=180) 
    scale_fill_brewer(palette = "Set2") 
    theme_void() 
    geom_text(aes(y=ypos, label=paste0(round(Percentage,1),"%")),
              color = "black", size=4.5, angle = 0) 
    xlim(0.25, 2.5) theme(legend.position=c(.5, .5)) 
    theme(panel.grid=element_blank())  
    theme(axis.text=element_blank())  
    theme(axis.ticks=element_blank())  
    theme(legend.title = element_text(size=18, face="bold",))  
    theme(legend.text = element_text(size = 14, face = "bold"))

donut

我得到了這個甜甜圈圖-

我正在尋找這個解決方案，但找不到任何有用的東西。提前致謝。您的幫助將不勝感激。

uj5u.com熱心網友回復：

你只需要使用sprintf(). 請在下面找到一個代表。

代表

library(ggplot2)
library(dplyr)
#> 
#> Attachement du package : 'dplyr'
#> Les objets suivants sont masqués depuis 'package:stats':
#> 
#>     filter, lag
#> Les objets suivants sont masqués depuis 'package:base':
#> 
#>     intersect, setdiff, setequal, union

df = data.frame(Depression = c("No", 
                               "Mild",
                               "Moderate",
                               "Moderately Severe",
                               "Severe"),
                Percentage = c(74.0, 12.8, 9.4, 2.3, 1.6),
                Count = c(284, 49, 36, 9, 6))


df$Depression = factor(df$Depression, levels = c("No", 
                                                 "Mild",
                                                 "Moderate",
                                                 "Moderately Severe",
                                                 "Severe"))

df = df %>%
  arrange(desc(Depression)) %>%
  mutate (Percentage) %>%
  mutate (ypos = cumsum(Percentage)-0.5*Percentage)

donut= ggplot(df, aes(x =2, y=Percentage,fill=Depression)) 
  geom_bar(stat="identity") 
  coord_polar("y", start=180) 
  scale_fill_brewer(palette = "Pastel2") 
  theme_void() 
  geom_text(aes(y=ypos, label=paste0(sprintf("%.1f",Percentage),"%")),
            color = "black", size=4.5, angle = 0) 
  xlim(0.25, 2.5) theme(legend.position=c(.5, .5)) 
  theme(panel.grid=element_blank())  
  theme(axis.text=element_blank())  
  theme(axis.ticks=element_blank())  
  theme(legend.title = element_text(size=18, face="bold",))  
  theme(legend.text = element_text(size = 14, face = "bold"))

donut

^{由reprex 包于 2022-03-05 創建(v2.0.1)}

uj5u.com熱心網友回復：

一種選擇是使用以下格式格式化您的百分比scales::percent：

library(ggplot2)
library(scales)

ggplot(df, aes(x = 2, y = Percentage, fill = Dep))  
  geom_bar(stat = "identity")  
  coord_polar("y", start = 180)  
  scale_fill_brewer(palette = "Set2")  
  theme_void()  
  geom_text(aes(y = ypos, label = scales::percent(Percentage, scale = 1, accuracy = .1)),
    color = "black", size = 4.5, angle = 0
  )  
  xlim(0.25, 2.5)  
  theme(legend.position = c(.5, .5))  
  theme(panel.grid = element_blank())  
  theme(axis.text = element_blank())  
  theme(axis.ticks = element_blank())  
  theme(legend.title = element_text(size = 18, face = "bold", ))  
  theme(legend.text = element_text(size = 14, face = "bold"))

標籤：r ggplot2 几何文本 甜甜圈图

上一篇：如何在圖中制作兩個具有正常y軸的線圖？

下一篇：如何使用ggplot在r中創建堆積條形圖