ggplot使用咨询：如何修改指定系数点、置信区间与轴刻度的样式

问题原因说明 #

你之前使用scale_fill_manual未达到预期效果，是因为geom_point()和geom_pointrange()默认的颜色映射对应的是colour（线条/点的颜色属性），而非fill（填充属性），实心几何元素默认不会用到fill映射。

实现方案 #

1. 预处理数据集，新增高亮标识列

# 给数据框添加标记列，标记需要高亮的Model 3
d$highlight <- ifelse(d$var == "Model 3", TRUE, FALSE)

2. 基础实现（无需额外安装包）

library(ggplot2)

# 定义x轴刻度标签的样式，顺序和你设定的model_order保持一致
n_model <- length(model_order)
# 字体粗细：仅Model 3为粗体
label_face <- rep("plain", n_model)
label_face[which(model_order == "Model 3")] <- "bold"
# 标签颜色：仅Model 3为红色
label_color <- rep("black", n_model)
label_color[which(model_order == "Model 3")] <- "red"

ggplot(d, aes(x = var, y = coef)) + 
  geom_point(aes(colour = highlight), size = 2) + 
  geom_pointrange(aes(ymin = cilow, ymax = ciupper, colour = highlight)) + 
  scale_x_discrete(limits = model_order, labels = model_label) + 
  # 手动设置颜色：非高亮为深灰色，高亮为红色
  scale_colour_manual(values = c("FALSE" = "grey30", "TRUE" = "red")) + 
  # 隐藏不需要的颜色图例
  guides(colour = "none") +
  theme_minimal() +
  # 应用x轴刻度标签样式
  theme(
    axis.text.x = element_text(face = label_face, color = label_color)
  )

3. 灵活扩展方案（支持复杂标签样式）

如果需要给标签加斜体、混合字号等更复杂的样式，可以搭配ggtext包实现：

# 首次使用先安装包：install.packages("ggtext")
library(ggtext)

# 修改标签，给Model 3加上HTML格式的粗体+颜色定义
new_label <- model_label
new_label[which(model_label == "Model 3")] <- "<b style='color:red;'>Model 3</b>"

ggplot(d, aes(x = var, y = coef)) + 
  geom_point(aes(colour = highlight), size = 2) + 
  geom_pointrange(aes(ymin = cilow, ymax = ciupper, colour = highlight)) + 
  scale_x_discrete(limits = model_order, labels = new_label) + 
  scale_colour_manual(values = c("FALSE" = "grey30", "TRUE" = "red")) + 
  guides(colour = "none") +
  theme_minimal() +
  # 启用markdown格式解析
  theme(
    axis.text.x = ggtext::element_markdown()
  )

补充说明 #

• 如需修改高亮的颜色，直接调整scale_colour_manual中"TRUE"对应的色值即可
• 如需高亮多个模型，只要修改d$highlight的判断逻辑，同时给scale_colour_manual补充对应色值即可
• 单个标签的字号、角度等属性都可以通过给element_text传入和标签等长的向量单独调整

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