使用haven与ggplot2遇rescale错误：haven_labelled类型适配问题

这个报错的核心原因是你的数据中仍存在未完全转换的haven_labelled类型变量——哪怕你用了as_factor，有时候变量会保留haven的标签属性，导致ggplot的内部函数（比如rescale）无法识别处理。

快速解决方法 #

直接用haven包的zap_labels()函数彻底清除所有变量的haven标签，将其转为R原生的基础类型（numeric/factor）：

library(haven)
# 清除整个数据框的所有标签
df <- zap_labels(df)

# 或者只处理绘图用到的特定列
df$养猫数量 <- zap_labels(df$养猫数量)
df$产品拥有情况 <- zap_labels(df$产品拥有情况)

完整绘图流程示例 #

结合你的需求（百分比堆叠条形图），给出完整可运行的代码：

library(haven)
library(ggplot2)
library(dplyr)

# 1. 导入SPSS数据
df <- read_sav("你的调查数据.sav")

# 2. 清除标签+转换变量类型
df <- df %>%
  zap_labels() %>%
  # 按需将分类变量转为factor，自定义标签
  mutate(
    养猫数量 = factor(养猫数量, labels = c("0只", "1只", "2只及以上")),
    产品拥有情况 = factor(产品拥有情况, labels = c("未拥有", "已拥有"))
  )

# 3. 计算分组百分比
plot_data <- df %>%
  count(养猫数量, 产品拥有情况) %>%
  group_by(养猫数量) %>%
  mutate(占比 = n / sum(n) * 100)

# 4. 绘制堆叠条形图
ggplot(plot_data, aes(x = 养猫数量, y = 占比, fill = 产品拥有情况)) +
  geom_bar(stat = "identity") +
  labs(x = "养猫数量", y = "人群占比(%)", fill = "产品拥有状态") +
  theme_minimal()

为什么之前as_factor没生效？ #

• 你可能没把转换结果赋值回原变量（比如只写了as_factor(df$列名)，而没写df$列名 <- as_factor(df$列名)）
• as_factor仅将标签转为因子水平，但部分情况下变量仍会保留haven_labelled的类属性，zap_labels()会彻底移除这些属性，转为纯R原生类型。

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