请教关于tidyr中gather函数的应用

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

原来的数据格式
希望的数据格式


请问如何用gather函数进行宽变长的变换，谢谢
数据：
structure(list(conc = c(0, 0.05), HMP = c(71.014, 71.5105), hmpSD = c(2.16233,
0.44194), PP = c(71.014, 72.975), PPSD = c(2.16233, 1.20491),
    TPP = c(71.014, 72.43), TPPSD = c(2.16233, 1.24305)), .Names = c("conc",
"HMP", "hmpSD", "PP", "PPSD", "TPP", "TPPSD"), row.names = c(NA,
-2L), class = c("tbl_df", "tbl", "data.frame"))
或
"conc" "HMP" "hmpSD" "PP" "PPSD" "TPP" "TPPSD"
0 71.014 2.16233 71.014 2.16233 71.014 2.16233
0.05 71.5105 0.44194 72.975 1.20491 72.43 1.24305

或下载txt
pp.txt (147 Bytes)

2017-5-28 20:27:13 上传

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：DYR The R函数 tid Structure

长宽数据变换，reshape2更方便把...

gongjiangchao 发表于 2017-5-29 23:43
长宽数据变换，reshape2更方便把...

reshape2升级后成了tidyr,后来又和ggplots包等集成了tidyverse

1. library(dplyr)
   
2. library(tidyr)
   
3. library(stringr)
   
4. 
   
5. data <- structure(list(conc = c(0, 0.05), HMP = c(71.014, 71.5105), hmpSD = c(2.16233,
   
6. 0.44194), PP = c(71.014, 72.975), PPSD = c(2.16233, 1.20491),
   
7.     TPP = c(71.014, 72.43), TPPSD = c(2.16233, 1.24305)), .Names = c("conc",
   
8. "HMP", "hmpSD", "PP", "PPSD", "TPP", "TPPSD"), row.names = c(NA,
   
9. -2L), class = c("tbl_df", "tbl", "data.frame"))
   
10. 
    
11. gather(data, key = type, value = hard, HMP, PP, TPP) %>%
    
12. gather(key = type2, value = sd, hmpSD, PPSD, TPPSD) %>%
    
13. filter(str_to_upper(type2) %>% gsub('SD','',.)==type) %>%
    
14. .[,c('conc','type','hard','sd')]

复制代码

万人往LVR 发表于 2017-5-30 15:40

这个办法不错，谢谢。

谢谢  万人往LVR