如何使用带有list函数的标签数据框来代替ggplot2函数？

# 创建标签数据框
labels <- list(
  c("Label 1", "Label 2", "Label 3"),
  c("Label A", "Label B", "Label C")
)

# 创建空白绘图对象
plot(0, 0, type = "n", xlim = c(0, 10), ylim = c(0, 10))

# 添加标签
text(x = c(2, 5, 8), y = c(3, 6, 9), labels = labels[[1]])
text(x = c(3, 6, 9), y = c(2, 5, 8), labels = labels[[2]])

# 设置其他属性
title(main = "Plot with Labels")
xlabel <- expression("X Axis")
ylabel <- expression("Y Axis")
axis(1, label = xlabel)
axis(2, label = ylabel)
legend("topright", legend = c("Group 1", "Group 2"), col = 1:2, pch = 1)