搜索
人大经济论坛 › 附件下载

附件下载

所在主题：
文件名:  tidyr包的用法初探.pdf
资料下载链接地址: https://bbs.pinggu.org/a-2268088.html
附件大小:
296.32 KB   举报本内容
  1. ---
  2. title: "tidyr包的用法"
  3. author: "R语言小能手"
  4. date: "2017年6月8日"
  5. output:
  6. html_document:
  7. number_sections: yes
  8. toc: yes
  9. ---

  11. #准备数据框

  13. ```{r}
  14. person=c("Alex","Bob","Cathy")
  15. grade=c(2,3,4)
  16. score=c(78,89,80)
  17. Data=data.frame(person,grade,score)
  18. print(Data)
  19. ```

  21. #gather()将宽数据转为长数据

  23. ##对所有的列进行转换

  25. ```{r warning=FALSE,message=FALSE}
  26. library(tidyr)
  27. library(dplyr)
  28. LongData1=gather(Data,variable,value)
  29. print(LongData1)
  30. ```

  32. ##去掉部分列,剩余的列进行转换

  34. ```{r}
  35. LongData2=gather(Data,variable,value,-person)
  36. print(LongData2)
  37. ```

  39. ##选择部分列进行转换，剩余的列保持不变

  41. ```{r}
  42. age=c(20,21,22)
  43. NewData=data.frame(Data,age)
  44. LongData3=gather(NewData,variable,value,grade:age)
  45. print(LongData3)
  46. ```

  48. #spread()将长数据转为宽数据

  50. ```{r}
  51. WideData=spread(LongData3,variable,value)
  52. WideData
  53. ```

  55. #unite()将n个变量合成一个变量

  57. ```{r}
  58. UniteData=unite(WideData,information,person,age,grade,score,sep="-")
  59. print(UniteData)
  60. ```

  62. #separate()将变量按照标记拆分

  64. ```{r}
  65. SeparateData=separate(UniteData,information,c("person","age","grade","score"),sep="-")
  66. print(SeparateData)
  67. ```
复制代码


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。
(如有侵权，欢迎举报)
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2026-1-6 12:02