R：データフレーム合計する行をループすると、私は次のようなデータフレームを持って

Question

値：

team playername points 
team1 player1  80 
team1 player2  40 
... 
team2 player1  98 
... 
team20 player1 40 

それは3列、チーム名、選手名、およびプレイヤーが獲得した合計ポイントを持っています。私がしたいことは、データフレームをループし、チームごとに合計を計算することです。次の例では、team1の合計ポイントは120になります。私はいくつかの出力を取得しようとする以前のいくつかのテストコードを書いた：

curTeam = "" 
count = 0 
for (i in df) { 
    if (curTeam == i$Team) { 
     count = count + i$points 
    } else { 
     print (count) 
     curTeam = i$Team 
     count = i$points 
    } 
} 

私は次のエラーを取得しています：

$ operator is invalid for atomic vectors

は、私が何をしようとしている行うには良い方法はありますか？

ありがとうございました。

Answer 1

これはいかがですか？

df <- read.table(text = "team playername points 
team1 player1  80 
team1 player2  40 
team2 player1  98 
team20 player1 40", header = TRUE) 

library(tidyr) 
library(dplyr) 
df %>% group_by(team) %>% summarise(sum(points))