怎么在图的外面加边框？

iscott

期刊要求figures should be enclosed in a box.

怎么在图的外面加一个圈把图框起来？

我试了box()和rect()，都不能实现。

iscott

要把坐标轴标签给框进来。

iscott

后期可以在其他软件中手动加框，但是太麻烦，希望可以用R直接输出带框的图。有没有啥方法可以实现啊。

ywh19860616

box()?

wangpeng692

同是新手，共勉。

Usage

box(which = "plot", lty = "solid", ...)

Arguments

which

character, one of "plot", "figure", "inner" and "outer".

<br />
attach(mtcars)<br />
opar <- par(no.readonly=TRUE)<br />
par(mfrow=c(2,2))<br />
plot(wt, mpg, main="散点图 wt vs. mpg")<br />
box(which="outer", lty="1373", col="red")</p>
<p>plot(wt, disp, main="散点图 wt vs. disp")<br />
box(which="inner", lty="1373", col="blue")</p>
<p>hist(wt, main="Histogram of wt")<br />
box(which="figure", lty="1373", col="grey")</p>
<p>boxplot(wt, main="Boxplot of wt")<br />
box(which="plot", lty="1373", col="yellow")<br />
par(opar)<br />
detach(mtcars)

</p>

倒是没能整明白，which=outer与which=inner的区别。[s:16]

wangpeng692

<br />
attach(mtcars)<br />
opar <- par(no.readonly=TRUE)<br />
par(fig=c(0.2, 0.8, 0.2, 0.8))<br />
plot(wt, mpg,<br />
     xlab="Miles Per Gallon",<br />
     ylab="Car Weight")<br />
box(which="figure", lty="1373", col="red")<br />
par(opar)<br />
detach(mtcars)<br />

</p>

iscott

回复第6楼的 wangpeng692：嗯，就是这个效果。对于多图，这两个参数可能才会有区别。

wangpeng692

which=outer与which=inner的差异

which=inner与which=figure[s:16]

<br />
attach(mtcars)<br />
opar <- par(no.readonly=TRUE)<br />
par(mar=c(3, 4, 0, 2)+1, oma=c(2, 2, 2, 2))<br />
plot(wt, mpg,<br />
     xlab="Miles Per Gallon",<br />
     ylab="Car Weight")<br />
box(which="figure", lty=2, col="red")<br />
box(which="inner", lty=2, col="green")<br />
box(which="outer", lty=2, col="yellow")<br />
box(which="plot", col="blue")<br />
mtext("plot", side=3, line=-0.5, col="red")<br />
mtext("figure/inner", side=3, line=-0.5, col="red", outer=TRUE)<br />
mtext("outer", side=3, line=1.3, col="red", outer=TRUE)<br />
par(opar)<br />
detach(mtcars)<br />

</p>

iscott

回复第8楼的 wangpeng692：用layout(matrix(1:4, 2, 2))设置多图后，inner和figure有区别。

wangpeng692

回复第9楼的 iscott：[s:11]