vlambda博客
学习文章列表

简单理解内容就是 R语言柱形图，但特别的是柱形图是圆角的，通常ggplot2实现的柱形图都是直角的；另外一点是柱形图的配色个人觉得很好看，自己保存下来备用。

实现圆角柱形图的是R包 ggchicklet

chicklet自己查了一下是少妇姑娘的意思，为什么会叫这个名字还有点好奇，应该是这个单词还有一个比较生僻的用法吧？

重复开头提到的文章的过程中还学到了新的R包hrbrthemes，粗略看了一下帮助文档，基本功能好像是为ggplot2补充一些主题，主要侧重在字体方面，自己试的时候遇到了一堆警告

> warnings()

如何给自己的电脑配置字体自己现在还不太清楚

接下来简单记录ggchicklet的用法

ggplot2的简单柱形图

library(ggplot2)
library(RColorBrewer)
x<-LETTERS[1:14]
y<-1:14
df<-data.frame(x,y)
df
ggplot(df,aes(x,y))+
  geom_col(aes(fill=x))+
  scale_fill_manual(name="",
                    values =c(brewer.pal(4,"Paired"),
                              brewer.pal(10,"Paired")))+
  theme_bw()+labs(x="",y="")

实现圆角柱形图只需要将geom_col()函数换成geom_chicklet()函数就可以了

library(ggplot2)
library(RColorBrewer)
install.packages("ggchicklet", repos = "https://cinc.rud.is")
library(ggchicklet)
x<-LETTERS[1:14]
y<-1:14
df<-data.frame(x,y)
df

ggplot(df,aes(x,y))+
  geom_chicklet(aes(fill=x))+
  scale_fill_manual(name="",
                    values =c(brewer.pal(4,"Paired"),
                              brewer.pal(10,"Paired")))+
  theme_bw()+labs(x="",y="")

模仿开头提到的文章里的堆积柱形图

df<-data.frame(Year=c(rep("2019",12),rep("2018",12),
                      rep("2017",12),rep("2017",12),
                      rep("2016",12),rep("2015",12)),
               Month=c(rep(1:12,6)),
               n=sample(1:15,12*6,replace = T))
dim(df)
head(df)
library(ggplot2)
library(RColorBrewer)
library(ggchicklet)
ggplot(df,aes(x = factor(Year), y = n)) + 
  geom_chicklet(aes(fill = factor(Month)),
                width = 0.25, 
                radius = grid::unit(3, "pt")) + 
  theme_bw()+
  scale_fill_brewer(name = "Month",
                    palette = "Paired",
                    breaks = 1:12,
                    labels = month.name)+
  labs(x="",y="")

这里比较神奇的是数字月份自动被替换成了英文，暂时还不知道如何实现的。