颜色取自链接上的图片
https://news.cgtn.com/news/2020-05-08/Beijing-Winter-Olympics-color-system-and-dynamic-graphics-released-QkvJxPsfBu/index.html
总共13个颜色
cols<-c("#af2934","#ffe327","#2f4e87","#b0b9b8","#f0eedf",
"#aed4e9","#f4a69a","#3ba889","#4593c3","#f18e0c",
"#262a35","#c5942e","#a2a7ab")
chineseCols<-c("霞光红","迎春黄","天霁蓝","长城灰",
"瑞雪白","天青","梅红","竹绿","冰蓝",
"吉柿","墨","金","银")
用颜色代码做一个柱形图
cols<-c("#af2934","#ffe327","#2f4e87","#b0b9b8","#f0eedf",
"#aed4e9","#f4a69a","#3ba889","#4593c3","#f18e0c",
"#262a35","#c5942e","#a2a7ab")
chineseCols<-c("霞光红","迎春黄","天霁蓝","长城灰",
"瑞雪白","天青","梅红","竹绿","冰蓝",
"吉柿","墨","金","银")
library(ggplot2)
library(extrafont)
fonts()
dat<-data.frame(x=letters[1:13],y=10,
colors=cols,
labels=chineseCols)
ggplot(data=dat,aes(x=x,y=y))+
geom_col(aes(fill=x),
show.legend = FALSE)+
scale_fill_manual(values = cols)+
theme_void()+
geom_text(aes(y=5,label=labels),
color="white",angle=90,
size=10,
family="STKaiti")
还有一些其他备选
2004雅典奥运会
cols01<-c("#006db6","#0083c8","#00bcf2",
"#14c0d7","#f37633","#f89831","#fdbb2b")
dat01<-data.frame(x=letters[1:7],
y=10)
ggplot(data=dat01,aes(x=x,y=y))+
geom_col(aes(fill=x),
show.legend = FALSE)+
scale_fill_manual(values = cols01)
2008北京奥运会
cols02<-c("#d80b13","#fabf04","#008343","#0056aa","#b0b9b9")
dat02<-data.frame(x=letters[1:5],
y=10)
ggplot(data=dat02,aes(x=x,y=y))+
geom_col(aes(fill=x),
show.legend = FALSE)+
scale_fill_manual(values = cols02)
2012伦敦奥运会
cols03<-c("#f10591","#00baff","#04d486","#ff7d00",
"#ffd800","#000000")
dat03<-data.frame(x=letters[1:6],
y=10)
ggplot(data=dat03,aes(x=x,y=y))+
geom_col(aes(fill=x),
show.legend = FALSE)+
scale_fill_manual(values = cols03)
2016里约奥运会
cols04<-c("#004d8a","#00ace8","#05956c",
"#006b31","#fddd00","#f69001",
"#ee6900","#e61405")
dat04<-data.frame(x=letters[1:8],
y=10)
ggplot(data=dat04,aes(x=x,y=y))+
geom_col(aes(fill=x),
show.legend = FALSE)+
scale_fill_manual(values = cols04)
欢迎大家关注我的公众号
小明的数据分析笔记本
小明的数据分析笔记本 公众号 主要分享：1、R语言和python做数据分析和数据可视化的简单小例子；2、园艺植物相关转录组学、基因组学、群体遗传学文献阅读笔记；3、生物信息学入门学习资料及自己的学习笔记！