使用ggplot2绘制克利夫兰图（Cleveland plot）时无法生成图例的技术求助

我明白你的问题啦——ggplot2和base R的绘图系统是完全独立的，所以用base的legend()函数根本不会在ggplot生成的图上生效！要在ggplot里添加正确的图例，得遵循它的图层逻辑，核心是把你的宽格式数据转换成整洁格式（tidy data），让颜色映射绑定到数据列，这样ggplot就能自动帮你生成图例了。

具体解决方案步骤： #

• 转换数据格式：把你的宽数据（业务职能、起始工时、结束工时）转成长数据，新增一列标记工时类型（"Starting"或"Ending"）
• 重构ggplot代码：用单一的geom_point，通过aes(color = 工时类型)来映射颜色，再用scale_color_manual指定你想要的颜色
• 移除base R的legend()调用：ggplot会自动生成匹配的图例

修改后的完整代码： #

library(ggplot2)
library(ggthemes)
library(tidyr) # 用于数据格式转换

# 读取数据
data <- read.csv('/Users/zbhay/Documents/r-data.csv', header = 1)
# 重命名列（确保后续处理更清晰，可根据实际CSV列名调整）
colnames(data) <- c("business_function", "starting_hours", "ending_hours")

# 转换为整洁格式
tidy_data <- pivot_longer(
  data,
  cols = c(starting_hours, ending_hours), # 要转换的工时列
  names_to = "hour_type", # 新列：标记工时类型
  values_to = "hours" # 新列：存储工时数值
)
# 把列名替换成更友好的显示名称
tidy_data$hour_type <- factor(tidy_data$hour_type, 
                              levels = c("starting_hours", "ending_hours"),
                              labels = c("Starting", "Ending"))

# 绘制克利夫兰图
zb <- ggplot(data) + 
  # 保留线段层，连接每个业务职能的起始与结束点
  geom_segment(aes(x = business_function, xend = business_function, 
                   y = starting_hours, yend = ending_hours), 
               color = "black") + 
  # 用单一geom_point，通过color映射工时类型生成图例
  geom_point(data = tidy_data, 
             aes(x = business_function, y = hours, color = hour_type), 
             size = 4) +
  # 自定义颜色，和你原始设置的颜色一致
  scale_color_manual(values = c(
    "Starting" = rgb(0.2,0.7,0.1,1),
    "Ending" = rgb(0.7,0.2,0.1,1)
  )) +
  coord_flip() + 
  theme_solarized() + 
  scale_y_continuous(breaks = seq(0, 10000, by = 500)) +
  # 添加标签和标题，同时自定义图例标题
  labs(title = "Title", 
       subtitle = "subtitle",
       x = "Business Functions", 
       y = "# of hours",
       color = "Hour Type") 

# 如果想调整图例位置，比如放到左侧，可添加以下代码：
# zb <- zb + theme(legend.position = "left")

print(zb)

关键说明： #

• 用pivot_longer把原来的两列工时数据合并成一列，同时用hour_type列区分类型，这是ggplot能生成图例的核心——颜色映射必须对应数据中的分类变量
• 线段层仍然基于原始宽数据，因为它需要直接连接每个业务职能的两个点
• scale_color_manual可以完全自定义你想要的颜色，和你最初的设置保持一致
• 图例会自动适配ggplot主题，你可以通过theme(legend.position = "left")这类代码调整它的位置

这样修改后，你就能得到带有清晰图例的克利夫兰图，而且样式和ggplot的主题完全统一。

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