如何解决geom_area图表中Y轴刻度设置无效的问题？

问题说明 #

用ggplot绘制面积图时，已通过scale_y_continuous指定Y轴刻度为c(10000, 11000, 13000, 14000)，但生成的图表Y轴刻度显示异常（表现为重复的小数值，如10.0、13.0重复出现）。

原代码 #

ggplot(pop_idade_escolar_americana, aes(x = Ano, y = De.0a5.anos)) +
  geom_area( fill="#69b3a2", alpha=0.4) +
  geom_line(color="#69b3a2", size=2) +
  geom_point(size=3, color="#69b3a2") +
  scale_y_continuous(breaks = c(10000, 11000, 13000, 14000),
                     labels = comma_format(big.mark = ".")) +
  labs(y = NULL,
       x = NULL) +
  hrbrthemes::theme_ipsum()

异常图表 #

原因及修复方案 #

核心原因1：未加载scales包 #

comma_format函数属于scales包，若未提前加载，ggplot无法正确解析标签格式化规则，导致刻度显示混乱。

核心原因2：刻度与数据范围不匹配 #

如果De.0a5.anos列的实际数值远小于指定的刻度（比如实际是10-14而非10000-14000），ggplot会自动调整刻度范围，使得自定义刻度无法正常显示，同时生成重复的默认刻度。

修复代码1：确保加载依赖包 #

library(scales)  # 必须加载该包才能使用comma_format
library(ggplot2)
library(hrbrthemes)

ggplot(pop_idade_escolar_americana, aes(x = Ano, y = De.0a5.anos)) +
  geom_area(fill="#69b3a2", alpha=0.4) +
  geom_line(color="#69b3a2", size=2) +
  geom_point(size=3, color="#69b3a2") +
  scale_y_continuous(breaks = c(10000, 11000, 13000, 14000),
                     labels = comma_format(big.mark = ".")) +
  labs(y = NULL, x = NULL) +
  theme_ipsum()

修复代码2：匹配数据实际范围 #

如果数据实际是10-14的数值，调整breaks参数对应范围：

library(scales)
library(ggplot2)
library(hrbrthemes)

ggplot(pop_idade_escolar_americana, aes(x = Ano, y = De.0a5.anos)) +
  geom_area(fill="#69b3a2", alpha=0.4) +
  geom_line(color="#69b3a2", size=2) +
  geom_point(size=3, color="#69b3a2") +
  scale_y_continuous(breaks = c(10, 11, 13, 14),  # 匹配实际数据范围
                     labels = comma_format(big.mark = ".")) +
  labs(y = NULL, x = NULL) +
  theme_ipsum()

修复代码3：强制Y轴范围（确认数据为10000-14000时） #

添加limits参数锁定Y轴范围，避免自动缩放：

library(scales)
library(ggplot2)
library(hrbrthemes)

ggplot(pop_idade_escolar_americana, aes(x = Ano, y = De.0a5.anos)) +
  geom_area(fill="#69b3a2", alpha=0.4) +
  geom_line(color="#69b3a2", size=2) +
  geom_point(size=3, color="#69b3a2") +
  scale_y_continuous(breaks = c(10000, 11000, 13000, 14000),
                     labels = comma_format(big.mark = "."),
                     limits = c(10000, 14000)) +  # 强制Y轴范围
  labs(y = NULL, x = NULL) +
  theme_ipsum()

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