R绘图中的边缘问题
Problems with edges in R plotting
我很难处理 R 图中的切边。
问题:
代码:
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)
我该如何解决这个问题?
提前致谢!
在 plot()
之前,增加左边距的大小:
par(mar=c(5,5,4,2)+.1)
plot(x,y,pch=20)
无论您尝试在那里绘制什么,基本图形只是在绘图的每一侧提供固定数量的线条。
我很难处理 R 图中的切边。
问题:
代码:
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)
我该如何解决这个问题?
提前致谢!
在 plot()
之前,增加左边距的大小:
par(mar=c(5,5,4,2)+.1)
plot(x,y,pch=20)
无论您尝试在那里绘制什么,基本图形只是在绘图的每一侧提供固定数量的线条。