如何在ggplot的scale_shape_manual中使用":)"而非表情符号

scale_shape_manual() 本质依赖R的pch符号编码，仅支持预设符号，无法直接插入纯文本。要实现用纯文本:)作为指定类别的“形状”，需通过文本图层单独绘制的方式完成，以下是具体方案：

基础实现：替换单个类别的形状 #

先绘制普通散点（排除目标类别），再用geom_text()在目标类别的数据点位置添加纯文本:)：

library(ggplot2)

# 示例数据
df <- data.frame(
  x = 1:3,
  y = 1:3,
  category = c("A", "B", "C")
)

ggplot(df, aes(x, y, color = category)) +
  # 绘制非目标类别的散点
  geom_point(data = subset(df, category != "B"), size = 5) +
  # 为目标类别添加纯文本`:)`
  geom_text(
    data = subset(df, category == "B"),
    label = ":)",
    size = 8,  # 调整文本大小匹配散点
    color = "#00BFC4"  # 手动指定颜色，或保持与类别映射一致
  ) +
  theme_minimal()

结合scale_shape_manual的混合方案 #

如果其他类别需要保留不同形状，只需在scale_shape_manual()中定义非目标类别的符号，再用文本图层补充目标类别：

ggplot(df, aes(x, y, shape = category, color = category)) +
  geom_point(data = subset(df, category != "B"), size = 5) +
  geom_text(
    data = subset(df, category == "B"),
    label = ":)",
    size = 8
  ) +
  # 为其他类别定义形状
  scale_shape_manual(values = c(A = 16, C = 17)) +
  theme_minimal()

自定义图例（包含纯文本标记） #

如果需要图例中也显示:)，可以手动构建图例元素：

# 构建图例位置的数据
legend_data <- data.frame(
  x = rep(0.7, 3),
  y = c(3.5, 3, 2.5),
  category = c("A", "B", "C"),
  pch = c(16, NA, 17),
  text_label = c("", ":)", "")
)

ggplot(df, aes(x, y, color = category)) +
  geom_point(data = subset(df, category != "B"), aes(shape = category), size = 5) +
  geom_text(data = subset(df, category == "B"), label = ":)", size = 8) +
  # 添加图例的点和文本
  geom_point(data = legend_data, aes(shape = pch), size = 5) +
  geom_text(data = legend_data, aes(label = text_label), size = 8) +
  scale_shape_identity() +
  scale_color_discrete(guide = "none") +
  # 添加图例标签
  annotate("text", x = 0.5, y = legend_data$y, label = legend_data$category, hjust = 1) +
  theme_minimal()

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