2015-04-04 88 views
2

我想要刪除所有的軸,包括x,左和右y但保留圖的邊界。 我試圖設置xaxtyaxt'n',但沒有運氣。刪除所有座標軸值和標籤在兩個陰謀

library(plotrix) 

twoord.plot(2:10,seq(3,7,by=0.5)+rnorm(9), 
     1:15,rev(60:74)+rnorm(15), 
     type=c("bar","l"), 
     xaxt='n', 
     yaxt='n') 

有什麼建議嗎?提前致謝。

回答

0

我不這麼認爲。這是很容易反正創建這個情節:

library('plotrix') 
set.seed(1) 
x1 <- 2:10 
y1 <- seq(3,7,by=0.5)+rnorm(9) 
x2 <- 1:15 
y2 <- rev(60:74)+rnorm(15) 

par(mfrow = c(1, 3), mar = c(3, 3,2,3)) 
twoord.plot(x1, y1, x2, y2, type=c("bar","l"), xaxt='n', yaxt='n', mar = c(3, 3,2,3)) 

## to recreate 
plot(x1, y1, type = 'n', xlim = range(x2), ylim = range(y1)) 
rect(x1 - .4, 0, x1 + .4, y1, col = 'black') 
par(new = TRUE) 
plot(x2, y2, type = 'l', col = 'red', axes = FALSE) 
axis(4, col.axis = 'red') 

## again with no axes 
plot(x1, y1, type = 'n', xlim = range(x2), ylim = range(y1), axes = FALSE) 
rect(x1 - .4, 0, x1 + .4, y1, col = 'black') 
par(new = TRUE) 
plot(x2, y2, type = 'l', col = 'red', axes = FALSE) 
box() 

enter image description here