第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號(hào)安全,請(qǐng)及時(shí)綁定郵箱和手機(jī)立即綁定
已解決430363個(gè)問題,去搜搜看,總會(huì)有你想問的

將多組測(cè)量列(寬格式)整形為單列(長格式)

將多組測(cè)量列(寬格式)整形為單列(長格式)

將多組測(cè)量列(寬格式)整形為單列(長格式)我有一個(gè)寬格式的數(shù)據(jù)幀,在不同的日期范圍內(nèi)重復(fù)測(cè)量。在我的例子中,有三個(gè)不同的時(shí)期,都有相應(yīng)的值。例如,第一測(cè)量(Value1)是在測(cè)量期間從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/ 來做到這一點(diǎn)tidyr,但我似乎無法弄清楚如何以這種特殊方式將多組度量變量映射到單個(gè)值列集。
查看完整描述

4 回答

?
慕慕森

TA貢獻(xiàn)1856條經(jīng)驗(yàn) 獲得超17個(gè)贊

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。)


查看完整回答
反對(duì) 回復(fù) 2019-05-24
?
MMMHUHU

TA貢獻(xiàn)1834條經(jīng)驗(yàn) 獲得超8個(gè)贊


以下是使用問題的方法tidyr。這是一個(gè)有趣的用例,它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


查看完整回答
反對(duì) 回復(fù) 2019-05-24
  • 4 回答
  • 0 關(guān)注
  • 673 瀏覽

添加回答

舉報(bào)

0/150
提交
取消
微信客服

購課補(bǔ)貼
聯(lián)系客服咨詢優(yōu)惠詳情

幫助反饋 APP下載

慕課網(wǎng)APP
您的移動(dòng)學(xué)習(xí)伙伴

公眾號(hào)

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號(hào)