R语言ggplot2作图好看的配色备选~北京冬奥会相关的配色
2023-02-19 12:27:52 时间
颜色取自链接上的图片
https://news.cgtn.com/news/2020-05-08/Beijing-Winter-Olympics-color-system-and-dynamic-graphics-released-QkvJxPsfBu/index.html
image.png
总共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")
image.png
还有一些其他备选
image.png
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)
image.png
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)
image.png
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)
image.png
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)
相关文章
- Jgit的使用笔记
- 利用Github Action实现Tornadofx/JavaFx打包
- 叹息!GitHub Trending 即将成为历史!
- 微软软了?开源社区讨论炸锅,GitHub CEO 亲自来答
- GitHub Trending 列表频现重复项,前后端都没去重?
- Photoshop Elements 2021版本软件安装教程(mac+windows全版本都有)
- (ps全版本)Photoshop 2020的安装与破解教程(mac+windows全版本都有)
- (ps全版本)Photoshop cc2018的安装与破解教程(mac+windows全版本,包括2023
- 环境搭建:Oracle GoldenGate 大数据迁移到 Redshift/Flat file/Flume/Kafka测试流程
- 每个开发人员都要掌握的:最小 Linux 基础课
- 来撸羊毛了!Windows 环境下 Hexo 博客搭建,并部署到 GitHub Pages
- 超实用!手把手入门 MongoDB:这些坑点请一定远离
- 【GitHub日报】22-10-09 zustand、neovim、webtorrent、express 等4款App今日上新
- 【GitHub日报】22-10-10 brew、minio、vite、seaweedfs、dbeaver 等8款App今日上新
- 【GitHub日报】22-10-11 cobra、grafana、vue、ToolJet、redwood 等13款App今日上新
- Photoshop 2018 下载及安装教程(mac+windows全版本都有,包括最新的2023)
- Photoshop 2017 下载及安装教程(mac+windows全版本都有,包括最新的2023)
- Photoshop 2020 下载及安装教程(mac+windows全版本都有,包括最新的2023)
- Photoshop 2023 资源免费下载(mac+windows全版本都有,包括最新的2023)
- 最新版本Photoshop CC2018软件安装教程(mac+windows全版本都有,包括2023