R语言ggplot2画图3

geom_label()和ggplot_Text()的使用详解

主要是用于在图中标注文本

??geom_label()可以查看其帮助文档
##Examples
p <- ggplot(mtcars, aes(wt, mpg, label = rownames(mtcars)))###建立一个新的画板，标记mtcars的行名
p + geom_text()##展示待标记的文本内容，待标记的文本坐标是(wt,mpg)  见图1


# Labels with background
p +  geom_label(aes(fill = factor(cyl)), colour = "white",family = "Times New Roman", fontface = "bold",check_overlab=TRUE)  ###带背景标注,背景填充白色，新罗马黑体字体，重叠去除，见图2

# Set aesthetics to fixed value
p + geom_point(color="green",aes(size = wt),pch=8) + ##点的颜色为绿色，点的大小按照wt进行分配
  geom_text(hjust = 0, nudge_x = 0.05,##标注的水平方向调整为0，x向右移0.05
            vjust = 0, nudge_y = 0.5,aes(colour = factor(cyl)),##标注的垂直方向调整为0，y向上移0.05
            angle=45,family = "Times New Roman",check_overlap = TRUE,fontface ="bold"