如何使用ggplot2增加PCA Biolot黄色圆圈内的文本大小？

library(ggplot2)
# 假设你已经准备好了PCA的结果数据，存储在一个数据框中
# 数据框包含两列：PC1和PC2，分别表示主成分1和主成分2的值
pca_data <- data.frame(PC1 = ..., PC2 = ...)
# 创建PCA Biolot图表
p <- ggplot(pca_data, aes(x = PC1, y = PC2)) + 
       geom_point()  # 绘制散点图

# 假设你想添加文本的坐标为x = 0, y = 0
text_x <- 0
text_y <- 0
text_label <- "文本内容"  # 替换为你想显示的文本内容

p <- p + geom_text(aes(x = text_x, y = text_y, label = text_label),
                   color = "yellow")  # 设置文本颜色为黄色

text_size <- 10  # 替换为你想要的文本大小

p <- p + theme(text = element_text(size = text_size))

library(ggplot2)

pca_data <- data.frame(PC1 = ..., PC2 = ...)

p <- ggplot(pca_data, aes(x = PC1, y = PC2)) + 
       geom_point()

text_x <- 0
text_y <- 0
text_label <- "文本内容"

p <- p + geom_text(aes(x = text_x, y = text_y, label = text_label),
                   color = "yellow")

text_size <- 10

p <- p + theme(text = element_text(size = text_size))

# 打印图表
print(p)