如何用coord_flip仅翻转坐标而不反转其他可视化元素？

我正在编写一个带坐标翻转选项（通过coord_flip实现）的绘图函数，函数基于分组（使用fill参数）绘图。但使用coord_flip时，颜色、图例、值列和填充列的顺序都会被反转，因此我在函数中加入了一段繁琐的修正代码：

if(flip_coord){
  colors = c("#CC0000", "#002D73" ) %>% rev
  rev_legend = T
  table[[col_plot]] = fct_rev(table[[col_plot]]) # 值列
  table[['origin_table']] = fct_rev(table[['origin_table']]) # 填充列
  
} else{
  colors = c("#CC0000", "#002D73" ) 
  rev_legend = F
}

绘图代码中还加入了：

{if(flip_coord) coord_flip()} +

这种方法虽能修正混乱，但不够优雅。以下是可复现示例：

df =  tibble(origin = c('2000s', '1990s') %>% rep(2),
             region = c('South', 'North') %>% rep(2) %>% sort,
             value = 1:4) %>% 
  mutate(origin = factor(origin, levels = c('1990s', '2000s')),
         region = factor(region, levels = c('North', 'South')))

colors = c('red', 'blue')

常规绘图时元素顺序正常，但添加coord_flip()后，区域、分组顺序及图例都会反转。目前需通过反转因子、图例和颜色来修正，请问是否有更简便的方法仅翻转坐标而不改变其他元素的顺序？

简便解决方案 #

无需手动反转因子、颜色和图例，只需针对翻转后的轴调整离散尺度的limits参数，同时保持填充图例的映射关系即可：

1. 维持轴的原有顺序：coord_flip()会交换x、y轴的位置，原本的离散轴（如示例中的region）会被自动反转顺序。通过scale_*_discrete(limits = levels(你的因子列))可以强制轴的顺序与原因子水平一致，避免自动反转。
2. 保持颜色与分组的对应：无需反转颜色向量，只需确保scale_fill_manual的breaks参数与原因子水平顺序一致，就能维持颜色和分组的正确映射，图例顺序也会保持不变。

基于你的可复现数据，优化后的绘图函数示例：

library(tidyverse)

# 复用你定义的df和colors
df =  tibble(origin = c('2000s', '1990s') %>% rep(2),
             region = c('South', 'North') %>% rep(2) %>% sort,
             value = 1:4) %>% 
  mutate(origin = factor(origin, levels = c('1990s', '2000s')),
         region = factor(region, levels = c('North', 'South')))

colors = c('red', 'blue')

# 优化后的绘图函数
plot_func <- function(df, flip_coord = FALSE) {
  # 基础绘图框架
  p <- ggplot(df, aes(x = region, y = value, fill = origin)) +
    geom_col(position = position_dodge()) +
    # 保持颜色与原因子水平的对应
    scale_fill_manual(values = colors, breaks = levels(df$origin))
  
  if(flip_coord) {
    p <- p + 
      coord_flip() +
      # 强制y轴（原x轴）保持原因子顺序
      scale_y_discrete(limits = levels(df$region))
  }
  
  return(p)
}

# 测试常规绘图
plot_func(df)

# 测试坐标翻转后的绘图（元素顺序不变）
plot_func(df, flip_coord = TRUE)

如果填充图例在翻转后仍出现顺序问题，可额外添加guides(fill = guide_legend(reverse = FALSE))来强制图例保持原顺序，但多数情况下通过breaks参数即可解决。

内容的提问来源于stack exchange，提问作者Juan C