• 主页
  • 课程

    关于课程

    • 课程归档
    • 成为一名讲师
    • 讲师信息
    同等学历教学

    同等学历教学

    免费
    阅读更多
  • 特色
    • 展示
    • 关于我们
    • 问答
  • 事件
  • 个性化
  • 博客
  • 联系
  • 站点资源
    有任何问题吗?
    (00) 123 456 789
    weinfoadmin@weinformatics.cn
    注册登录
    恒诺新知
    • 主页
    • 课程

      关于课程

      • 课程归档
      • 成为一名讲师
      • 讲师信息
      同等学历教学

      同等学历教学

      免费
      阅读更多
    • 特色
      • 展示
      • 关于我们
      • 问答
    • 事件
    • 个性化
    • 博客
    • 联系
    • 站点资源

      R语言

      • 首页
      • 博客
      • R语言
      • 数据周末:垃圾回收

      数据周末:垃圾回收

      • 发布者 weinfoadmin
      • 分类 R语言
      • 日期 2019年6月25日
      测试开头


      数据周末:垃圾回收


      代码: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)
      数据周末:垃圾回收

      结论

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

      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”,“生信星球”的支持!

      • 分享:
      作者头像
      weinfoadmin

      上一篇文章

      豆豆学Python第三集
      2019年6月25日

      下一篇文章

      修改ggplot的图例符号
      2019年6月29日

      你可能也喜欢

      3-1665801675
      R语言学习:重读《R数据科学(中文版)》书籍
      28 9月, 2022
      6-1652833487
      经典铁死亡,再出新思路
      16 5月, 2022
      1-1651501980
      R语言学习:阅读《R For Everyone 》(第二版)
      1 5月, 2022

      搜索

      分类

      • R语言
      • TCGA数据挖掘
      • 单细胞RNA-seq测序
      • 在线会议直播预告与回放
      • 数据分析那些事儿分类
      • 未分类
      • 生信星球
      • 老俊俊的生信笔记

      投稿培训

      免费

      alphafold2培训

      免费

      群晖配置培训

      免费

      最新博文

      白介素-17受体信号的自主激活,维持炎症并促进疾病进展
      048月2023
      MCT4依赖的乳酸分泌抑制LKB1缺陷肺腺癌的抗肿瘤免疫
      187月2023
      Nature | 单细胞技术揭示衰老细胞与肌肉再生
      301月2023
      logo-eduma-the-best-lms-wordpress-theme

      (00) 123 456 789

      weinfoadmin@weinformatics.cn

      恒诺新知

      • 关于我们
      • 博客
      • 联系
      • 成为一名讲师

      链接

      • 课程
      • 事件
      • 展示
      • 问答

      支持

      • 文档
      • 论坛
      • 语言包
      • 发行状态

      推荐

      • iHub汉语代码托管
      • iLAB耗材管理
      • WooCommerce
      • 丁香园论坛

      weinformatics 即 恒诺新知。ICP备案号:粤ICP备19129767号

      • 关于我们
      • 博客
      • 联系
      • 成为一名讲师

      要成为一名讲师吗?

      加入数以千计的演讲者获得100%课时费!

      现在开始

      用你的站点账户登录

      忘记密码?

      还不是会员? 现在注册

      注册新帐户

      已经拥有注册账户? 现在登录

      close
      会员购买 你还没有登录,请先登录
      • ¥99 VIP-1个月
      • ¥199 VIP-半年
      • ¥299 VIP-1年
      在线支付 激活码

      立即支付
      支付宝
      微信支付
      请使用 支付宝 或 微信 扫码支付
      登录
      注册|忘记密码?