將多組測量列（寬格式）整形為單列（長格式）我有一個寬格式的數(shù)據(jù)幀，在不同的日期范圍內(nèi)重復測量。在我的例子中，有三個不同的時期，都有相應的值。例如，第一測量（Value1）是在測量期間從DateRange1Start到DateRange1End：ID DateRange1Start DateRange1End Value1 DateRange2Start DateRange2End Value2 DateRange3Start DateRange3End Value31 1/1/90 3/1/90 4.4 4/5/91 6/7/91 6.2 5/5/95 6/6/96 3.3 我希望將數(shù)據(jù)重新整形為長格式，以便將DateRangeXStart和DateRangeXEnd列分組。因此，原始表中的1行在新表中變?yōu)?行：ID DateRangeStart DateRangeEnd Value1 1/1/90 3/1/90 4.41 4/5/91 6/7/91 6.21 5/5/95 6/6/96 3.3我知道必須有一種方法可以用reshape2/ melt/ recast/ 來做到這一點tidyr，但我似乎無法弄清楚如何以這種特殊方式將多組度量變量映射到單個值列集。
4 回答
慕慕森
TA貢獻1856條經(jīng)驗 獲得超17個贊
reshape(dat, idvar="ID", direction="long",
varying=list(Start=c(2,5,8), End=c(3,6,9), Value=c(4,7,10)),
v.names = c("DateRangeStart", "DateRangeEnd", "Value") )
#-------------
ID time DateRangeStart DateRangeEnd Value
1.1 1 1 1/1/90 3/1/90 4.4
1.2 1 2 4/5/91 6/7/91 6.2
1.3 1 3 5/5/95 6/6/96 3.3
（根據(jù)Josh的建議添加了v.names。）
MMMHUHU
TA貢獻1834條經(jīng)驗 獲得超8個贊
以下是使用問題的方法tidyr。這是一個有趣的用例，它extract_numeric()用于從列名中提取組
library(dplyr)
library(tidyr)
a <- read.table(textConnection("
ID DateRange1Start DateRange1End Value1 DateRange2Start DateRange2End Value2 DateRange3Start DateRange3End Value3
1 1/1/90 3/1/90 4.4 4/5/91 6/7/91 6.2 5/5/95 6/6/96 3.3
"),header=TRUE)
a %>%
gather(variable,value,-ID) %>%
mutate(group = extract_numeric(variable)) %>%
mutate(variable = gsub("\\d","",x = variable)) %>%
spread(variable,value)
ID group DateRangeEnd DateRangeStart Value
1 1 1 3/1/90 1/1/90 4.4
2 1 2 6/7/91 4/5/91 6.2
3 1 3 6/6/96 5/5/95 3.3
- 4 回答
- 0 關注
- 668 瀏覽
添加回答
舉報
0/150
提交
取消