如何在ggplot中通过变量控制性别类别的叠加显示？

参考数据结构 #

示例代码 #

ggplot(data = marvel_count, aes(year, n, color = gender)) +
  geom_line(size = 1) +
  geom_point() + 
  labs(title = "New Marvel characters by alignment & gender",
       subtitle = "(limited to characters with more than 100 appearances)",
       y = "Count of new characters", x = "")+ 
  facet_grid(. ~ align) 

能否控制图形的叠加显示，实现仅显示女性、仅显示男性或同时显示两者？我推测需要对color参数（我的代码中用type替代gender）进行调整，希望通过一个变量来实现该控制。

请问该需求是否可行？是否需要调整图形代码结构？或者能否提供相关方向指引？

这个需求完全可行，不需要大幅改动原有代码结构，以下是几种实用实现方向：

• 数据筛选法（最直接）
  定义一个控制变量，通过筛选数据来决定显示内容：

  # 定义控制变量，可选值："F"、"M"、c("F","M")
  show_type <- "F"
  
  # 筛选目标数据
  filtered_data <- marvel_count[marvel_count$type %in% show_type, ]
  
  # 原有绘图逻辑不变，传入筛选后的数据即可
  ggplot(data = filtered_data, aes(year, n, color = type)) +
    geom_line(size = 1) +
    geom_point() + 
    labs(title = "New Marvel characters by alignment & type",
         subtitle = "(limited to characters with more than 100 appearances)",
         y = "Count of new characters", x = "")+ 
    facet_grid(. ~ align) 
  

• 颜色映射隐藏法（不筛选数据）
  如果需要保留原始数据的坐标轴范围，可通过把不需要的类别设为透明色来隐藏：

  # 定义控制变量
  show_type <- "M"
  
  # 生成颜色映射：仅保留目标类别的颜色，其余设为透明
  type_levels <- unique(marvel_count$type)
  color_vals <- ifelse(type_levels %in% show_type, 
                       scales::hue_pal()(length(type_levels)), 
                       NA)
  names(color_vals) <- type_levels
  
  # 绘图时应用自定义颜色映射
  ggplot(data = marvel_count, aes(year, n, color = type)) +
    geom_line(size = 1) +
    geom_point() + 
    scale_color_manual(values = color_vals) +
    labs(title = "New Marvel characters by alignment & type",
         subtitle = "(limited to characters with more than 100 appearances)",
         y = "Count of new characters", x = "")+ 
    facet_grid(. ~ align) 
  

• 封装函数（方便重复调用）
  若需要频繁切换显示状态，可把逻辑封装成函数：

  plot_marvel <- function(show_type = c("F","M")) {
    filtered_data <- marvel_count[marvel_count$type %in% show_type, ]
    ggplot(data = filtered_data, aes(year, n, color = type)) +
      geom_line(size = 1) +
      geom_point() + 
      labs(title = "New Marvel characters by alignment & type",
           subtitle = "(limited to characters with more than 100 appearances)",
           y = "Count of new characters", x = "")+ 
      facet_grid(. ~ align) 
  }
  
  # 调用示例
  plot_marvel("F") # 仅显示女性
  plot_marvel("M") # 仅显示男性
  plot_marvel()    # 同时显示两者
  

内容的提问来源于stack exchange，提问作者Dianna Li