数据周末:垃圾回收

测试开头

代码:https://tduan.netlify.com/post/data-weekend-global-plastic-waste/

开篇

上海市垃圾分类立法 在2019年7月1日起施行。个人混投垃圾最高可罚200元，单位混装混运最高可罚5万元。丢垃圾要分为4类:

1 可回收物:废纸张、废塑料、废玻璃制品、废金属、废织物等
2 有害垃圾:废电池、废灯管、废药品、废油漆及其容器等
3 湿垃圾:食材废料、剩菜剩饭、过期食品、瓜皮果核、花卉绿植等
4 干垃圾:除可回收物、有害垃圾、湿垃圾以外的其它生活废弃物

《上海市生活垃圾管理条例》同时规定:旅馆不得主动提供客房一次性日用品。餐饮服务不得主动提供一次性餐具。

人类制造越来越多的垃圾 !

2010年每年制造近3亿万吨塑料垃圾.到2015年数字已上升到每年4亿万吨。这些垃圾不被回收的话将会污染我们的环境。

 1global_plastics_production%>%clean_names() %>%filter(year>2000) %>% 
 2ggplot(aes(x=year,y=global_plastics_production_million_tonnes_tonnes/1000000)) +geom_point()+geom_line()+
 3
 4  labs(x = "年",
 5       y = "全球制造的塑料垃圾（百万吨）",
 6       title = "人类制造越来越多的垃圾",
 7       subtitle = "每年制造近4亿万吨塑料垃圾",
 8       caption ="统计时间:2000-2015年;数据源:ourworldindata.org
 9       @Tony Duan"
10       )+theme(plot.title = element_text(hjust = 0.5))

谁制造垃圾？

人均收入越高的国家，制造的塑料垃圾越多。如美国人均每天制造0.3千克塑料垃圾。中国人均0.15千克。

 1g1 <- plastic_waste %>%
 2  arrange(-total_population) %>%
 3  ggplot(aes(gdp_per_capita,plastic_waste_per_capita)) +
 4  geom_point(aes(size = total_population,fill = gdp_per_capita_group), shape = 21, show.legend = F, alpha = 0.7)+
 5  geom_text(aes(label = country), size=3,vjust = 1, hjust = 1, check_overlap = TRUE) +
 6  geom_smooth(method = "lm") +
 7  labs(x = "人均GDP(美元)",
 8       y = "人均每天生成的塑料垃圾(千克)",
 9       title = "塑料垃圾与人口收入的关系",
10       subtitle = "颜色为人均GPD组;点的大小代表国家总人口数量",
11       caption ="统计时间:2010年;数据源:ourworldindata.org
12       @Tony Duan"
13       )+theme(plot.title = element_text(hjust = 0.5))
14
15g1+ guides(fill=FALSE, color=FALSE)

谁回收垃圾？

人均收入越高的国家，垃圾回收率越高。如美国塑料垃圾回收率为90%。中国仅为25%。
可见人均收入最高的25%国家已建立有效的垃圾回收系统。所以垃圾回收能明显高于其他国家。

 1g2 <- plastic_waste %>%
 2  arrange(-total_population) %>%
 3  mutate(pct_population_coastal = pmin(1, coastal_population / total_population),
 4         high_coastal_pop = ifelse(pct_population_coastal >= .8, ">=80%", "<80%")) %>%
 5
 6  ggplot(aes(gdp_per_capita, managed_per_capita_rate)) +
 7
 8  geom_point(aes(size = total_population,fill = gdp_per_capita_group), shape = 21, show.legend = F, alpha = 0.7)+
 9
10  geom_text(aes(label = country), size=3,vjust = 1, hjust = 1, check_overlap = TRUE) +
11  scale_x_log10(labels = dollar_format()) +
12  scale_size_continuous(guide = FALSE) +
13  labs(x = "人均GDP(美元)",
14       y = "塑料垃圾回收率",
15       title = "塑料垃圾回收率与人口收入的关系",
16       subtitle = "颜色为人均GPD组;点的大小代表国家总人口数量",
17       caption ="统计时间:2010年;数据源:ourworldindata.org
18       @Tony Duan"
19       )+theme(plot.title = element_text(hjust = 0.5))
20
21g2+ guides(fill=FALSE, color=FALSE)