R繪圖中的邊緣問題

Question

我很難處理切割邊緣 in R plot。
問題：
Edge problem http://i57.tinypic.com/rsas14.jpg
代碼：

x <- c(130, 145, 170, 175, 180) 
y <- c(0.00172225, 0.00207025, 0.002304, 0.0025, 0.002704)*1000 
plot(x,y,pch=20) 
fit <- lm(y~x) 
xx <- seq(120,190, length=50) 
plot(x,y,xlab=(expression('U'~~'[V]')),main=expression(atop(Something)), ylab=expression(r[1]^2~~"[mm]"),pch=19,xlim=c(120, 190), ylim=c(0.001,0.003)*1000) 
xHigh <- x+5 
yHigh <- y+c(0.083, 0.091, 0.096, 0.100, 0.104) 
xLow <- x-5 
yLow <- y-c(0.083, 0.091, 0.096, 0.100, 0.104) 
eps <- 1 
eps2 <- 0.05 
segments(x-eps,yLow,x+eps,yLow,col=2) 
segments(x-eps,yHigh,x+eps,yHigh,col=2) 
segments(xLow,y-eps2,xLow,y+eps2,col=2) 
segments(xHigh,y-eps2,xHigh,y+eps2,col=2) 
segments(x,yLow,x,yHigh,col=2) 
segments(xLow,y,xHigh,y,col=2) 
lines(xx, predict(fit, data.frame(x=xx)), col="blue") 
summary(fit) 

我怎樣才能解決這個問題呢？
在此先感謝！

Answer 1

您plot()之前，增加你的左邊距的大小：

par(mar=c(5,5,4,2)+.1) 
plot(x,y,pch=20) 

基地顯卡只提供上，無論你試圖繪製有什麼情節的每一個側面線條固定數量。