如何为多色分组条形图添加黑色轮廓并修改轴标签与刻度字体大小

我帮你调整了代码，实现了添加黑色条形轮廓和修改轴标签、刻度字体大小的需求，同时修正了原代码里的笔误（sale_fill_manual应该是scale_fill_manual）：

# 数据处理部分保持不变
mm1 <- melt(data[,c('label','cut_scorer1','cut_scorer2')], id = 1)

# 绘图部分修改
assign(cut_score, ggplot(mm1, aes(x = label, y = value, width = 0.8)) +
  # 添加黑色轮廓：color设为black，size控制轮廓粗细
  geom_bar(aes(fill = variable), stat = "identity", position = "dodge",
           color = "black", size = 0.5) +
  # 修正fill scale的函数名，保持原配色设置
  scale_fill_manual(values = alpha(c('lightgreen','darkgreen'), 0.7),
                    name = "Scorer", labels = c("1", "2")) +
  labs(title = paste(subject_name,"Cutting", ...)) +
  # 修改轴标签和刻度的字体大小
  theme(
    axis.text.x = element_text(size = 12),  # X轴刻度字体大小
    axis.text.y = element_text(size = 12),  # Y轴刻度字体大小
    axis.title.x = element_text(size = 14), # X轴标签字体大小
    axis.title.y = element_text(size = 14)  # Y轴标签字体大小
  )
)

关键修改说明： #

1. 添加黑色条形轮廓：在geom_bar()中加入color = "black"指定轮廓颜色，size参数可以调整轮廓的粗细（比如改成1会更粗）。
2. 调整轴文本大小：通过theme()里的axis.text（刻度）和axis.title（标签）参数，用element_text(size = ...)自定义字体大小，你可以根据需求修改数值。
3. 修正笔误：把原代码里的sale_fill_manual改成了正确的scale_fill_manual，否则代码会报错。

如果需要调整标题字体大小或者其他主题元素，也可以在theme()里继续添加对应的参数哦~

内容的提问来源于stack exchange，提问作者Czar.Wolfgang