从 r 中的循环中自定义绘图的标题

Question

我创建了一个循环来：1）根据season 变量为每列生成百分比；和 2) 将百分比绘制成堆积条形图。

我想做两件事：1) 代替df[[b]] 作为输出df_percent 的第一列的名称，而是使用循环的实际列名称；和 2) 用循环的列名标记绘图的 x 轴

这是我用我的代码得到的最远距离：

colNames <- names(df)[-c(1,2,7,9,10,12,37,38,63,65,74,76,79,75,77,14,42,64,69,8,49,58,60,78)]
for(b in colNames){
  df_percent <- df %>% group_by(df[[b]]) %>% count(season) %>% mutate(Percent=n/sum(n)) %>% mutate(Percentage = round(Percent*100, digits=2)) %>% as.data.frame()
  print(df_percent)
  plt_pc <- ggplot(df_percent, aes(x=df_percent[,1], y=df_percent$Percentage, fill=df_percent$season)) +
    geom_bar(stat="identity") + geom_text(aes(label=round(Percentage)), position = position_stack(vjust = 0.5), size=3) + labs(y="Percentage (%)", title="Percentage Calculation", fill="season", x=df[[b]])
  print(plt_pc)
}

对于df_percent，我尝试过names(df_percent) = "df[[b]]"，但这无助于更改第一列的名称df_percent。对于该图，x=IPS[[b]] 从循环的列中给出一个随机值，并尝试为所有图的 x=paste0(colNames) 标记 x 轴，其中标题为循环的第一列。

有人知道如何解决这个问题吗？

Answer 1

如果没有可重复的示例，很难知道，但我认为这可以满足您的需求：

for(b in colNames){
  df_percent <- df %>% 
    group_by(!!!b) %>% 
    count(season) %>% 
    mutate(Percent=n/sum(n)) %>% 
    mutate(Percentage = round(Percent*100, digits=2)) %>% 
    as.data.frame()
  print(df_percent)

  plt_pc <- ggplot(df_percent, aes(x=df_percent[,1], y=Percentage, fill=season)) +
    geom_bar(stat="identity") + 
    geom_text(aes(label=round(Percentage)), position = position_stack(vjust = 0.5), size=3) + 
    labs(y="Percentage (%)", title="Percentage Calculation", fill="season", x=b)
  print(plt_pc)
}