，这种时候就需要用到text()和label()了，下面以不同的示例来说明其常见用法：
用对应每一个样本的文本标签代替散点：
p <- ggplot(mtcars, aes(wt, mpg, label...= rownames(mtcars)))
p + geom_text()
对出现标签遮挡的情况进行抹除（不建议使用）：
p + geom_text(check_overlap = TRUE)...使用别致的标签：
p + geom_label()
改变文本标签的大小：
p + geom_text(size = 10)
调整文字标签位置：
p + geom_point() + geom_text...(hjust = 0, nudge_x = 0.05)
调整文字标签位置：
p + geom_point() + geom_text(vjust = 0, nudge_y = 0.5)
调整文本标签位置...= "white", fontface = "bold")
在图床指定位置添加文本标签：
df <- data.frame(
x = c(1, 1, 2, 2, 1.5),
y = c(1,
云服务器
ICP备案
对象存储
腾讯会议
云直播
