[R包分享] PieGlyph优雅绘制饼状图

R语言数据分析指南

发布于 2024-03-02 08:30:34

1330

发布于 2024-03-02 08:30:34

文章被收录于专栏：R语言数据分析指南R语言数据分析指南

官方文档

❝https://github.com/rishvish/PieGlyph ❞

安装并加载R包

install.packages("PieGlyph")
library(tidyverse)
library(PieGlyph)

构建数据

set.seed(123)
plot_data <- data.frame(response = rnorm(30, 100, 30),
                        system = 1:30,
                        group = sample(size = 30, x = c('G1', 'G2', 'G3'), replace = T),
                        A = round(runif(30, 3, 9), 2),
                        B = round(runif(30, 1, 5), 2),
                        C = round(runif(30, 3, 7), 2),
                        D = round(runif(30, 1, 9), 2))

使用饼图创建散点图

ggplot(data = plot_data, aes(x = system, y = response))+
  geom_pie_glyph(slices = c('A', 'B', 'C', 'D'))+
  theme_classic()

更改饼图半径和边框颜色

ggplot(data = plot_data, aes(x = system, y = response))+
  geom_pie_glyph(slices = 4:7, colour = 'black', radius = 0.5)+ 
  theme_classic()

p <- ggplot(data = plot_data, aes(x = system, y = response))+
  geom_pie_glyph(aes(radius = group), 
                 slices = c('A', 'B', 'C', 'D'), 
                 colour = 'black')+
  theme_classic()
p

p + scale_radius_manual(values = c(0.25, 0.5, 0.75), unit = 'cm')+
  labs(x = 'System', y = 'Response', fill = 'Attributes', radius = 'Group')+
  scale_fill_manual(values = c('#56B4E9', '#CC79A7', '#F0E442', '#D55E00'))