轴刻度标记重新定位在R中

Question

我遇到了一个问题，就是我在整理热图的轴上有刻度标记。下面是生成我目前所获得的代码以及我想要实现的图像。我知道ggplot2中有可能（参见：shifting tick positions in ggplot2），但我想在基本的R包中做到这一点。谢谢。

colfunc <- colorRampPalette(c("white", gray(.3, alpha = NULL)))
colorBarz=matrix(seq(0,7,len=14),nrow=1)
colorBarx=1
colorBary=seq(0,7,len=14)
cus_breaks=c(seq(0,7,len=15))
image(colorBarx,colorBary,colorBarz,col=colfunc(14),axes=FALSE,xlab="",ylab="",breaks=cus_breaks,cex.lab=2)
box(which="plot")
axis(2,at=seq(from = 0, to = 7, by = 1),las=2,cex.axis=2)

Answer 1

这会有用吗？

colfunc <- colorRampPalette(c("white", gray(.3, alpha = NULL)))
colorBarz=matrix(seq(0,7,len=14),nrow=1)
colorBarx=1
colorBary=seq(0,7,len=15)
cus_breaks=c(seq(0,7,len=15)) 
image(colorBarx,colorBary,colorBarz,col=colfunc(14),axes=FALSE,xlab="",ylab="",breaks=cus_breaks,cex.lab=2,ylim=c(0,7))
box(which="plot")
axis(2,at=seq(from = 0, to = 7, by = 1),las=2,cex.axis=2)