如何逐句计算行数

Question

我有这样的数据集，我们称之为df：

Vehicle     Period   Safety.Score
    W01   6/1/2015             45
    W01   6/2/2015             32
    W02   6/2/2015             45
    W02   6/4/2015             35

我想将Safety.Score列更改为Average.Score：将每辆车的得分相加并除以日期数字，同时删除期间列。预期的产出将是：

Vehicle   Average.Score
    W01            38.5
    W02              40

我所做的是这样的：

df1 <- df %>% 
       group_by(Vehicle) %>%
       summarize(Average.Score = sum(Safety.Score) / count(Vehicle))

但这不起作用，任何帮助都会受到赞赏！