如何在R中实现Excel希腊字母经reshape2处理后在ggplot2图例正确显示？

针对读取含Unicode希腊字母的Excel文件、经reshape2::melt处理后图例显示异常的问题，以下是几个可行的解决办法：

方法1：手动指定图例标签 #

绘图时通过scale_color_discrete和scale_linetype_discrete直接定义带希腊字母的标签，支持expression()解析：

data <- read_excel("file.xlsx", sheet=sheet)
data <- melt(data, id.vars = c("X"))

# 假设variable现有取值为c("alpha_col", "beta_col", "gamma_col")，对应设置希腊字母标签
label_vec <- c(expression(alpha), expression(beta), expression(gamma))

g <- ggplot(data, aes(x=X)) +
  geom_ma(aes(y=value, color=variable, linetype=variable)) +
  scale_color_discrete(labels = label_vec) +
  scale_linetype_discrete(labels = label_vec)

若variable是乱码的Unicode字符，先映射替换再解析：

# 替换异常值为可解析的文本
data$variable <- factor(data$variable, 
                        levels = c("乱码值1", "乱码值2"),
                        labels = c("alpha", "beta"))

# 让ggplot自动解析为希腊字母
g <- ggplot(data, aes(x=X)) +
  geom_ma(aes(y=value, color=variable, linetype=variable)) +
  scale_color_discrete(labels = function(x) parse(text=x)) +
  scale_linetype_discrete(labels = function(x) parse(text=x))

方法2：修正数据中variable的编码或取值 #

在melt后直接修复variable列的编码问题，或替换为可解析的表达式文本：

library(stringi)

data <- read_excel("file.xlsx", sheet=sheet)
data <- melt(data, id.vars = c("X"))

# 修复Unicode编码异常
data$variable <- stri_enc_toutf8(data$variable, is_unknown_8bit = TRUE)

# 或直接替换原列名为希腊字母表达式文本
data$variable <- dplyr::recode(data$variable,
                        "原列名1" = "alpha",
                        "原列名2" = "beta")

# 绘图时开启解析
g <- ggplot(data, aes(x=X)) +
  geom_ma(aes(y=value, color=variable, linetype=variable)) +
  scale_color_discrete(labels = parse(text = levels(data$variable))) +
  scale_linetype_discrete(labels = parse(text = levels(data$variable)))

方法3：设置R环境为UTF-8编码 #

在脚本开头配置编码，避免读取Excel时的编码混乱：

# 设置全局编码为UTF-8
options(encoding = "UTF-8")
Sys.setlocale(category = "LC_ALL", locale = "en_US.UTF-8") # Windows/macOS/Linux通用，Windows也可尝试"zh_CN.UTF-8"

data <- read_excel("file.xlsx", sheet=sheet)
data <- melt(data, id.vars = c("X"))

# 若修复编码后variable的希腊字母显示正常，直接绘图即可
g <- ggplot(data, aes(x=X)) +
  geom_ma(aes(y=value, color=variable, linetype=variable))

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