

绘制炫彩环形梯度条形图：基于R的数据可视化实践

R语言数据分析指南

2023-05-02

❝
本节来通过「ggplot2」包来绘制炫彩环形梯度条形图，「数据+代码已经上传2023VIP群，加群的观众老爷请自行下载」
❞

❝
有需要学习个性化数据可视化的朋友，欢迎到小编的「淘宝店铺」 「R语言数据分析指南」购买「2023年度会员」 初始价格99元，内容主要包括各种「高分论文的图表分析复现以及一些个性化图表的绘制」均包含数据+代码；按照往年数据小编年产出约在150+以上
❞

购买后微信发小编订单截图即邀请进新的会员交流群，小编的文档为按年售卖，只包含当年度的「除系列课程外」的文档，有需要往年文档的朋友也可下单购买，需要了解更多信息的朋友欢迎交流咨询。

淘宝店铺个性化绘图服务

❝
有需要找小编做个性化绘图的朋友欢关注「淘宝店铺(R语言数据分析指南)」 有需求者可咨询下单。
❞

加载R包

library(tidyverse)
library(scico)
library(geomtextpath)

导入数据

data <- readr::read_csv("data.xls")

数据清洗

df <- data %>%
  group_by(p_year) %>% 
  summarise(n = n()) %>% 
  na.omit() %>% 
  filter(p_year > 2002) %>% 
  mutate(order = seq(0, 19, by = 1))

数据可视化

df %>% 
  ggplot() + 
  ggpattern::geom_rect_pattern(data = df, aes(xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf),
                               pattern = "gradient", pattern_fill = "#87CEEB",
                               pattern_fill2 = "#FFFFFF", color = NA)+
  geom_tile(aes(x = order, y = 0, fill = n), color = "#FFFFFF", size = 0.5) +
  geom_textpath(aes(x = order, y = 0, label = p_year),color = "#000000", size =3, vjust = -2) +
  geom_hline(yintercept = 0.5, color = "#000000") +
  geom_hline(yintercept = -0.5, color = "#000000") +
  scale_y_continuous(limits = c(-7, NA)) +
  scale_fill_scico(palette = "bamako", direction = -1, breaks = c(min(df$n), max(df$n))) +
  coord_curvedpolar(start = 0, clip = "off") +
  theme_void() +
  theme(legend.position = c(0.5, 0.5),
        legend.direction = "horizontal",
        legend.key.height = unit(0.55,'cm'),
        legend.key.width = unit(0.75,'cm'),
        legend.title = element_blank(),
        legend.text = element_text(hjust = 0.5, size = 7, color = "#000000", face = "bold"),
        plot.margin = unit(c(0.5, 0.5, 1, 0.5), "cm"),
        plot.background = element_rect(color = NA, fill = "#FFFFFF"))