数据告诉你，垃圾回收动起来（只要开始，都不算晚）！

开篇

上海市垃圾分类立法 在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.org12       @Tony Duan"13       )+theme(plot.title = element_text(hjust = 0.5))1415g1+ 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)+ 910  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.org18       @Tony Duan"19       )+theme(plot.title = element_text(hjust = 0.5))2021g2+ guides(fill=FALSE, color=FALSE)

结论

随着经济的发展。中国人均每天将生成越来越多垃圾。目前中国还处在较低的垃圾回收率。所以建立有效的垃圾回收系统迫在眉睫。上海市的垃圾分类立法将成为其他城市的学习榜样。

Reference

https://www.nationalgeographic.com/magazine/2018/06/plastic-planet-waste-pollution-trash-crisis/

http://env.people.com.cn/n1/2019/0215/c1010-30715370.html

https://github.com/rfordatascience/tidytuesday/tree/master/data/2019/2019-05-21

https://www.youtube.com/watch?v=BRdLOYtJk9o&t=115s

https://github.com/dgrtwo/data-screencasts/blob/master/plastic-waste.Rmd

您在阅读中有什么问题，请留言。若是觉得有用，请您点赞和分享给其他朋友，感谢支持和分享。

更多数据和源代码，可以至如下链接获取：

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