如何在R语言绘图时将CSV属性数字映射为对应文本值？

我经常碰到这类需求，下面给你一步步拆解解决方案：

1. 读取分号分隔的CSV文件 #

你的CSV用分号作为分隔符，所以读取时要指定sep = ";"，避免默认逗号分隔出问题：

# 读取数据，stringsAsFactors设为FALSE避免自动转因子（后续手动控制更灵活）
df <- read.csv("your_data.csv", sep = ";", stringsAsFactors = FALSE)
# 查看读取结果，确认数据加载正确
head(df)

2. 创建属性值映射关系 #

根据你提供的属性含义记录，我们有三种常用的替换方式，按需选择即可：

方法一：Base R命名向量替换 #

先为attribute1创建映射向量，向量的名字对应原始数字值，向量的值对应目标文本：

attr1_map <- c("2" = "Hello", "4" = "Goodbye", "7" = "Example")
# 将attribute1的数字替换为对应文本
df$attribute1 <- attr1_map[as.character(df$attribute1)]

注意：这里把数字转成字符是为了和命名向量的名字匹配；如果原始数据里有映射表之外的数字，结果会变成NA，你可以用ifelse补充处理未匹配的情况，比如保留原始数字。

方法二：因子级别替换（推荐，绘图更省心） #

把attribute1转成因子类型，直接修改其级别为对应文本，这种方式在绘图时会自动使用文本标签：

df$attribute1 <- factor(df$attribute1, 
                        levels = c(2, 4, 7),  # 原始数字值
                        labels = c("Hello", "Goodbye", "Example"))  # 对应的文本标签

这种方法的优势是后续绘图无需额外处理，ggplot2或Base R绘图都会直接显示文本；如果有未在levels里的数字，会自动转为NA，你可以添加exclude = NULL保留原始值，或者补充对应的levels和labels。

方法三：tidyverse风格的recode替换 #

如果你习惯用tidyverse工具链，dplyr::recode可以一行完成替换，还能灵活处理未匹配值：

library(dplyr)
df <- df %>% 
  mutate(attribute1 = recode(attribute1, 
                             `2` = "Hello", 
                             `4` = "Goodbye", 
                             `7` = "Example",
                             .default = as.character(attribute1)))  # 未匹配的数字保留原内容

3. 绘图验证替换结果 #

用ggplot2画个简单的柱状图，确认文本标签正常显示：

library(ggplot2)
ggplot(df, aes(x = attribute1)) +
  geom_bar(fill = "#4682B4") +
  labs(title = "Attribute1 分布情况", x = "Attribute1 文本值", y = "计数")

运行后你会看到x轴显示的是"Hello"、"Goodbye"这类文本，而不是原始数字。

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