o(╥﹏╥)o多行数据同时进行长宽数据转换~

卑鄙的我lzw

724

收藏 2018-12-17

各位大哥哥，大姐姐

，小妹有一问题希望能与猪喂探讨(*^▽^*)，我今天学会了一个用melt函数进行多行数据同时长宽数据转换，就是下图中所示的，但是我觉得只学会这个不太好，我还想把下边的数据再返回成上边的数据结果，但是想了好久都不造肿么做（皱纹唰唰的长啊~~）。请问各位大神有木有啥法子啊

附件是数据以及从上边数据变成下边数据的代码。。。。

data-code.zip
大小:(3.06 KB)

马上下载

本附件包括：

diagnosis.RData
codenew.R

扫码加我拉你入群

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

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

全部回复

卑鄙的我lzw

2018-12-17 23:17:33

{:2_25:}许久不来论坛逛逛，现在发帖还要审核啦~~{:3_60:}

扫码加我拉你入群

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

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

cheetahfly

2018-12-18 16:11:44

library(tidyverse)
data.wide %>%
tbl_df() %>%
gather(test, test.result, TestA, TestB, TestC) %>%
gather(test_, test.date, TestA.date, TestB.date, TestC.date) %>%
mutate(test_ = str_remove_all(test_, ".date")) %>%
filter(test == test_) %>%
select(-test_) %>%
arrange(ID)

扫码加我拉你入群

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

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

栏目导航

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群