ggplot中图例键之间的间距

library(ggplot2)

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

# 创建一个散点图
plot <- ggplot(data, aes(x, y, color = group)) +
  geom_point() +
  labs(title = "Scatter Plot", x = "X", y = "Y", color = "Group")

# 调整图例键之间的间距
plot + theme(
  legend.spacing.x = unit(0.5, "cm"),  # 设置水平间距为0.5cm
  legend.spacing.y = unit(0.5, "cm")   # 设置垂直间距为0.5cm
)