最近刚学完ggplot2的一些基本内容。为了巩固知识不忘记,决定临摹经济学人上的统计图表。
> library(readxl)
> data_0406<- read_xlsx("数据.xlsx") ## 数据是我预先在excel上自己根据图表估计然后手打
> head(data_0406)
# A tibble: 6 x 3
country age view
<chr> <chr> <dbl>
1 Ethiopia 18-29 76.
2 Ethiopia 30-49 75.
3 Ethiopia 50+ 74.
4 France 18-29 56.
5 France 30-49 55.
6 France 50+ 54.
bg_col<-rgb(218/255,230/255,237/255)
blue1<-rgb(0/255,76/255,102/255)
blue2<-rgb(0,156/255,215/255)
blue3<-rgb(129/255,208/255,242/255) ##均为用屏幕拾色器从图中取得的颜色值
gg<- ggplot(data = data_0405, aes( x =reorder(country, view) , y = view, fill = age))
gg+geom_bar(stat = "identity", position = "dodge") + coord_flip() +
labs(