在R中为多个图形添加标题

Question

我正在尝试为我的所有情节循环添加标题，这是我所做的：

首先我使用split() 函数拆分数据：

sep_team_season_stage <- split(data[cols], 
                              list(data$Season,data$Stage,data$Team),drop = TRUE)

然后我想绘制一堆雷达图：所以我使用了一个循环：

for (i in sep_team_season_stage){
  print(ggRadar(i, aes(group = "Team")))
}

然后我想为图表添加倾斜：我看到拆分功能产生的“标题”很好，所以我想回忆一下：

plotnames = names(sep_team_season_stage)

并添加到for循环中：

for (i in sep_team_season_stage){
  a=1,
  print(ggRadar(i, aes(group = "Team"))+ ggtitle(plotnames[a])),
  a= a+1
}

它不起作用，我该如何解决它？

Answer 1

没有数据可以对此进行测试，但在这种情况下，当您想要访问列表的名称时，您可以使用 imap from purrr ：

plot_list <- purrr::imap(sep_team_season_stage, 
                        ~ggRadar(.x, aes(group = "Team"))+ ggtitle(.y))

使用Map 并传递名称和数据。

plot_list <- Map(function(x, y) ggRadar(x, aes(group = "Team")) + ggtitle(y), 
                 sep_team_season_stage, names(sep_team_season_stage))