tidyr包的用法初探

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

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. ---
   
10. 
    
11. #准备数据框
    
12. 
    
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. ```
    
20. 
    
21. #gather()将宽数据转为长数据  
    
22. 
    
23. ##对所有的列进行转换
    
24. 
    
25. ```{r warning=FALSE,message=FALSE}
    
26. library(tidyr)
    
27. library(dplyr)
    
28. LongData1=gather(Data,variable,value)
    
29. print(LongData1)
    
30. ```
    
31. 
    
32. ##去掉部分列,剩余的列进行转换
    
33. 
    
34. ```{r}
    
35. LongData2=gather(Data,variable,value,-person)
    
36. print(LongData2)
    
37. ```
    
38. 
    
39. ##选择部分列进行转换，剩余的列保持不变
    
40. 
    
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. ```
    
47. 
    
48. #spread()将长数据转为宽数据
    
49. 
    
50. ```{r}
    
51. WideData=spread(LongData3,variable,value)
    
52. WideData
    
53. ```
    
54. 
    
55. #unite()将n个变量合成一个变量
    
56. 
    
57. ```{r}
    
58. UniteData=unite(WideData,information,person,age,grade,score,sep="-")
    
59. print(UniteData)
    
60. ```
    
61. 
    
62. #separate()将变量按照标记拆分
    
63. 
    
64. ```{r}
    
65. SeparateData=separate(UniteData,information,c("person","age","grade","score"),sep="-")
    
66. print(SeparateData)
    
67. ```

复制代码

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：DYR tid information Informatio formation

上面的代码复制后粘贴到Rmarkdown里面，点击knit就可以生成结果了。同时为了方便，我将生成的网页转为pdf格式一并上传。

支持一下把

学习一下，谢谢楼主。可是
上面的代码复制后粘贴到Rmarkdown里面，点击knit就可以生成结果了
这句话我都没弄懂，实在是小白呀

tmdxyz 发表于 2017-6-9 06:26
学习一下，谢谢楼主。可是
上面的代码复制后粘贴到Rmarkdown里面，点击knit就可以生成结果了
这句话我都没 ...

建议安装Rstudio，点击左上角“+”号，第三个就是R markdown