如何在scale_x_continuous中正确使用ifelse而不打乱坐标轴刻度？

问题描述 #

需要用同一代码绘制多幅图表，为提升数据可读性设置x轴刻度规则：当INIMEST列的最大值≥500时，x轴范围设为0到5000；否则设为0到500。使用ChatGPT提供的代码后，x轴刻度异常变为-0.05到0.05。

示例数据与原始代码如下：

VOORTOOJOUD <- data.frame(
  AMETIALAGRUPP = c("Admin","Admin","Ametnik","Ametnik"),
  TUNNUS = c("SISSERANNE","VALJARANNE","SISSERANNE","VALJARANNE"),
  INIMEST = c(4000,3500,20,30)
)

VOORTOOJOUD <- VOORTOOJOUD %>%
    filter(AMETIALAGRUPP == "Admin")

ggplot(VOORTOOJOUD ,aes(y=TUNNUS, x=INIMEST, fill=TUNNUS))+
    geom_bar(stat = 'identity', width = 0.5)+
    scale_fill_manual(values = c("VALJARANNE" = "#d30031",
                                 "SISSERANNE" = "#ff9e16"),
                      name=" ",
                      labels=c("Väljaränne","Sisseränne"))+
    theme_minimal(base_size = 20)+
    xlab("Inimest")+
    scale_x_continuous(limits = ifelse(max(VOORTOOJOUD$INIMEST) >= 500, c(0, 5000), c(0, 500))) +
    geom_text(aes(label = INIMEST), hjust = -0.1, colour = "Black")+
    theme(legend.position = "bottom",
          axis.title.y=element_blank(),
          axis.text.y=element_blank(),
          panel.grid.major.y = element_blank(),
          panel.grid.minor = element_blank())

错误原因 #

ifelse函数的设计逻辑是对向量的每个元素进行条件判断并返回对应结果，当传入长度为2的向量作为返回值时，它只会返回第一个元素（因为条件是单个布尔值），导致limits实际被设置为0而非预期的范围向量。ggplot收到单个数值作为范围参数时，会自动将x轴缩放为围绕该值的极小范围，从而出现异常刻度。

解决方案 #

改用标准的if...else语句替代ifelse，if...else可以完整返回长度为2的范围向量，符合scale_x_continuous(limits)的参数要求：

核心修改片段 #

scale_x_continuous(limits = if (max(VOORTOOJOUD$INIMEST) >= 500) c(0, 5000) else c(0, 500)) +

完整修正代码 #

VOORTOOJOUD <- data.frame(
  AMETIALAGRUPP = c("Admin","Admin","Ametnik","Ametnik"),
  TUNNUS = c("SISSERANNE","VALJARANNE","SISSERANNE","VALJARANNE"),
  INIMEST = c(4000,3500,20,30)
)

VOORTOOJOUD <- VOORTOOJOUD %>%
    filter(AMETIALAGRUPP == "Admin")

ggplot(VOORTOOJOUD ,aes(y=TUNNUS, x=INIMEST, fill=TUNNUS))+
    geom_bar(stat = 'identity', width = 0.5)+
    scale_fill_manual(values = c("VALJARANNE" = "#d30031",
                                 "SISSERANNE" = "#ff9e16"),
                      name=" ",
                      labels=c("Väljaränne","Sisseränne"))+
    theme_minimal(base_size = 20)+
    xlab("Inimest")+
    scale_x_continuous(limits = if (max(VOORTOOJOUD$INIMEST) >= 500) c(0, 5000) else c(0, 500)) +
    geom_text(aes(label = INIMEST), hjust = -0.1, colour = "Black")+
    theme(legend.position = "bottom",
          axis.title.y=element_blank(),
          axis.text.y=element_blank(),
          panel.grid.major.y = element_blank(),
          panel.grid.minor = element_blank())

运行修正后的代码，x轴会根据INIMEST的最大值自动切换到正确范围，示例数据中最大值为4000≥500，x轴范围会被设置为0到5000，图表显示正常。

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