r - 当使用不同的数据集时，文本相对于绘图区域的一致定位

This question already has answers here:

ggplot annotation in fixed place in the chart

(2个答案)

在10个月前关闭。

我生成了几个图，其中数据可能具有不同的x和y范围。我希望在所有绘图中都放置一个文本注释，相对于绘图区域要在完全相同的位置。
第一个情节的示例，其中我添加了带有annotate的文本，并使用x和y以数据单位放置了文本:

library(tidyverse)
ggplot(mpg) + 
  geom_point(aes(displ, hwy)) +
  annotate("text", x = 6, y = 20, label = "example watermark", size = 8) +
  ggsave(filename = "mpg.jpg", width = 10, height = 9, dpi = 60)

然后，根据另一个数据集创建第二个图，其中x和y范围与第一个图不同。
将文本放置在相对于绘图区域完全相同的位置而又不经过反复试验的最佳方法是什么？

ggplot(iris) + 
  geom_point(aes(Petal.Width, Petal.Length)) +
  # I don't want to hardcode x and y in annotate
  # annotate("text", x = 6, y = 20, label = "example watermark", size = 8) +
ggsave(filename = "iris.jpg", width = 10, height = 9, dpi = 60)

最佳答案

您可以使用annotation_custom。这使您可以在绘图窗口的指定坐标处绘制图形对象(grob)。只需以“npc”单位指定位置，其位置从窗口左下角的(0，0)缩放到窗口右上角的(1，1):

library(ggplot2)

mpg_plot   <- ggplot(mpg) + geom_point(aes(displ, hwy))
iris_plot  <- ggplot(iris) + geom_point(aes(Petal.Width, Petal.Length))
annotation <- annotation_custom(grid::textGrob(label = "example watermark",
                                               x = unit(0.75, "npc"), y = unit(0.25, "npc"),
                                               gp = grid::gpar(cex = 2)))
mpg_plot  + annotation

iris_plot + annotation

由reprex package(v0.3.0)创建于2020-07-10

关于r - 当使用不同的数据集时，文本相对于绘图区域的一致定位，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/62839822/

上一篇：r - 在 Ubuntu 上从 CRAN 安装 lme4

下一篇：image - 有效存储许多缩略图的方法

相关文章：

string - 在JavaFX 2中计算单行文本尺寸

search - 用于比较词汇相似性的数字哈希

r - Shiny 仪表板的选项卡相关输入

r - 如何使用ggplot在x轴上只显示年份

python - R:将表转换为邻接矩阵或边列表

r - 使用 survminer (ggsurvplot) 将 Kaplan-Meier 图 y 轴更改为失败概率而不是生存概率？

r - "Object ' 方向 ' not found"与 ggraph 包中的树状图

text - 为什么 LaTeX 会忽略文档类中的字体大小

R image() 绘制矩阵旋转？

r - 为 geom_col 添加渐变填充