在ggplot2中的各个facet上注释文本

小开

最佳答案

函数annotate()将相同的标签添加到带有facet的绘图中的所有面板。如果目的是向每个面板添加不同的注释，或者仅向某些面板添加注释，则必须使用几何而不是annotate()。要使用一个几何体，例如geom_text()，我们需要组装一个数据帧，其中包含一列中的标签文本，以及将变量映射到其他美学的列，以及用于面形的变量。

通常你会这样做:

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")

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

enter image description here

小开

我认为对于上面的答案lab=“文本”是无用的，下面的代码也是可以的。

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

但是，如果你想在不同的子图中不同地标记，可以这样做:

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

小开

函数annotate()将相同的标签添加到带有facet的绘图中的所有面板。如果目的是向每个面板添加不同的注释，或者只向某些面板添加注释，则必须使用几何而不是annotate()。要使用一个几何体，例如geom_text()，我们需要组装一个数据帧，其中包含一列中的标签文本，以及将变量映射到其他美学的列，以及用于面形的变量。这个答案举例说明了facet_wrap()和facet_grid()。

以下是没有文字注释的情节:

library(ggplot2)


p <- ggplot(mtcars, aes(mpg, wt)) +
geom_point() +
facet_grid(. ~ cyl) +
theme(panel.spacing = unit(1, "lines"))
p

让我们创建一个额外的数据帧来保存文本注释:

dat_text <- data.frame(
label = c("4 cylinders", "6 cylinders", "8 cylinders"),
cyl   = c(4, 6, 8)
)
p + geom_text(
data    = dat_text,
mapping = aes(x = -Inf, y = -Inf, label = label),
hjust   = -0.1,
vjust   = -1
)

.

或者，我们可以手动指定每个标签的位置:

dat_text <- data.frame(
label = c("4 cylinders", "6 cylinders", "8 cylinders"),
cyl   = c(4, 6, 8),
x     = c(20, 27.5, 25),
y     = c(4, 4, 4.5)
)


p + geom_text(
data    = dat_text,
mapping = aes(x = x, y = y, label = label)
)

.

我们还可以在两个方面标记图:

dat_text <- data.frame(
cyl   = c(4, 6, 8, 4, 6, 8),
am    = c(0, 0, 0, 1, 1, 1)
)
dat_text$label <- sprintf(
"%s, %s cylinders",
ifelse(dat_text$am == 0, "automatic", "manual"),
dat_text$cyl
)
p +
facet_grid(am ~ cyl) +
geom_text(
size    = 5,
data    = dat_text,
mapping = aes(x = Inf, y = Inf, label = label),
hjust   = 1.05,
vjust   = 1.5
)

注:

你可以使用-Inf和Inf在面板边缘定位文本。
可以使用hjust和vjust来调整文本对齐。
文本标签数据帧dat_text应该有一个与facet_grid()或facet_wrap()一起工作的列。

小开

如果有人正在寻找一种简单的方法来为报告或出版物标记facet， egg (凹口)包有非常漂亮的tag_facet() &tag_facet_outside()功能。

library(ggplot2)


p <- ggplot(mtcars, aes(qsec, mpg)) +
geom_point() +
facet_grid(. ~ am) +
theme_bw(base_size = 12)


# install.packages('egg', dependencies = TRUE)
library(egg)

标签内

默认的

tag_facet(p)

< img src = " https://i.imgur.com/Zr1qpq9.png " alt = " " >

注意:如果你想保留条带文本和背景，尝试在theme中添加__ABC0和strip.background或从原始的tag_facet()函数中删除theme(strip.text = element_blank(), strip.background = element_blank())。

tag_facet <- function(p, open = "(", close = ")", tag_pool = letters, x = -Inf, y = Inf,
hjust = -0.5, vjust = 1.5, fontface = 2, family = "", ...) {


gb <- ggplot_build(p)
lay <- gb$layout$layout
tags <- cbind(lay, label = paste0(open, tag_pool[lay$PANEL], close), x = x, y = y)
p + geom_text(data = tags, aes_string(x = "x", y = "y", label = "label"), ..., hjust = hjust,
vjust = vjust, fontface = fontface, family = family, inherit.aes = FALSE)
}

对齐右上&使用罗马数字

tag_facet(p, x = Inf, y = Inf,
hjust = 1.5,
tag_pool = as.roman(1:nlevels(factor(mtcars$am))))

< img src = " https://i.imgur.com/ZkWmAOk.png " alt = " " >

对齐左下&使用大写字母

tag_facet(p,
x = -Inf, y = -Inf,
vjust = -1,
open = "", close = ")",
tag_pool = LETTERS)

< img src = " https://i.imgur.com/JmsuWK3.png " alt = " " >

定义自己的标记

my_tag <- c("i) 4 cylinders", "ii) 6 cyls")
tag_facet(p,
x = -Inf, y = -Inf,
vjust = -1, hjust = -0.25,
open = "", close = "",
fontface = 4,
size = 5,
family = "serif",
tag_pool = my_tag)

< img src = " https://i.imgur.com/SniopsV.png " alt = " " >

外标签

p2 <- ggplot(mtcars, aes(qsec, mpg)) +
geom_point() +
facet_grid(cyl ~ am, switch = 'y') +
theme_bw(base_size = 12) +
theme(strip.placement = 'outside')


tag_facet_outside(p2)

< img src = " https://i.imgur.com/o8WWHyI.png " alt = " " >

编辑:使用stickylabeller包添加另一个选项

- `.n` numbers the facets numerically: `"1"`, `"2"`, `"3"`...
- `.l` numbers the facets using lowercase letters: `"a"`, `"b"`, `"c"`...
- `.L` numbers the facets using uppercase letters: `"A"`, `"B"`, `"C"`...
- `.r` numbers the facets using lowercase Roman numerals: `"i"`, `"ii"`, `"iii"`...
- `.R` numbers the facets using uppercase Roman numerals: `"I"`, `"II"`, `"III"`...


# devtools::install_github("rensa/stickylabeller")
library(stickylabeller)


ggplot(mtcars, aes(qsec, mpg)) +
geom_point() +
facet_wrap(. ~ am,
labeller = label_glue('({.l}) am = {am}')) +
theme_bw(base_size = 12)

< img src = " https://i.imgur.com/zC962zX.png " alt = " " >

^{由reprex包 (v0.2.1)创建}

小开

稍微扩展一下joran的精彩回答，来阐明标签数据框架是如何工作的。

你可以把“mpg”和“wt”分别看作x坐标和y坐标(我发现跟踪原始变量名比重命名它们更容易，就像Kamil同样出色的回答一样)。每个标签需要一行，“cyl”列显示每行与哪个方面相关联。

ann_text<-data.frame(mpg=c(25,15),wt=c(3,5),cyl=c(6,8),label=c("Label 1","Label 2"))


ann_text
>  mpg wt cyl  label
>  25  3   6   Label 1
>  15  5   8   Label 2


p <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
p <- p + facet_grid(. ~ factor(cyl))
p + geom_text(data = ann_text,label=ann_text$label)

小开

我不知道egg包，所以这里是一个普通的ggplot2包解决方案

library(tidyverse)
library(magrittr)
Data1=data.frame(A=runif(20, min = 0, max = 100), B=runif(20, min = 0, max = 250), C=runif(20, min = 0, max = 300))
Data2=data.frame(A=runif(20, min = -10, max = 50), B=runif(20, min = -5, max = 150), C=runif(20, min = 5, max = 200))

bind_cols(
Data1 %>% gather("Vars","Data_1"),
Data2 %>% gather("Vars","Data_2")
) %>% select(-Vars1) -> Data_combined

Data_combined %>%
group_by(Vars) %>%
summarise(r=cor(Data_1,Data_2),
r2=r^2,
p=(pt(abs(r),nrow(.)-2)-pt(-abs(r),nrow(.)-2))) %>%
mutate(rlabel=paste("r:",format(r,digits=3)),
plabel=paste("p:",format(p,digits=3))) ->
label_df

label_df %<>% mutate(x=60,y=190)

Data_combined %>%
ggplot(aes(x=Data_1,y=Data_2,color=Vars)) +
geom_point() +
geom_smooth(method="lm",se=FALSE) +
geom_text(data=label_df,aes(x=x,y=y,label=rlabel),inherit.aes = FALSE) +
geom_text(data=label_df,aes(x=x,y=y-10,label=plabel),inherit.aes = FALSE) +
facet_wrap(~ Vars)