ggplot自定义geom_point形状图例并移除背景的实现问题

没问题，我来帮你搞定这个ggplot的图例问题！要实现你想要的效果，核心是把形状正确关联到图例标签，再移除多余的背景。下面是完整的可运行代码和详细说明：

完整解决方案代码 #

# 加载所需工具包
library(ggplot2)
library(dplyr)
library(tidyr)

# 你的原始数据集
df = data.frame( 
  measure = c("Measure A","Measure B","Measure C","Measure D", "Measure E","Measure F","Measure G"), 
  overall = c(56, 78, 19, 87, 45, 51, 19), 
  company = c(45, 89, 18, 98, 33, 55, 4), 
  company_p = c(32, 65, 5, 56, 12, 45, 10) 
)

# 转换为整洁格式（让ggplot更容易处理图例映射）
df_tidy <- df %>%
  select(measure, overall, company) %>%  # 选择需要可视化的两个系列
  pivot_longer(cols = -measure, names_to = "category", values_to = "value") %>%
  # 重命名类别，匹配你想要的图例文字
  mutate(category = case_when(
    category == "overall" ~ "Overall",
    category == "company" ~ "Company Last Year"
  ))

# 绘制目标图表
ggplot(df_tidy, aes(x = measure, y = value, shape = category)) +
  geom_point(size = 4) +  # 放大点的尺寸，让形状更清晰
  # 手动指定每个图例标签对应的形状
  scale_shape_manual(values = c(
    "Company Last Year" = 19,  # 圆形
    "Overall" = 124            # 竖线
  )) +
  # 移除图例背景和内部项的背景框
  theme(
    legend.background = element_blank(),
    legend.key = element_blank()
  ) +
  labs(x = "指标", y = "数值", shape = "")  # 自定义坐标轴标签，移除图例标题

关键步骤解释 #

你之前遇到的形状不匹配、图例异常问题，大概率是因为没有正确将形状映射到图例变量，而是手动给单个图层设置形状导致的。这里的核心解决点：

1. 转换为整洁格式：把宽格式数据转成长格式，让“Overall”和“Company Last Year”成为一个统一的category变量，这样ggplot能自动关联图例和形状。
2. 精准映射形状：通过scale_shape_manual明确指定每个图例标签对应的形状代码，确保名称和category的取值完全一致，避免匹配错误。
3. 清理图例样式：用theme里的element_blank()移除图例的背景和内部项的背景框，让图例更清爽。

备选方案（不转换数据的写法） #

如果不想整理数据，也可以直接用两个geom_point图层，但必须在每个图层的aes里指定shape映射，保证图例能识别：

ggplot(df, aes(x = measure)) +
  geom_point(aes(y = overall, shape = "Overall"), size = 4) +
  geom_point(aes(y = company, shape = "Company Last Year"), size = 4) +
  scale_shape_manual(values = c("Company Last Year" = 19, "Overall" = 124)) +
  theme(
    legend.background = element_blank(),
    legend.key = element_blank()
  ) +
  labs(x = "指标", y = "数值", shape = "")

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