plot函数图像优化

请问：1、如何去除图像的上边框和右边框；2、如何去除横轴和纵轴的数字刻度，保留坐标系。

〃时间宝贵 发表于 2015-1-9 11:30
刚刚我查看了axis，并修改了您发的代码，但是效果不理想。。。

1. # Dummy data used for the plot
   
2. x <- runif(25); y <- runif(25)
   
3. # Plot options - I found the default lengths for axis tick too long
   
4. par(mfrow = c(2, 2), tcl = -0.2)
   
5. # Plot (a) - without anything regarding the axis
   
6. plot(x, y, axes = F, xlab = NA, ylab = NA, xlim = c(0, 1), ylim = c(0, 1),
   
7.      main = "(a)")
   
8. # Plot (b) - with a box but no ticks
   
9. plot(x, y, axes = F, xlab = NA, ylab = NA, xlim = c(0, 1), ylim = c(0, 1),
   
10.      main = "(b)")
    
11. box()
    
12. # Plot (c) - with axes on bottom and left but not ticks
    
13. plot(x, y, axes = F, xlab = NA, ylab = NA, xlim = c(0, 1), ylim = c(0, 1),
    
14.      main = "(c)")
    
15. abline(h = par()$usr[1])
    
16. abline(v = par()$usr[3])
    
17. # Plot (d) - with axes on bottom and left and ticks on them
    
18. plot(x, y, axes = F, xlab = NA, ylab = NA, xlim = c(0, 1), ylim = c(0, 1),
    
19.      main = "(d)")
    
20. abline(h = par()$usr[1])
    
21. abline(v = par()$usr[3])
    
22. axis(1, at = c(0:10/10), labels = F, tick = T, lwd = 0, lwd.ticks = 1)
    
23. axis(2, at = c(0:10/10), labels = F, tick = T, lwd = 0, lwd.ticks = 1)

复制代码

Hoepfully one of the four plots could be what you want.

你好，首先，在你的plot函数中加上axes=FALSE，其他部分不变，这样可以去除坐标。下面的代码加上了我自己的图形内容，但是去除
plot(1:18,coef,type="l",axes=FALSE,xlab="",ylab="")
然后，选择两个需要的坐标轴
axis(1,at=-0.02:0.155,pos=-0.02)
axis(2,at=-0.02:0.105,pos=-0.02)

nieqiang110 发表于 2015-1-9 11:04
你好，首先，在你的plot函数中加上axes=FALSE，其他部分不变，这样可以去除坐标。下面的代码加上了我自己的 ...

你好，你的意思是先去掉所有的坐标，然后自己加坐标轴上去。但是我刚才运行过，坐标去掉后，运行axis(1,at=-0.02:0.155,pos=-0.02)加不上去。然后，若只需要去掉上边框和下边框，可以修改par（）。能不能只去掉刻度呢？

nieqiang110 发表于 2015-1-9 11:04
你好，首先，在你的plot函数中加上axes=FALSE，其他部分不变，这样可以去除坐标。下面的代码加上了我自己的 ...

刚刚我查看了axis，并修改了您发的代码，但是效果不理想。。。

〃时间宝贵 发表于 2015-1-9 11:24
你好，你的意思是先去掉所有的坐标，然后自己加坐标轴上去。但是我刚才运行过，坐标去掉后，运行axis(1,a ...

你把你作图的代码发过来，我给你调整好，再发给你。

zhangyangsmith 发表于 2015-1-9 17:24
Hoepfully one of the four plots could be what you want.

Thank you very much!

nieqiang110 发表于 2015-1-9 11:04
你好，首先，在你的plot函数中加上axes=FALSE，其他部分不变，这样可以去除坐标。下面的代码加上了我自己的 ...

好的，谢谢您。