我想用下面的代码在情节的最后一个方面注释一些文本:

library(ggplot2)
p <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
p <- p + facet_grid(. ~ cyl)
p <- p + annotate("text", label = "Test", size = 4, x = 15, y = 5)
print(p)

enter image description here

但这段代码在每个方面都对文本进行了注释.我怎样才能只从一个方面获得注释文本?

推荐答案

通常你会这样做:

ann_text <- data.frame(mpg = 15,wt = 5,lab = "Text",
                       cyl = factor(8,levels = c("4","6","8")))
p + geom_text(data = ann_text,label = "Text")

它应该在不完全指定因子变量的情况下工作,但可能会引发一些警告:

在此处输入图像描述

R相关问答推荐

基于两个现有列创建新列

如何设置搜索栏来搜索整个Shiny应用程序页面?

R gtsummary tBL_summary,包含分层和两个独立分组变量

如何判断某列中由某些行组成的百分比

咕噜中的元素列表:map

ggplot的轴标签保存在officer中时被剪切

在另存为PNG之前隐藏htmlwidget绘图元素

如何在ggplot图中找到第二轴的比例

如果可能,将数字列转换为整数,否则保留为数字

将. xlsx内容显示为HTML表

具有重复元素的维恩图

从R中的对数正态分布生成随机数的正确方法

R如何计算现有行的总和以添加新的数据行

创建列并对大型数据集中的特定条件进行成对比较的更高效程序

R中时间间隔的大向量与参考时间间隔的相交

计算使一组输入值最小化的a、b和c的值

名字的模糊匹配

需要一个函数来在第一行创建一个新变量,然后用新变量替换一个不同的变量(对于多行)

如何在R中创建这些列?

如何合并不同列表中的数据文件,包括基于名称的部分匹配,而不是一对一等价