如何使轴标题与R中的两行相匹配？

library(ggplot2)

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

# 创建一个散点图
plot <- ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  labs(
    x = "横轴标题",
    y = "纵轴标题"
  )

# 自定义轴标题的样式
plot <- plot +
  theme(
    axis.title.x = element_text(
      size = 12,              # 字体大小
      face = "bold",          # 字体加粗
      hjust = 0.5,            # 水平对齐方式（0为左对齐，0.5为居中对齐，1为右对齐）
      vjust = 1               # 垂直对齐方式（0为底部对齐，0.5为居中对齐，1为顶部对齐）
    ),
    axis.title.y = element_text(
      size = 12,
      face = "bold",
      hjust = 0.5,
      vjust = 1
    )
  )

# 显示图形
print(plot)