我正在尝试使用ggplot2绘制图形,在X轴上我可以找到某种为变量组添加标签的方法。这是我的代码的最低版本:
Bzero <-100*matrix(runif(100),ncol=10,nrow=10)
B <-99
LNtype <-c(1,1,1,1,2,2,2,3,3,3)
LNnames <-c('grp1','grp2','grp3')
tB <-t(Bzero)/(B+1)
dfB <-data.frame(tB)
dfB$grp <-LNtype
dfB$vid <-1:nrow(tB)
mB0 <- melt(dfB,id.vars=c('grp','vid'))
mB0 <- mB0[order(mB0$grp,mB0$vid),]
gg0 <- ggplot(mB0,aes(x=vid,y=variable))
gg0 <- gg0 + geom_tile(aes(fill = value),colour = "white")
gg0 <- gg0 + scale_fill_gradient(low = "green", high = "red",na.value='white',limits=c(0,1),name='p0i')
gg0 <- gg0 + xlab('Equation')+ylab('Covariate')
这是结果图:
这就是我想要的:
我一直在修补规模,中断和标签,但无济于事。即使是大量的Google搜索,也确实揭示了具有这种轴的任何情节。有什么办法得到我想要的吗?
最佳答案
您可以使用scale_x_continuous()
将数字替换为组,并在所需位置设置中断。使用geom_segment()
,您可以将这些黑线添加到组数据中。
gg0+
geom_segment(aes(x=0.5,y=0.5,xend=10.5,yend=0.5))+
geom_segment(aes(x=c(0.5,4.5,7.5,10.5),
xend=c(0.5,4.5,7.5,10.5),y=rep(0.5,4),yend=rep(1,4)))+
scale_x_continuous("",breaks=c(2.5,6,9),labels=c("Group1","Group2","Group3"))