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

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

計(jì)算有關(guān)數(shù)據(jù)子集的統(tǒng)計(jì)信息

計(jì)算有關(guān)數(shù)據(jù)子集的統(tǒng)計(jì)信息

寶慕林4294392 2019-10-22 21:55:36
這是我的數(shù)據(jù)的一個(gè)可重現(xiàn)的小示例:> mydata <- structure(list(subject = c(1, 1, 1, 2, 2, 2), time = c(0, 1, 2, 0, 1, 2), measure = c(10, 12, 8, 7, 0, 0)), .Names = c("subject", "time", "measure"), row.names = c(NA, -6L), class = "data.frame")> mydatasubject  time  measure1          0      101          1      121          2       82          0       72          1       02          2       0我想生成一個(gè)包含該measure特定主題的平均值的新變量,因此:subject  time  measure  mn_measure1          0      10      101          1      12      101          2       8      102          0       7      2.3332          1       0      2.3332          2       0      2.333除了以編程方式遍歷所有記錄或首先重塑為寬格式之外,是否有一種簡(jiǎn)單的方法可以做到這一點(diǎn)?
查看完整描述

3 回答

?
慕妹3242003

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

使用base R函數(shù)ave(),盡管其名稱令人困惑,它仍可以計(jì)算各種統(tǒng)計(jì)信息,包括mean:


within(mydata, mean<-ave(measure, subject, FUN=mean))


  subject time measure      mean

1       1    0      10 10.000000

2       1    1      12 10.000000

3       1    2       8 10.000000

4       2    0       7  2.333333

5       2    1       0  2.333333

6       2    2       0  2.333333

請(qǐng)注意,我within只是為了縮短代碼而使用。這是沒有的等效項(xiàng)within():


mydata$mean <- ave(mydata$measure, mydata$subject, FUN=mean)

mydata

  subject time measure      mean

1       1    0      10 10.000000

2       1    1      12 10.000000

3       1    2       8 10.000000

4       2    0       7  2.333333

5       2    1       0  2.333333

6       2    2       0  2.333333


查看完整回答
反對(duì) 回復(fù) 2019-10-22
?
翻過高山走不出你

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

或者與data.table包:


require(data.table)

dt <- data.table(mydata, key = "subject")

dt[, mn_measure := mean(measure), by = subject]


#   subject time measure mn_measure

# 1:       1    0      10  10.000000

# 2:       1    1      12  10.000000

# 3:       1    2       8  10.000000

# 4:       2    0       7   2.333333

# 5:       2    1       0   2.333333

# 6:       2    2       0   2.333333


查看完整回答
反對(duì) 回復(fù) 2019-10-22
  • 3 回答
  • 0 關(guān)注
  • 541 瀏覽

添加回答

舉報(bào)

0/150
提交
取消
微信客服

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

幫助反饋 APP下載

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

公眾號(hào)

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