ggplot画图求助

我在使用ggplot2画分面图遇到一个问题，想要使用geom_text给每个分面添加一个不同的注释，但是这个注释没有添加到原本的图上，而是另外添加了一个分面，请问有没有大佬知道怎么回事，该怎么解决？谢谢~具体数据和代码如下：
数据

Cluster	occurrence	T_stat	Percentage
cluster13	Nonoccurrence	T1	0.014634
cluster13	Occurrence	T1	0.029091
cluster19	Nonoccurrence	T1	0.041284
cluster19	Occurrence	T1	0.007634
cluster24	Nonoccurrence	T1	0.016461
cluster24	Occurrence	T1	0.029536
cluster13	Nonoccurrence	T2	0.107317
cluster13	Occurrence	T2	0.141818
cluster19	Nonoccurrence	T2	0.178899
cluster19	Occurrence	T2	0.083969
cluster24	Nonoccurrence	T2	0.156379
cluster24	Occurrence	T2	0.097046
cluster13	Nonoccurrence	T3	0.834146
cluster13	Occurrence	T3	0.8
cluster19	Nonoccurrence	T3	0.743119
cluster19	Occurrence	T3	0.874046
cluster24	Nonoccurrence	T3	0.781893
cluster24	Occurrence	T3	0.848101
cluster13	Nonoccurrence	T4	0.043902
cluster13	Occurrence	T4	0.029091
cluster19	Nonoccurrence	T4	0.036697
cluster19	Occurrence	T4	0.034351
cluster24	Nonoccurrence	T4	0.045267
cluster24	Occurrence	T4	0.025316

不加注释代码：

1. library(ggplot2)
   
2. library(ggalluvial)
   
3. library(ggsignif)
   
4. library(RColorBrewer)
   
5. 
   
6. hist_plot_T_stat <-  ggplot(data = CountTable_T_melt,aes(x=occurrence,y=100 * Percentage)) +
   
7.   geom_stratum(aes(fill=T_stat,stratum = T_stat, alluvium = T_stat),width = 0.8, color='white')+
   
8.   geom_alluvium(aes(fill=T_stat,stratum = T_stat, alluvium = T_stat),
   
9.                 alpha = 0.5,
   
10.                 width = 0.8,
    
11.                 curve_type = "linear") +
    
12.   facet_grid(.~ Cluster, switch = "both") +
    
13.   coord_fixed(ratio = 0.04) +
    
14.   scale_fill_manual(values=brewer.pal(9,"Set1")[4:1]) +
    
15.   theme_classic() +
    
16.   xlab("") +
    
17.   ylab("Percentage (%)") +
    
18.   theme(legend.title = element_blank(),
    
19.         axis.title = element_text(size = 12, face = "bold"),
    
20.         axis.text.x = element_text(size = 10, face = "bold", angle = 20, hjust = 0.5, vjust = 0.8),
    
21.         axis.text.y = element_text(size = 10, face = "bold"),
    
22.         strip.text = element_text(size = 10,  face = "bold"),
    
23.         strip.background = element_rect(
    
24.           color="lightgrey", fill="lightgrey", size = 0.5),
    
25.         panel.spacing = unit(0.08, "in"),
    
26.         strip.placement = "top",
    
27.         strip.switch.pad.grid = unit(-13.5, "cm"),
    
28.         plot.margin=margin(t = 0, r = 0, b = 0, l = 0,'in')) +
    
29.   scale_y_continuous(breaks=seq(0,100,20)) +
    
30.   geom_segment(x=1,y=101,xend=1,yend=103) +
    
31.   geom_segment(x=1,y=103,xend=2,yend=103) +
    
32.   geom_segment(x=2,y=101,xend=2,yend=103)
    
33. 
    
34. hist_plot_T_stat

复制代码

然后我想加上一个注释在那个横线上面：

1. hist_plot_T_stat <-  ggplot(data = CountTable_T_melt,aes(x=occurrence,y=100 * Percentage)) +
   
2.   geom_stratum(aes(fill=T_stat,stratum = T_stat, alluvium = T_stat),width = 0.8, color='white')+
   
3.   geom_alluvium(aes(fill=T_stat,stratum = T_stat, alluvium = T_stat),
   
4.                 alpha = 0.5,
   
5.                 width = 0.8,
   
6.                 curve_type = "linear") +
   
7.   facet_grid(.~ Cluster, switch = "both") +
   
8.   coord_fixed(ratio = 0.04) +
   
9.   scale_fill_manual(values=brewer.pal(9,"Set1")[4:1]) +
   
10.   theme_classic() +
    
11.   xlab("") +
    
12.   ylab("Percentage (%)") +
    
13.   theme(legend.title = element_blank(),
    
14.         axis.title = element_text(size = 12, face = "bold"),
    
15.         axis.text.x = element_text(size = 10, face = "bold", angle = 20, hjust = 0.5, vjust = 0.8),
    
16.         axis.text.y = element_text(size = 10, face = "bold"),
    
17.         strip.text = element_text(size = 10,  face = "bold"),
    
18.         strip.background = element_rect(
    
19.           color="lightgrey", fill="lightgrey", size = 0.5),
    
20.         panel.spacing = unit(0.08, "in"),
    
21.         strip.placement = "top",
    
22.         strip.switch.pad.grid = unit(-13.5, "cm"),
    
23.         plot.margin=margin(t = 0, r = 0, b = 0, l = 0,'in')) +
    
24.   scale_y_continuous(breaks=seq(0,100,20)) +
    
25.   geom_segment(x=1,y=101,xend=1,yend=103) +
    
26.   geom_segment(x=1,y=103,xend=2,yend=103) +
    
27.   geom_segment(x=2,y=101,xend=2,yend=103) +
    
28.   geom_text(data = Pvalue_T_chisq_df, x=1.5, y=104, aes(label = P_label))
    
29. 
    
30. hist_plot_T_stat

复制代码

其中Pvalue_T_chisq_df是这样的：

Cluster	P_label
Cluster13	0.38
Cluster19	7.62E-04
Cluster24	0.1

我想把注释放在那个短横线上，不知道为啥变成这样，请问有什么解决办法，多谢~

你的Pvalue_T_chisp_df文件中Cluster列中的Cluster13、19、24首字母改为小写的，就可以了，刚替你试过了。