数据周末:垃圾回收

开篇
上海市垃圾分类立法 在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)

结论
随着经济的发展。中国人均每天将生成越来越多垃圾。目前中国还处在较低的垃圾回收率。所以建立有效的垃圾回收系统迫在眉睫。上海市的垃圾分类立法将成为其他城市的学习榜样。
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
您在阅读中有什么问题,请留言。若是觉得有用,请您点赞和分享给其他朋友,感谢支持和分享。
公众号推荐:
数据人才(ID:datarencai)
(一个帮助数据人才找工作,
帮助数据公司招人才的公众号,
也分享数据人学习和生活的有趣事情。)
请关注“恒诺新知”微信公众号,感谢“R语言“,”数据那些事儿“,”老俊俊的生信笔记“,”冷🈚️思“,“珞珈R”,“生信星球”的支持!