R ggplot：在刻面图中为受试者添加相应的值

我有一个包含多个主题的刻面图，如下面的示例代码所示。我可以将数据框中的alpha数添加到绘图中的每个主题吗

k%
突变（标签=ifelse（试验%在%c（5,7），“休克”，“休克”）%>%
ggplot（不良事件（x=试验，y=数值，标签=标签））+
几何点（aes（形状=标签，颜色=标签））+
geom_线（）+
几何图形文本（vjust=-1）+
面_包装（~因子（主题，级别=c（粘贴0（'主题'，1:2）））+
比例x连续（中断=c（4:7））+
比例\颜色\手动（值=c（'red'、'blue'））+
主题_bw（）+
辅助线（颜色=假，形状=假）

您只需调用另一个

geom_text（）

或

geom_label（）

在其

aes（）中定义“alpha”变量。为了获得第一个观察结果，然后按受试者分组，并将第一行切片

library(tidyverse)
               
k %>%
 mutate(label = ifelse(trial %in% c(5, 7), 'shock', '')) %>%
 ggplot(aes(x=trial,y=value, label = label)) +
 geom_point(aes(shape = label, color = label)) +
 geom_line()+
 geom_text(vjust = 1) + 
 # New lines below  
 geom_label(data = . %>% group_by(subject) %>% slice(1),
            aes(label = alpha), nudge_y = 0.08, nudge_x = 0.08) +
 # New lines above  
 facet_wrap(~factor(subject,levels=c(paste0('subject',1:2))))+
 scale_x_continuous(breaks = c(4:7)) + 
 scale_color_manual(values = c('red', 'blue')) + 
 theme_bw() + 
 guides(color=FALSE, shape = FALSE)

alpha值应该放在哪里？在每个几何点的顶部？每个刻面图的左顶部或右顶部
library(tidyverse)
               
k %>%
 mutate(label = ifelse(trial %in% c(5, 7), 'shock', '')) %>%
 ggplot(aes(x=trial,y=value, label = label)) +
 geom_point(aes(shape = label, color = label)) +
 geom_line()+
 geom_text(vjust = 1) + 
 # New lines below  
 geom_label(data = . %>% group_by(subject) %>% slice(1),
            aes(label = alpha), nudge_y = 0.08, nudge_x = 0.08) +
 # New lines above  
 facet_wrap(~factor(subject,levels=c(paste0('subject',1:2))))+
 scale_x_continuous(breaks = c(4:7)) + 
 scale_color_manual(values = c('red', 'blue')) + 
 theme_bw() + 
 guides(color=FALSE, shape = FALSE)