R语言ggplot2作图好看的配色备选~北京冬奥会相关的配色

用户7010445

发布于 2023-01-06 20:30:45

1K0

发布于 2023-01-06 20:30:45

颜色取自链接上的图片

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)