ggplot：如何在不同的箱线图中注释不同位置的不同字符串[重复]

Question

在 R 中，我使用 ggplot boxplot 绘制来自两个不同数据帧的数据，分别称为 ASD 和 TD。

每个数据框报告 3 个变量：

• 一个（数字）
• b（数字）
• 条件（分类，可以是“ASD”或“TD”）

我成功创建了两个图表；在每个图表中，我并排绘制了来自两个数据框的相同变量，分别为 a 和 b，以便对它们进行比较。然后我在每个图中添加了一个给定的字符串，即“Jonh”和“Jerry”。两个字符串都在 y=35 处打印，使用 annotate。

问题：如何更改每个字符串的 y 位置？在示例中，我想在 y=10

处打印字符串“Jerry”（在变量 b 的图表中）

下面是我使用的代码：

#clearing variable and console
cat("\014")
rm(list = ls())
message("Graphic test for boxplot")

#libraries
library(ggplot2)
library(reshape2)

# creation of dataframe ASD, with numeric variables 'a' and 'b',
# and a categorial variable 'condition' with fixed value 'ASD' 
a <- c(1:10)
b <- c(26:35)
ASD <- cbind(a,b)
ASD.df <-as.data.frame(ASD)
ASD.df$condition <- "ASD"

# creation of dataframe TD, with numeric variables 'a' and 'b',
# and a categorial variable 'condition' with fixed value 'TD' 
a <- c(6:15)
b <- c(24:33)
TD <- cbind(a,b)
TD.df <-as.data.frame(TD)
TD.df$condition <- "TD"


# union of ASD and TD in a single dataframe C
C.df <- rbind(ASD.df,TD.df)

# reshaping of C for ggplot, using variable 'condition'
C.df_melted <- melt(C.df, id.var = "condition")


#strings I want to visualise on each graph
myStr <- c("John", "Jerry")

#do I want a fixed y lim?
FIXED_Y_LIM <- TRUE

myBox <- ggplot(data=C.df_melted, aes(x=condition, y=value, fill=variable))+
geom_boxplot(show.legend = FALSE) +
facet_wrap(~variable, scale="free") + 
annotate(geom="text", x=1.5, y=35, label= myStr)

# it forces y scale in this range
if(FIXED_Y_LIM==TRUE)
{
  myBox <- myBox + ylim(0, 40)  
}

myBox

我试图解决修改注释行的问题

annotate(geom="text", x=1.5, y=35, label= myStr)

到

annotate(geom="text", x=1.5, y=c(35, 10), label= myStr)

但我得到了这个我不明白的错误：

错误：美学长度必须为 1 或与数据相同 (4)：标签

感谢您的建议。

Answer 1

指的是C.df_melteddata.frame中的向量个数。

替代方法是在facet_wrap() 上使用labeller：

ggplot(data=C.df_melted, aes(x=condition, y=value, fill=variable)) +
geom_boxplot(show.legend = FALSE) +
facet_wrap(~variable, scale="free", labeller=as_labeller(setNames(myStr, c("a", "b"))))

或者在Annotating text on individual facet in ggplot2 和geom_text() 的帮助下更直接地回答您的问题：

ggplot(data=C.df_melted, aes(x=condition, y=value, fill=variable)) +
geom_boxplot(show.legend = FALSE) +
facet_wrap(~variable, scale="free") +
geom_text(data=data.frame(label=myStr, y=c(35, 10), variable=c("a", "b")), mapping=aes(x=1.5, y=y, label=label))

Answer 2

使用Annotating text on individual facet in ggplot2，我们将位置和每个标签添加到C.df_melted。我们使用geom_text 代替annotate：

C.df_melted$x <- rep(1.5, nrow(C.df_melted))
C.df_melted$y <- c(rep(35, nrow(C.df_melted)/2), rep(10, nrow(C.df_melted)/2))
C.df_melted$myStr <- c(rep("John", nrow(C.df_melted)/2), rep("Jerry", nrow(C.df_melted)/2))

myBox <- ggplot(data=C.df_melted, aes(x=condition, y=value, fill=variable))+
geom_boxplot(show.legend = FALSE) +
facet_wrap(~variable, scale="free") + 
geom_text(mapping = aes(x = x, y = y, label = myStr))