ggplot2绘制趋势变化堆砌条形图

R语言数据分析指南

发布于 2022-12-20 19:52:02

5470

发布于 2022-12-20 19:52:02

❝本节来介绍一个小案例，如何根据某数值来对堆砌条形图数据的趋势变化进行排序，下面小编就通过一个具体案例来介绍如何处理；

加载R包

library(tidyverse)

构建数据

df = data.frame()
df = data.frame(matrix(df, nrow=200, ncol=2))
colnames(df) <- c("cluster", "name")
df$cluster <- sample(20, size = nrow(df), replace = TRUE)
df$fruit <- sample(c("banana", "apple", "orange", "kiwi", "plum"), size = nrow(df), replace = TRUE)

数据可视化

df %>% as_tibble() %>% 
  mutate(cluster = factor(cluster, 
                          names(sort(table(fruit == 'apple',cluster)[2,]))),
         fruit = factor(fruit, c('apple', 'kiwi','banana', 
                                 'orange', 'plum'))) %>% 
                                   ggplot(aes(x = cluster, fill = fruit))+
  geom_bar(position = position_stack(reverse = TRUE))+
  scale_y_discrete(expand = c(0,0))+
  labs(y=NULL)+
  coord_flip() +
  ggthemes::theme_wsj() +
  ggthemes::scale_fill_ptol()+
  theme(axis.text.y=element_text(color="black",size=8,margin=margin(r=1)),
        axis.text.x=element_text(color="black",size=9,margin=margin(t=8)),
        axis.title.x = element_text(size=11,margin=margin(t=8),color="black",face="bold"),
        plot.margin=unit(c(0.3,0.3,0.3,0.3),units=,"cm"), 
        panel.background = element_blank(),   # 移除灰色背景框
        axis.line = element_line(color="black"),
        axis.ticks.length.x = unit(-.2, "cm"),
        legend.key = element_blank(),
        legend.background = element_blank(),
        legend.title = element_blank(),
        legend.text=element_text(size=8,color="black"),
        legend.spacing.x=unit(0.1,'cm'),
        legend.key.width=unit(0.4,"cm"),
        legend.key.height=unit(0.4,"cm"))