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

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

dplyr mutate rowSums計(jì)算或自定義函數(shù)

dplyr mutate rowSums計(jì)算或自定義函數(shù)

慕運(yùn)維8079593 2019-11-29 10:19:40
我正在嘗試從行計(jì)算中突變一個(gè)新變量,rowSums如下所示iris %>%   mutate_(sumVar =             iris %>%             select(Sepal.Length:Petal.Width) %>%            rowSums)結(jié)果是“ sumVar”被截?cái)酁槠涞谝粋€(gè)值(10.2):Source: local data frame [150 x 6]Groups: <by row>   Sepal.Length Sepal.Width Petal.Length Petal.Width Species sumVar1           5.1         3.5          1.4         0.2  setosa   10.22           4.9         3.0          1.4         0.2  setosa   10.23           4.7         3.2          1.3         0.2  setosa   10.24           4.6         3.1          1.5         0.2  setosa   10.25           5.0         3.6          1.4         0.2  setosa   10.26           5.4         3.9          1.7         0.4  setosa   10.2..Warning message:Truncating vector to length 1 應(yīng)該rowwise應(yīng)用嗎?或在這類計(jì)算中使用的正確動(dòng)詞是什么。編輯:更具體地說(shuō),有什么方法可以用實(shí)現(xiàn)內(nèi)聯(lián)自定義功能dplyr嗎?我想知道是否有可能做類似的事情:iris %>%   mutate(sumVar = colsum_function(Sepal.Length:Petal.Width))
查看完整描述

3 回答

?
不負(fù)相思意

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

這更多是一種解決方法,但可以使用


iris %>% mutate(sumVar = rowSums(.[1:4]))

如注釋中所寫,您還可以使用selectmutate內(nèi)部來(lái)獲取要匯總的列,例如


iris %>% 

  mutate(sumVar = rowSums(select(., contains("Sepal")))) %>% 

  head 

要么


iris %>% 

  mutate(sumVar = select(., contains("Sepal")) %>% rowSums()) %>% 

  head


查看完整回答
反對(duì) 回復(fù) 2019-11-29
?
當(dāng)年話下

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

我正在使用這個(gè)簡(jiǎn)單的解決方案,它是對(duì)Davide Passaretti的回答的更強(qiáng)大的修改:


iris %>% select(Sepal.Length:Petal.Width) %>%

  transmute(sumVar = rowSums(.)) %>% bind_cols(iris, .)

(但是,這需要定義的行順序,這應(yīng)該很好,除非您可能使用遠(yuǎn)程數(shù)據(jù)集。)


查看完整回答
反對(duì) 回復(fù) 2019-11-29
?
藍(lán)山帝景

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

您也可以使用grep代替containsor matches,以防萬(wàn)一您需要熟悉正則表達(dá)式(matches根據(jù)我的經(jīng)驗(yàn),這似乎不太像否定的前瞻之類)。


iris %>% mutate(sumVar = rowSums(select(., grep("Sepal", names(.)))))


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

添加回答

舉報(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)