R-可视化（五）：饼图/圆环图

最新推荐文章于 2024-09-11 14:23:26 发布

obwte

最新推荐文章于 2024-09-11 14:23:26 发布

阅读量1.2w

点赞数 7

分类专栏： R-可视化

本文链接：https://blog.csdn.net/weixin_43700050/article/details/94899874

版权

R-可视化专栏收录该内容

9 篇文章 13 订阅

订阅专栏

# 准备数据
df <- data.frame(
  group = c("Male", "Female", "Child"),
  value = c(10, 20, 30))

基本图片

ggpie(df, "value",
      label = "group",                               # 标签
      fill = "group",                            
      color = "white",                               # 图片轮廓颜色
      palette = c("#00AFBB", "#E7B800", "#FC4E07") )

在这里插入图片描述

ggdonutchart(df, "value",
             label = "group",                               
             fill = "group",                            
             color = "white",                                
             palette = c("#00AFBB", "#E7B800", "#FC4E07") 
)

M6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MzcwMDA1MA==,size_16,color_FFFFFF,t_70)

改变标签

df$percent_value = round(df$value/sum(df$value) * 100)
labs <- paste0(df$group, " (", df$percent_value, "%)")
ggpie(df, "value", 
      label = labs,
      fill = "group",
      color = "white",
      palette = c("#00AFBB", "#E7B800", "#FC4E07"))

在这里插入图片描述

ggdonutchart(df, "value",
             label = labs,
             fill = "group",
             color = "white",
             palette = c("#00AFBB", "#E7B800", "#FC4E07"))

G4ubmV0L3dlaXhpbl80MzcwMDA1MA==,size_16,color_FFFFFF,t_70)

改变标签位置和颜色

ggpie(df, "value",
      label = labs,
      lab.pos = "in",                               # 标签在饼图内部
      lab.font = "white",                           # 标签颜色为白色
      fill = "group",
      color = "white",
      palette = c("#00AFBB", "#E7B800", "#FC4E07"))

在这里插入图片描述

ggdonutchart(df, "value",
             label = labs,
             lab.pos = "in",                                
             lab.font = "white",                            
             fill = "group",
             color = "white",
             palette = c("#00AFBB", "#E7B800", "#FC4E07"))