如何重命名mtcars数据集中cyl变量的特定观测值

你的代码存在两个关键问题：

• 错误地用自定义的c(99L, 99L, 99L, 99L, 5L, 5L)覆盖了mtcars原始的cyl列数据，完全丢失了原数据集的信息
• ggplot部分没有指定数据源和映射关系，无法生成有效柱状图

以下是两种符合需求的正确实现方式：

方法一：使用因子（factor）转换（和你最初的思路匹配） #

直接基于原始mtcars数据的cyl列进行因子转换，保留原数据的同时完成值的映射：

library(dplyr)
library(ggplot2)

# 转换cyl变量为因子并替换标签
mtcars_transformed <- mtcars %>%
  mutate(
    cyl = factor(
      cyl,
      levels = c(4, 6, 8),
      labels = c("Four Cylinder", "Six Cylinder", "Eight Cylinder")
    )
  )

# 绘制柱状图
ggplot(mtcars_transformed, aes(x = cyl)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))  # 加上hjust=1让x轴标签更美观

方法二：使用case_when（更灵活的条件替换） #

如果需要更灵活的多条件替换，推荐用case_when：

library(dplyr)
library(ggplot2)

mtcars_transformed <- mtcars %>%
  mutate(
    cyl = case_when(
      cyl == 4 ~ "Four Cylinder",
      cyl == 6 ~ "Six Cylinder",
      cyl == 8 ~ "Eight Cylinder",
      TRUE ~ as.character(cyl)  # 处理意外值（mtcars里不存在，可省略）
    )
  )

# 绘制柱状图
ggplot(mtcars_transformed, aes(x = cyl)) +
  geom_bar() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

两种方法都能将cyl的4、6、8分别替换为指定文本，且保留原数据集的其他变量。注意提前加载dplyr和ggplot2包，否则管道符%>%和ggplot相关函数会报错。

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