データ フレーム内で複数の変数を操作する効果的な方法を探しています。現在、dplyr を使用していますが、変数が増えると面倒になります。次のデータ フレームがあるとします。ここで、brd は車のブランド、ye は年、type は車のタイプ、cy と hp はタイプの特性です。
brd <-c("BMW","BMW","BMW","Volvo","Volvo", "Volvo","BMW","BMW","BMW","Volvo","Volvo","Volvo")
ye <- c(99,99,99,99,99,99,98,98,98,98,98,98)
type <- c(1,2,3,1,2,3,1,2,3,1,2,3)
cy <- c(1895,1991,1587,2435,2435,1596,1991,1588,1984,1596,1991,1588)
hp <- c(77,110,80,103,103,75,110,77,93,75,110,77)
df <- as.data.frame(brd)
df$ye <- ye
df$type <- type
df$cy <- cy
df$hp <- hp
df
brd ye type cy hp
1 BMW 99 1 1895 77
2 BMW 99 2 1991 110
3 BMW 99 3 1587 80
4 Volvo 99 1 2435 103
5 Volvo 99 2 2435 103
6 Volvo 99 3 1596 75
7 BMW 98 1 1991 110
8 BMW 98 2 1588 77
9 BMW 98 3 1984 93
10 Volvo 98 1 1596 75
11 Volvo 98 2 1991 110
12 Volvo 98 3 1588 77
毎年、同じブランドの他のすべての製品の製品特性の合計を計算し、それを新しい変数としてデータフレームに追加したいと考えています。現在、次のように dplyr を使用しています。
library(dplyr)
df <- df %>% group_by(brd, ye) %>%
mutate(sumall_cy = sum(cy),
sumall_hp = sum(hp))
df <- df %>%
mutate(sumother_cy = sumall_cy-cy,
sumother_hp = sumall_li-hp)
私が得るように
brd ye type cy hp sumall_cy sumall_hp sumother_cy sumother_hp
<fctr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1 BMW 99 1 1895 77 5473 267 3578 190
2 BMW 99 2 1991 110 5473 267 3482 157
3 BMW 99 3 1587 80 5473 267 3886 187
4 Volvo 99 1 2435 103 6466 281 4031 178
5 Volvo 99 2 2435 103 6466 281 4031 178
6 Volvo 99 3 1596 75 6466 281 4870 206
7 BMW 98 1 1991 110 5563 280 3572 170
8 BMW 98 2 1588 77 5563 280 3975 203
9 BMW 98 3 1984 93 5563 280 3579 187
10 Volvo 98 1 1596 75 5175 262 3579 187
11 Volvo 98 2 1991 110 5175 262 3184 152
12 Volvo 98 3 1588 77 5175 262 3587 185
より効率的な方法はありますか？私はこのstataコードのようにループすることを考えていました:
foreach x of varlist hp cy {
bysort ye: egen sumall_`x'= sum(`x')
gen sumother_`x'=(sumall_`x' -`x')}
どんな提案でも大歓迎です。