2014-02-28 65 views

回答

7

當創建你的情節,你只需要指定幾個選項。特別要注意的axestypexlab

plot(runif(10), runif(10), 
    xlim=c(0, 1), ylim=c(0,1), 
    axes=FALSE, #Don't plot the axis 
    type="n", #hide the points 
    ylab="", xlab="") #No axis labels 

然後,您可以手動添加Y軸:

axis(2, seq(0, 1, 0.2)) 

,並添加一個網格,如果你的願望

grid(lwd=2) 
2

你可以使用geom_blank()和主題調整來關閉不需要的元素:

p <- ggplot(mtcars, aes(disp, mpg)) + geom_blank() 

p + theme(axis.line.x=element_blank(), 
      axis.text.x=element_blank(), 
      axis.ticks.x=element_blank(), 
      axis.title.x=element_blank(), 
      panel.grid.minor.x=element_blank(), 
      panel.grid.major.x=element_blank()) 

或者,如果你已經有一個情節,你可以提取與gtable軸部分:

library(gtable) 
g <- ggplotGrob(p) 
s <- gtable_filter(g, 'axis-l|ylab', trim=F) # use trim depending on need 
grid.newpage() 
grid.draw(s)