删除图例中的空格(ggplot)

library(ggplot2)

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

# 创建一个散点图，同时在图例中显示数据标签
plot <- ggplot(data, aes(x = x, y = y, color = label)) +
  geom_point() +
  labs(color = "Legend") +  # 设置图例标题为"Legend"
  guides(color = guide_legend(label.hjust = 0, label.vjust = 0)) +  # 设置图例标签左对齐
  theme(
    legend.position = "top",  # 设置图例位置为顶部
    legend.title = element_text(size = 12, face = "bold"),  # 设置图例标题的字体大小和样式
    legend.text = element_text(size = 10)  # 设置图例标签的字体大小
  )

# 绘制图形
plot