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

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

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

• diagnosis.RData
• codenew.R

2018-12-17 23:16:04 上传

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：长宽数据转换

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

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)