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.05vjust = 0, nudge_y = 0.5,aes(colour = factor(cyl)),##标注的垂直方向调整为0，y向上移0.05angle=45,family = "Times New Roman",check_overlap = TRUE,fontface ="bold")+  ##标记的倾角为45°，标记的字体(family)选择新罗马字体(fontface)黑体，有重叠的标记去掉scale_colour_discrete(l = 40)  见图3# Scale height of text, rather than sqrt(height)
p + geom_text(aes(size = wt)) +scale_radius(range = c(3,6))####标注不同的符号及公式
p + geom_point()+geom_text(aes(label = paste(wt, "^(", cyl, ")", sep = ""),hjust = 0, nudge_x = 0.05,###其中的paste 函数的使用vjust = 0, nudge_y = 0.5,colour = factor(cyl),size=wt,check_overlap = TRUE),parse = TRUE)+annotate("text", label = "plot mpg vs. wt", x = 2, y = 15, size = 8, colour = "red")###添加文本注释 ，标签为plot mpg vs. wt，x和y分别是添加的标签的中心位置 ，大小为8 ，颜色为红色  见图4# Aligning labels and bars --------------------------------------------------
df <- data.frame(x = factor(c(1, 1, 2, 2)),y = c(1, 3, 2, 1),grp = c("a", "b", "a", "b")
)# ggplot2 doesn't know you want to give the labels the same virtual width
# as the bars:
ggplot(data = df, aes(x, y, group = grp)) +geom_col(aes(fill = grp), position = "dodge") +geom_text(aes(label = y, y = y + 0.05), position = position_dodge(0.9),vjust=-1)##标签按照y 添加，添加的位置在dodge的0.9(中间或者1)，vjust调整垂直方向(1，向图形内部移，负值向图形外部移动)  见图5###position_dodge表示按照grp因子分开作图，position_stack()表示按照因子堆积作图
ggplot(data = df, aes(x, y, group = grp)) +geom_col(aes(fill = grp)) +geom_text(aes(label = y), position = position_stack(vjust = 0.5))见图6# Justification -------------------------------------------------------------
df <- data.frame(x = c(1, 1, 2, 2, 1.5),y = c(1, 2, 1, 2, 1.5),text = c("bottom-left", "bottom-right", "top-left", "top-right", "center")  ##标记一组标签
)ggplot(df, aes(x, y)) +geom_text(aes(label = text), vjust = "inward", hjust = "inward",colour="blue")##调整标签在途中的位置，向内部调整  见图7

图1

图2

图3
图4
图5
图6
图7

R语言ggplot2画图3相关推荐

R语言ggplot2画图
Content 1 r语言散点图 1.1 散点图 1.2 散点图阵 2 r语言直方图 2.1 规定柱子个数 bins = 60: 2.2不规定柱子个数,规定区间 binwidth = 5 3 R语言箱 ...
R语言ggplot2可视化左对齐两个可视化图像的画图区域（边缘）实战
R语言ggplot2可视化左对齐两个可视化图像的画图区域(边缘)实战目录 R语言ggplot2可视化左对齐两个可视化图像的画图区域(边缘)实战
[置顶]R语言 ggplot2包
R语言 ggplot2包的学习分析数据要做的第一件事情,就是观察它.对于每个变量,哪些值是最常见的?值域是大是小?是否有异常观测? ggplot2图形之基本语法: ggplot2的核心理念是将绘图 ...
数据可视化——R语言ggplot2包绘制精美的小提琴图(并箱线图或误差条图组合)
数据可视化--R语言ggplot2包绘制精美的小提琴图(并箱线图或误差条图组合) 概述:R语言使用ggplot2工具包绘制小提琴图.为了使数据表达更加丰富,同时将小提琴图与箱线图和误差条图相结合.另外 ...
R语言ggplot2可视化
R语言数据可视化必备利器之ggplot2包由于最近学习必要画图较多,所以对R语言ggplot2包的使用较多,在此分享一下自己的心得以及体验,如有错误请小伙伴即时更正. ggplot2有着自己的语法, ...
r语言断轴画图_R语言基础画图/绘图/作图
R语言基础画图 R语言免费且开源,其强大和自由的画图功能,深受广大学生和可视化工作人员喜爱,这篇文章对如何使用R语言作基本的图形,如直方图,点图,饼状图以及箱线图进行简单介绍. 0 结构每种图形构成 ...
R语言ggplot2地理信息可视化（上）
很荣幸,能来北京参加2018年第十一届中国R会议,并在中国人民大学-R语言数据可视化会场作报告. 本次演讲题目:<R语言ggplot2之地理信息可视化>,本次演讲重点讲解R语言基于ggpl ...
R语言ggplot2地理信息可视化（下）
很荣幸,能来北京参加2018年第十一届中国R会议,并在中国人民大学-R语言数据可视化会场作报告. 本次演讲题目:<R语言ggplot2之地理信息可视化>,本次演讲重点讲解R语言基于ggpl ...
R语言ggplot2可视化：ggplot2可视化散点图并使用geom_mark_circle函数在数据簇或数据分组的数据点周围添加圆圈进行注释（自定义圆圈的大小）
R语言ggplot2可视化:ggplot2可视化散点图并使用geom_mark_circle函数在数据簇或数据分组的数据点周围添加圆圈进行注释(自定义圆圈的大小) 目录

R语言ggplot2画图3

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

R语言ggplot2画图3相关推荐

最新文章

热门文章