tidyr学习笔记

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

1. ---
   
2. title: "tidyr"
   
3. author: "cxy"
   
4. date: "2017年8月4日"
   
5. output: html_document
   
6. ---
   
7. 
   
8. ```{r setup, include=FALSE}
   
9. knitr::opts_chunk$set(echo = TRUE)
   
10. ```
    
11. 
    
12. # 准备数据
    
13. 
    
14. ```{r warning=FALSE}
    
15. library(tidyr)
    
16. library(dplyr)
    
17. set.seed(10)
    
18. activities <- data.frame(
    
19. id = sprintf("x1.%02d", 1:10),
    
20. trt = sample(c('cnt', 'tr'), 10, T),
    
21. work.T1 = runif(10),
    
22. play.T1 = runif(10),
    
23. talk.T1 = runif(10),
    
24. work.T2 = runif(10),
    
25. play.T2 = runif(10),
    
26. talk.T2 = runif(10))
    
27. activities
    
28. ```
    
29. 
    
30. # 需要生成的终极效果
    
31. 
    
32. ```{r}
    
33. activities %>%
    
34.   gather(key, value, -id, -trt) %>%
    
35.   separate(key, into = c("location", "time")) %>%
    
36.   arrange(id, trt, time) %>%
    
37.   spread(location, value)
    
38. ```
    
39. 
    
40. # 逐步演示
    
41. 
    
42. ## 把除id和trt之外的字段变成记录或者叫观测值
    
43. 
    
44. ```{r}
    
45. a=gather(activities,key, value, -(id:trt))
    
46. a
    
47. ```
    
48. 
    
49. ## 把key拆分成两列
    
50. 
    
51. ```{r}
    
52. b=separate(a,key,c("location", "time"))
    
53. b
    
54. ```
    
55. 
    
56. ## 按照id、trt、time三个关键字进行排序
    
57. 
    
58. ```{r}
    
59. c=arrange(b,id,trt,time)
    
60. c
    
61. ```
    
62. 
    
63. ## 把location的字段值变成字段，值为value
    
64. 
    
65. ```{r}
    
66. d=spread(c,location,value)
    
67. d
    
68. ```
    
69. 
    
70. # 倒回去，d生成定制化的结果activities
    
71. 
    
72. ## 把play、talk、work字段变成字段值，建立字段location、value
    
73. 
    
74. ```{r}
    
75. e=gather(d,location,value,play:work)
    
76. e
    
77. ```
    
78. 
    
79. ## 把location和time字段合并，建立字段key
    
80. 
    
81. ```{r}
    
82. f=unite(e,key,location,time,sep=".")
    
83. f
    
84. ```
    
85. 
    
86. ## 把key的字段值变成字段
    
87. 
    
88. ```{r}
    
89. g=spread(f,key,value)
    
90. g
    
91. ```
    
92. 
    
93. # d生成activities一步优雅实现
    
94. 
    
95. ```{r}
    
96. d %>%
    
97.   gather(location,value,play:work) %>%
    
98.   unite(key,location,time,sep=".") %>%
    
99.   spread(key,value)
    
100. ```
     
101. ---
     
102. title: "tidyr"
     
103. author: "cxy"
     
104. date: "2017年8月4日"
     
105. output: html_document
     
106. ---
     
107. 
     
108. ```{r setup, include=FALSE}
     
109. knitr::opts_chunk$set(echo = TRUE)
     
110. ```
     
111. 
     
112. # 准备数据
     
113. 
     
114. ```{r warning=FALSE}
     
115. library(tidyr)
     
116. library(dplyr)
     
117. set.seed(10)
     
118. activities <- data.frame(
     
119. id = sprintf("x1.%02d", 1:10),
     
120. trt = sample(c('cnt', 'tr'), 10, T),
     
121. work.T1 = runif(10),
     
122. play.T1 = runif(10),
     
123. talk.T1 = runif(10),
     
124. work.T2 = runif(10),
     
125. play.T2 = runif(10),
     
126. talk.T2 = runif(10))
     
127. activities
     
128. ```
     
129. 
     
130. # 需要生成的终极效果
     
131. 
     
132. ```{r}
     
133. activities %>%
     
134.   gather(key, value, -id, -trt) %>%
     
135.   separate(key, into = c("location", "time")) %>%
     
136.   arrange(id, trt, time) %>%
     
137.   spread(location, value)
     
138. ```
     
139. 
     
140. # 逐步演示
     
141. 
     
142. ## 把除id和trt之外的字段变成记录或者叫观测值
     
143. 
     
144. ```{r}
     
145. a=gather(activities,key, value, -(id:trt))
     
146. a
     
147. ```
     
148. 
     
149. ## 把key拆分成两列
     
150. 
     
151. ```{r}
     
152. b=separate(a,key,c("location", "time"))
     
153. b
     
154. ```
     
155. 
     
156. ## 按照id、trt、time三个关键字进行排序
     
157. 
     
158. ```{r}
     
159. c=arrange(b,id,trt,time)
     
160. c
     
161. ```
     
162. 
     
163. ## 把location的字段值变成字段，值为value
     
164. 
     
165. ```{r}
     
166. d=spread(c,location,value)
     
167. d
     
168. ```
     
169. 
     
170. # 倒回去，d生成定制化的结果activities
     
171. 
     
172. ## 把play、talk、work字段变成字段值，建立字段location、value
     
173. 
     
174. ```{r}
     
175. e=gather(d,location,value,play:work)
     
176. e
     
177. ```
     
178. 
     
179. ## 把location和time字段合并，建立字段key
     
180. 
     
181. ```{r}
     
182. f=unite(e,key,location,time,sep=".")
     
183. f
     
184. ```
     
185. 
     
186. ## 把key的字段值变成字段
     
187. 
     
188. ```{r}
     
189. g=spread(f,key,value)
     
190. g
     
191. ```
     
192. 
     
193. # d生成activities一步优雅实现
     
194. 
     
195. ```{r}
     
196. d %>%
     
197.   gather(location,value,play:work) %>%
     
198.   unite(key,location,time,sep=".") %>%
     
199.   spread(key,value)
     
200. ```

复制代码

tidyr.pdf (260.66 KB)

2017-8-4 17:25:56 上传

扫码加我 拉你入群

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

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

分享0 收藏2 回帖

关键词：学习笔记 DYR tid 习笔记 Activities

XIE XIE, LEANR A LOT ON DPLYR.

很好的总结，多谢分享。