R 在雷达环路中添加不同颜色

嗨，我正试图在一个雷达图中想象不同颜色的NBA球队。 我做了一个循环函数，但是当我打印ggRadar时，它都显示相同的颜色。以下是我的代码：

#seperating the dataframe
cols <- c("Team", "FGM", "X3PM", "FTM", "AST", "BLK", "PTS")
sep_team_season_stage <- split(data[cols], 
                              list(data$Season,data$Stage,data$Team),drop = TRUE)


# create a plot list and match the names of the subset
plot_list <- Map(function(x, y) ggRadar(x, aes(group = Team)) + ggtitle(y), 
                 sep_team_season_stage, names(sep_team_season_stage))


#plot for loop and save 
for (i in plot_list)
  print(i)
  ggsave(names(i), plot = last_plot(), device = "png")

#分离数据帧
科尔斯