在ggplot2中增加图例标题和标签之间的间距

library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  x = c(1, 2, 3),
  y = c(1, 2, 3),
  group = c("A", "B", "C")
)

# 创建一个散点图
p <- ggplot(data, aes(x, y, color = group)) +
  geom_point() +
  labs(color = "Group")

# 调整图例标题和标签之间的间距
p + theme(
  legend.title = element_text(margin = margin(b = 10)),  # 设置标题的间距
  legend.spacing.x = unit(0.5, "cm")  # 设置标签的间距
)