• 主页
  • 课程

    关于课程

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

    同等学历教学

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

      关于课程

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

      同等学历教学

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

      R语言

      • 首页
      • 博客
      • R语言
      • RForML之核心包:rpart

      RForML之核心包:rpart

      • 发布者 weinfoadmin
      • 分类 R语言
      • 日期 2017年3月12日
      测试开头

      作者:陆勤

      概述:rpart是Recursive Partitioning and Regression Trees的简称,它实现了 Breiman, Friedman, Olshen and Stone这三位大佬所写书籍《Classification and Regression Trees》大多数算法的功能。


      一、rpart包介绍


      rpart是Recursive Partitioning and Regression Trees的简称,它实现了 Breiman, Friedman, Olshen and Stone这三位大佬所写书籍《Classification and Regression Trees》大多数算法的功能。


      二、rpart包安装与加载


      rpart包是扩展包,需要先安装和加载,才能使用。

      1. if(!require(rpart))

      2. {

      3.  install.packages('rpart')

      4.  require(rpart)

      5. }


      三、rpart包应用


      利用rpart包实现决策树算法,从ecoli数据集中利用决策树学习到分类器模型,然后利用模型做预测。


      ecoli数据集

      1. url <- 'http://www.wekaleamstudios.co.uk/wp-content/uploads/2010/09/ecoli.txt'

      2. ecoli.data <- read.csv(url)

      3. str(ecoli.data)

      4. ## 保存数据

      5. write.csv(ecoli.data, 'ecoli.txt', row.names = FALSE)

      决策树模型创建

      1. ecoli.tree <- rpart(class ~ ., data = ecoli.data[,-1])

      决策树修剪

      利用plotcp函数可视化或者printcp函数选取合适cp值,然后利用prune函数对决策树进行修剪和优化

      1. plotcp(ecoli.tree)

      结果示意图
      RForML之核心包:rpart

      1. ecoli.tree1 <- prune(ecoli.tree, cp = 0.02)

      决策树结果可视化

      1. if(!(require(rattle) & require(rpart.plot)))

      2. {

      3.  install.packages(c('rattle', 'rpart.plot'))

      4.  require(rattle)

      5.  require(rpart.plot)

      6. }

      7. fancyRpartPlot(ecoli.tree1)

      结果示意图
      RForML之核心包:rpart

      决策树规则解读

      1. asRules(ecoli.tree1)

      部分结果如下
      RForML之核心包:rpart

      模型应用

      利用predict函数,对数据集进行预测,并且量化预测效果。


      参考资料

      1 rpart包文档:https://cran.r-project.org/web/packages/rpart/rpart.pdf
      2 rpart应用:https://cran.r-project.org/web/packages/rpart/vignettes/longintro.pdf

      您在阅读中,有什么建议或者想法,请留言。
      如果您觉得本文有收获,请小额赞赏,让我有动力继续写出高质量的文章。


      RForML之核心包:rpart


      数据人网是数据人学习、交流和分享的平台http://shujuren.org 。专注于从数据中学习。
      平台的理念:人人投稿,知识共享;人人分析,洞见驱动;智慧聚合,普惠人人。
      您在数据人网平台,可以1)学习数据知识;2)创建数据博客;3)认识数据朋友;4)寻找数据工作;5)找到其它与数据相关的干货。
      我们努力坚持做原创,分享和传播有价值的数据知识!
      我们都是数据人,数据是有价值的,坚定不移地利用数据价值创造价值!



      公众号推荐:脚印英语,快乐有趣学会英语。

      RForML之核心包:rpart



      RForML之核心包:rpart


      RForML之核心包:rpart 

      点击“阅读原文”进入数据人网。


      测试结尾

      请关注“恒诺新知”微信公众号,感谢“R语言“,”数据那些事儿“,”老俊俊的生信笔记“,”冷🈚️思“,“珞珈R”,“生信星球”的支持!

      • 分享:
      作者头像
      weinfoadmin

      上一篇文章

      数据应用指南:什么是数据?
      2017年3月12日

      下一篇文章

      R语言玩数据:R语言和数据
      2017年3月26日

      你可能也喜欢

      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培训

      免费

      群晖配置培训

      免费

      最新博文

      Nature | 单细胞技术揭示衰老细胞与肌肉再生
      301月2023
      lncRNA和miRNA生信分析系列讲座免费视频课和课件资源包,干货满满
      301月2023
      如何快速批量修改 Git 提交记录中的用户信息
      261月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年
      在线支付 激活码

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