r-在润滑包的lakers数据集应用扩散时的错误

Question

我试图分析2008年至2009年间每个湖人队球员的得分，并根据lubridate包的数据集湖人队每年的得分结果。

我正在尝试以下代码：

date <- lubridate :: lakers
date <- date %>%
mutate (Year = str_sub (date, 1, 4))%>%
filter (points> 0 & team == 'LAL')%>%
select (Year, player, points)%>%
group_by (Year, player)%>%
summarise (Total_points = sum (points))%>%
ungroup ()%>%
spread (player, points)  

但它在排列中失败，并出现以下错误：

Erro: Must extract column with a single valid subscript.
x Subscript `var` has the wrong type `function`.
ℹ It must be numeric or character.

我想知道问题出在哪里。我很感激任何帮助。

Answer 1

唯一的问题是，当您总结points时，忘记了它的名称是Total_points。您在最后一行调用points。此错误表示找不到您的变量。只需更正最后一行中变量的名称：

date <- lubridate :: lakers
date <- date %>%
mutate(Year = (str_sub(date, 1, 4))) %>%
filter(points> 0 & team == 'LAL')%>%
select(Year, player, points)%>%
group_by(Year, player) %>%
summarise(Total_points = sum(points))%>%
ungroup()%>%
spread(player, Total_points)