更改ggplot图以进行比较

Question

我使用从pairwise.wilcox.test和以下脚本获得的p值生成这两个图。我的问题是，为了进行比较，我希望两个图中的不同断点具有相同的颜色。我意识到这里的问题是，在第一个图(ROH的总和)中，我在break (0.001，0.05)中没有任何值。然而，我想强制图表在图例中添加此中断，并使其具有与第二个图表相同的颜色(平均ROH大小)。

test.result$value<-cut(test.result$value, breaks=c(-Inf,0.001,0.05,1),right=T)

windows()
ggplot(data = test.result, aes(X1, X2, fill = value))+
ggtitle("Sum of ROH")+
xlab("")+
ylab("")+
geom_tile(aes(fill=test.result$value),color="white")+
scale_fill_brewer(palette="Blues", direction = -1,name="p-Val")+
theme_minimal()+ 
theme(axis.text.x = element_text(angle = 45, vjust = 1, 
                               size = 12, hjust = 1))+
coord_fixed()

​

​

​

​

Answer 1

将您的因子设置为相同的水平。您可以添加不存在的级别。

例如

levels(test.result$value) = c("(-Inf,0.001]", "(0.001,0.05]", "(0.05,1]")

然后将drop = FALSE添加到填充比例中以保留图例中的值。

scale_fill_brewer(palette = "Blues", direction = -1, drop = FALSE, name = "p-Val")