blocks|key|3016450|text|尝试我以前使用过的layout()，只需在下面创建一个空图，适当缩放到大约1/4左右，并手动将图例部分放入其中。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|3016451|这里有一些关于legend()的老问题，应该可以帮你入门。|3016452|entityMap^0|9|8|0|7|8|0^^$0|@$1|2|3|4|5|6|7|J|8|@$9|K|A|L|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|M|8|@$9|N|A|O|B|C]]|D|@]|E|$]]|$1|H|3|-4|5|6|7|P|8|@]|D|@]|E|$]]]|I|$]]

Try <code>layout()</code> which I have used for this in the past by simply creating an empty plot below, properly scaled at around 1/4 or so and placing the legend parts manually in it.

There are some older questions here about <code>legend()</code> which should get you started.

blocks|key|3230789|text|我只能提供一个已经指出的布局解决方案的例子。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3230790|layout(matrix(c(1,2),+nrow+=+1),+widths+=+c(0.7,+0.3))
par(mar+=+c(5,+4,+4,+2)+%2B+0.1)
plot(1:3,+rnorm(3),+pch+=+1,+lty+=+1,+type+=+"o",+ylim=c(-2,2))
lines(1:3,+rnorm(3),+pch+=+2,+lty+=+2,+type="o")
par(mar+=+c(5,+0,+4,+2)+%2B+0.1)
plot(1:3,+rnorm(3),+pch+=+1,+lty+=+1,+ylim=c(-2,2),+type+=+"n",+axes+=+FALSE,+ann+=+FALSE)
legend(1,+1,+c("group+A",+"group+B"),+pch+=+c(1,2),+lty+=+c(1,2))|code-block|syntax|javascript|3230791|​|3230792|📷|atomic|offset|length|3230793|3230794|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/67eb51b4e7a2e28886238461c9ee0046.jpeg|imageAlt^0|0|0|0|0|1|0|0|0^^$0|@$1|2|3|4|5|6|7|X|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|Y|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Z|8|@]|9|@]|A|$]]|$1|I|3|J|5|K|7|10|8|@]|9|@$L|11|M|12|1|13]]|A|$]]|$1|N|3|H|5|6|7|14|8|@]|9|@]|A|$]]|$1|O|3|-4|5|6|7|15|8|@]|9|@]|A|$]]]|P|$Q|$5|R|S|T|A|$U|V|W|-4]]]]

I can offer only an example of the layout solution already pointed out.

<pre><code>layout(matrix(c(1,2), nrow = 1), widths = c(0.7, 0.3))
par(mar = c(5, 4, 4, 2) + 0.1)
plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch = 2, lty = 2, type="o")
par(mar = c(5, 0, 4, 2) + 0.1)
plot(1:3, rnorm(3), pch = 1, lty = 1, ylim=c(-2,2), type = "n", axes = FALSE, ann = FALSE)
legend(1, 1, c("group A", "group B"), pch = c(1,2), lty = c(1,2))
</code></pre>

<img src="https://i.stack.imgur.com/cH6Fu.jpg" alt="an ugly picture :S">

blocks|key|3230799|text|也许您需要的是par(xpd=TRUE)，以便能够在绘图区域之外绘制内容。因此，如果您使用bty='L'进行主要绘图，那么在右侧将有一些空间用于显示图例。通常情况下，这将被裁剪到绘图区域，但执行par(xpd=TRUE)，并通过一点调整，您可以获得一个图例，因为它可以走：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|3230800|+set.seed(1)+#+just+to+get+the+same+random+numbers
+par(xpd=FALSE)+#+this+is+usually+the+default

+plot(1:3,+rnorm(3),+pch+=+1,+lty+=+1,+type+=+"o",+ylim=c(-2,2),+bty='L')
+#+this+legend+gets+clipped:
+legend(2.8,0,c("group+A",+"group+B"),+pch+=+c(1,2),+lty+=+c(1,2))

+#+so+turn+off+clipping:
+par(xpd=TRUE)
+legend(2.8,-1,c("group+A",+"group+B"),+pch+=+c(1,2),+lty+=+c(1,2))|code-block|syntax|javascript|3230801|entityMap^0|7|D|19|7|2P|D|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]|$9|P|A|Q|B|C]|$9|R|A|S|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|T|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|U|8|@]|D|@]|E|$]]]|L|$]]

Maybe what you need is <code>par(xpd=TRUE)</code> to enable things to be drawn outside the plot region. So if you do the main plot with <code>bty='L'</code> you'll have some space on the right for a legend. Normally this would get clipped to the plot region, but do <code>par(xpd=TRUE)</code> and with a bit of adjustment you can get a legend as far right as it can go:

<pre><code> set.seed(1) # just to get the same random numbers
 par(xpd=FALSE) # this is usually the default

 plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2), bty='L')
 # this legend gets clipped:
 legend(2.8,0,c("group A", "group B"), pch = c(1,2), lty = c(1,2))

 # so turn off clipping:
 par(xpd=TRUE)
 legend(2.8,-1,c("group A", "group B"), pch = c(1,2), lty = c(1,2))
</code></pre>

blocks|key|3016637|text|很抱歉重启了一个旧的线程，但我今天遇到了同样的问题。我找到的最简单的方法如下：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3016638|#+Expand+right+side+of+clipping+rect+to+make+room+for+the+legend
par(xpd=T,+mar=par()$mar%2Bc(0,0,0,6))

#+Plot+graph+normally
plot(1:3,+rnorm(3),+pch+=+1,+lty+=+1,+type+=+"o",+ylim=c(-2,2))
lines(1:3,+rnorm(3),+pch+=+2,+lty+=+2,+type="o")

#+Plot+legend+where+you+want
legend(3.2,1,c("group+A",+"group+B"),+pch+=+c(1,2),+lty+=+c(1,2))

#+Restore+default+clipping+rect
par(mar=c(5,+4,+4,+2)+%2B+0.1)|code-block|syntax|javascript|3016639|点击此处：http://www.harding.edu/fmccown/R/|offset|length|3016640|entityMap|0|LINK|mutability|MUTABLE|url|http://www.harding.edu/fmccown/R/^0|0|0|5|X|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|U|8|@]|9|@$I|V|J|W|1|X]]|A|$]]|$1|K|3|-4|5|6|7|Y|8|@]|9|@]|A|$]]]|L|$M|$5|N|O|P|A|$Q|R]]]]

Sorry for resurrecting an old thread, but I was with the same problem today. The simplest way that I have found is the following:

<pre><code># Expand right side of clipping rect to make room for the legend
par(xpd=T, mar=par()$mar+c(0,0,0,6))

# Plot graph normally
plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch = 2, lty = 2, type="o")

# Plot legend where you want
legend(3.2,1,c("group A", "group B"), pch = c(1,2), lty = c(1,2))

# Restore default clipping rect
par(mar=c(5, 4, 4, 2) + 0.1)
</code></pre>

Found here: <a href="http://www.harding.edu/fmccown/R/" rel="noreferrer">http://www.harding.edu/fmccown/R/</a>

blocks|key|296666|text|没有人提到对legend使用负的inset值。下面是一个示例，其中图例位于绘图的右侧，与顶部对齐(使用关键字"topright")。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|296667|#+Random+data+to+plot:
A+<-+data.frame(x=rnorm(100,+20,+2),+y=rnorm(100,+20,+2))
B+<-+data.frame(x=rnorm(100,+21,+1),+y=rnorm(100,+21,+1))

#+Add+extra+space+to+right+of+plot+area;+change+clipping+to+figure
par(mar=c(5.1,+4.1,+4.1,+8.1),+xpd=TRUE)

#+Plot+both+groups
plot(y+~+x,+A,+ylim=range(c(A$y,+B$y)),+xlim=range(c(A$x,+B$x)),+pch=1,
+++++++++++++++main="Scatter+plot+of+two+groups")
points(y+~+x,+B,+pch=3)

#+Add+legend+to+top+right,+outside+plot+region
legend("topright",+inset=c(-0.2,0),+legend=c("A","B"),+pch=c(1,3),+title="Group")|code-block|syntax|javascript|296668|inset=c(-0.2,0)的第一个值可能需要根据图例的宽度进行调整。|296669|​|296670|📷|atomic|296671|296672|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/f14d18f6bd8b5d0b446ae11ce7bd3a9d.png|imageAlt^0|6|6|G|5|1I|A|0|0|0|F|0|0|0|1|0|0|0^^$0|@$1|2|3|4|5|6|7|11|8|@$9|12|A|13|B|C]|$9|14|A|15|B|C]|$9|16|A|17|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|18|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|19|8|@$9|1A|A|1B|B|C]]|D|@]|E|$]]|$1|M|3|N|5|6|7|1C|8|@]|D|@]|E|$]]|$1|O|3|P|5|Q|7|1D|8|@]|D|@$9|1E|A|1F|1|1G]]|E|$]]|$1|R|3|N|5|6|7|1H|8|@]|D|@]|E|$]]|$1|S|3|-4|5|6|7|1I|8|@]|D|@]|E|$]]]|T|$U|$5|V|W|X|E|$Y|Z|10|-4]]]]

No one has mentioned using negative <code>inset</code> values for <code>legend</code>. Here is an example, where the legend is to the right of the plot, aligned to the top (using keyword <code>"topright"</code>).

<pre><code># Random data to plot:
A &lt;- data.frame(x=rnorm(100, 20, 2), y=rnorm(100, 20, 2))
B &lt;- data.frame(x=rnorm(100, 21, 1), y=rnorm(100, 21, 1))

# Add extra space to right of plot area; change clipping to figure
par(mar=c(5.1, 4.1, 4.1, 8.1), xpd=TRUE)

# Plot both groups
plot(y ~ x, A, ylim=range(c(A$y, B$y)), xlim=range(c(A$x, B$x)), pch=1,
 main="Scatter plot of two groups")
points(y ~ x, B, pch=3)

# Add legend to top right, outside plot region
legend("topright", inset=c(-0.2,0), legend=c("A","B"), pch=c(1,3), title="Group")
</code></pre>

The first value of <code>inset=c(-0.2,0)</code> might need adjusting based on the width of the legend.

<img src="https://i.stack.imgur.com/qWGik.png" alt="legend_right">

blocks|key|294798|text|您可以使用Plotly+R+API、使用代码或从图形用户界面将图例拖动到您想要的位置来完成此操作。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|294799|下面是一个例子。图表和代码也是here格式的。|294800|x+=+c(0,1,2,3,4,5,6,7,8)+
y+=+c(0,3,6,4,5,2,3,5,4)+
x2+=+c(0,1,2,3,4,5,6,7,8)+
y2+=+c(0,4,7,8,3,6,3,3,4)|code-block|syntax|javascript|294801|通过将x和y值之一指定为100或-100，可以将图例定位在图形外部。|294802|legendstyle+=+list("x"=100,+"y"=1)
layoutstyle+=+list(legend=legendstyle)|294803|以下是其他选项：|294804|外部|294805|list("x"+=+100,+"y"+=+0)右下|unordered-list-item|style|CODE|294806|list("x"+=+100,+"y"=+1)外部右上|294807|list("x"+=+100,+"y"+=+.5)外部右中间|294808|list("x"+=+0,+"y"+=+-100)左下方|294809|list("x"+=+0.5,+"y"+=+-100)右下方中心|294810|list("x"+=+1,+"y"+=+-100)右下方|294811|294812|然后是回应。|294813|response+=+p$plotly(x,y,x2,y2,+kwargs=list(layout=layoutstyle));|294814|当您进行调用时，Plotly返回一个带有图形的URL。您可以通过调用browseURL(response$url)来更快地访问它，这样它就会在您的浏览器中为您打开图形。|294815|url+=+response$url
filename+=+response$filename|294816|这给了我们这张图。您还可以从GUI中移动图例，然后图形将相应地缩放。完全公开:我是Plotly团队的成员。|294817|​|294818|📷|atomic|294819|294820|entityMap|0|LINK|mutability|MUTABLE|url|https://plot.ly/api/r|1|https://plot.ly/api/r-project/docs/legends|2|IMAGE|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/b87b8e963bc12f25ed3e393a8e465ab0.png|imageAlt^0|5|C|0|0|F|4|1|0|0|0|0|0|0|0|O|0|0|N|0|0|P|0|0|P|0|0|R|0|0|P|0|0|0|0|1S|0|Y|N|0|0|0|0|0|1|2|0|0^^$0|@$1|2|3|4|5|6|7|24|8|@]|9|@$A|25|B|26|1|27]]|C|$]]|$1|D|3|E|5|6|7|28|8|@]|9|@$A|29|B|2A|1|2B]]|C|$]]|$1|F|3|G|5|H|7|2C|8|@]|9|@]|C|$I|J]]|$1|K|3|L|5|6|7|2D|8|@]|9|@]|C|$]]|$1|M|3|N|5|H|7|2E|8|@]|9|@]|C|$I|J]]|$1|O|3|P|5|6|7|2F|8|@]|9|@]|C|$]]|$1|Q|3|R|5|6|7|2G|8|@]|9|@]|C|$]]|$1|S|3|T|5|U|7|2H|8|@$A|2I|B|2J|V|W]]|9|@]|C|$]]|$1|X|3|Y|5|U|7|2K|8|@$A|2L|B|2M|V|W]]|9|@]|C|$]]|$1|Z|3|10|5|U|7|2N|8|@$A|2O|B|2P|V|W]]|9|@]|C|$]]|$1|11|3|12|5|U|7|2Q|8|@$A|2R|B|2S|V|W]]|9|@]|C|$]]|$1|13|3|14|5|U|7|2T|8|@$A|2U|B|2V|V|W]]|9|@]|C|$]]|$1|15|3|16|5|U|7|2W|8|@$A|2X|B|2Y|V|W]]|9|@]|C|$]]|$1|17|3|-4|5|6|7|2Z|8|@]|9|@]|C|$]]|$1|18|3|19|5|6|7|30|8|@]|9|@]|C|$]]|$1|1A|3|1B|5|6|7|31|8|@$A|32|B|33|V|W]]|9|@]|C|$]]|$1|1C|3|1D|5|6|7|34|8|@$A|35|B|36|V|W]]|9|@]|C|$]]|$1|1E|3|1F|5|H|7|37|8|@]|9|@]|C|$I|J]]|$1|1G|3|1H|5|6|7|38|8|@]|9|@]|C|$]]|$1|1I|3|1J|5|6|7|39|8|@]|9|@]|C|$]]|$1|1K|3|1L|5|1M|7|3A|8|@]|9|@$A|3B|B|3C|1|3D]]|C|$]]|$1|1N|3|1J|5|6|7|3E|8|@]|9|@]|C|$]]|$1|1O|3|-4|5|6|7|3F|8|@]|9|@]|C|$]]]|1P|$1Q|$5|1R|1S|1T|C|$1U|1V]]|1W|$5|1R|1S|1T|C|$1U|1X]]|1Y|$5|1Z|1S|20|C|$21|22|23|-4]]]]

You could do this with the <a href="https://plot.ly/api/r" rel="noreferrer">Plotly R API</a>, with either code, or from the GUI by dragging the legend where you want it.

Here is an example. The graph and code are also <a href="https://plot.ly/api/r-project/docs/legends" rel="noreferrer">here</a>.

<pre><code>x = c(0,1,2,3,4,5,6,7,8) 
y = c(0,3,6,4,5,2,3,5,4) 
x2 = c(0,1,2,3,4,5,6,7,8) 
y2 = c(0,4,7,8,3,6,3,3,4)
</code></pre>

You can position the legend outside of the graph by assigning one of the x and y values to either 100 or -100.

<pre><code>legendstyle = list("x"=100, "y"=1)
layoutstyle = list(legend=legendstyle)
</code></pre>

Here are the other options:

<ul>
<li><code>list("x" = 100, "y" = 0)</code> for Outside Right Bottom </li>
<li><code>list("x" = 100, "y"= 1)</code> Outside Right Top </li>
<li><code>list("x" = 100, "y" = .5)</code> Outside Right Middle </li>
<li><code>list("x" = 0, "y" = -100)</code> Under Left </li>
<li><code>list("x" = 0.5, "y" = -100)</code> Under Center </li>
<li><code>list("x" = 1, "y" = -100)</code> Under Right </li>
</ul>

Then the response. 

<code>response = p$plotly(x,y,x2,y2, kwargs=list(layout=layoutstyle));</code>

Plotly returns a URL with your graph when you make a call. You can access that more quickly by calling <code>browseURL(response$url)</code> so it will open your graph in your browser for you.

<pre><code>url = response$url
filename = response$filename
</code></pre>

That gives us this graph. You can also move the legend from within the GUI and then the graph will scale accordingly. Full disclosure: I'm on the Plotly team.

<img src="https://i.stack.imgur.com/uLXhT.png" alt="Legend on side of graph">

blocks|key|3016813|text|除了已经提到的解决方案(使用layout或par(xpd=TRUE))之外，另一种解决方案是在整个设备上用透明图覆盖您的图，然后在上面添加图例。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|3016814|诀窍是在整个绘图区域上覆盖一个(空的)图形，并在上面添加图例。我们可以使用par(fig=...)选项。首先，我们指示R在整个绘图设备上创建一个新的绘图：|3016815|par(fig=c(0,+1,+0,+1),+oma=c(0,+0,+0,+0),+mar=c(0,+0,+0,+0),+new=TRUE)|code-block|syntax|javascript|3016816|设置oma和mar是必要的，因为我们想让绘图的内部覆盖整个设备。需要使用new=TRUE来防止R启动新设备。然后我们可以添加空图：|3016817|plot(0,+0,+type='n',+bty='n',+xaxt='n',+yaxt='n')|3016818|我们已经准备好添加图例：|3016819|legend("bottomright",+...)|3016820|将在设备的右下角添加一个图例。同样，我们可以将图例添加到上边距或右边距。我们唯一需要确保的是，原始地块的边缘足够大，可以容纳图例。|3016821|将所有这些放入一个函数中；|3016822|add_legend+<-+function(...)+{
++opar+<-+par(fig=c(0,+1,+0,+1),+oma=c(0,+0,+0,+0),+
++++mar=c(0,+0,+0,+0),+new=TRUE)
++on.exit(par(opar))
++plot(0,+0,+type='n',+bty='n',+xaxt='n',+yaxt='n')
++legend(...)
}|3016823|还有一个例子。首先创建绘图，确保底部有足够的空间来添加图例：|3016824|par(mar+=+c(5,+4,+1.4,+0.2))
plot(rnorm(50),+rnorm(50),+col=c("steelblue",+"indianred"),+pch=20)|3016825|然后添加图例|3016826|add_legend("topright",+legend=c("Foo",+"Bar"),+pch=20,+
+++col=c("steelblue",+"indianred"),
+++horiz=TRUE,+bty='n',+cex=0.8)|3016827|结果是：|3016828|​|3016829|📷|atomic|3016830|3016831|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/41f7a48420ab9810f699edafcb977570.png|imageAlt^0|E|6|L|D|0|11|C|0|0|2|3|6|3|10|8|0|0|0|0|0|0|0|0|0|0|0|0|0|0|1|0|0|0^^$0|@$1|2|3|4|5|6|7|1P|8|@$9|1Q|A|1R|B|C]|$9|1S|A|1T|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|1U|8|@$9|1V|A|1W|B|C]]|D|@]|E|$]]|$1|H|3|I|5|J|7|1X|8|@]|D|@]|E|$K|L]]|$1|M|3|N|5|6|7|1Y|8|@$9|1Z|A|20|B|C]|$9|21|A|22|B|C]|$9|23|A|24|B|C]]|D|@]|E|$]]|$1|O|3|P|5|J|7|25|8|@]|D|@]|E|$K|L]]|$1|Q|3|R|5|6|7|26|8|@]|D|@]|E|$]]|$1|S|3|T|5|J|7|27|8|@]|D|@]|E|$K|L]]|$1|U|3|V|5|6|7|28|8|@]|D|@]|E|$]]|$1|W|3|X|5|6|7|29|8|@]|D|@]|E|$]]|$1|Y|3|Z|5|J|7|2A|8|@]|D|@]|E|$K|L]]|$1|10|3|11|5|6|7|2B|8|@]|D|@]|E|$]]|$1|12|3|13|5|J|7|2C|8|@]|D|@]|E|$K|L]]|$1|14|3|15|5|6|7|2D|8|@]|D|@]|E|$]]|$1|16|3|17|5|J|7|2E|8|@]|D|@]|E|$K|L]]|$1|18|3|19|5|6|7|2F|8|@]|D|@]|E|$]]|$1|1A|3|1B|5|6|7|2G|8|@]|D|@]|E|$]]|$1|1C|3|1D|5|1E|7|2H|8|@]|D|@$9|2I|A|2J|1|2K]]|E|$]]|$1|1F|3|1B|5|6|7|2L|8|@]|D|@]|E|$]]|$1|1G|3|-4|5|6|7|2M|8|@]|D|@]|E|$]]]|1H|$1I|$5|1J|1K|1L|E|$1M|1N|1O|-4]]]]

Another solution, besides the ones already mentioned (using <code>layout</code> or <code>par(xpd=TRUE)</code>) is to overlay your plot with a transparent plot over the entire device and then add the legend to that.
The trick is to overlay a (empty) graph over the complete plotting area and adding the legend to that. We can use the <code>par(fig=...)</code> option. First we instruct R to create a new plot over the entire plotting device:
<pre><code>par(fig=c(0, 1, 0, 1), oma=c(0, 0, 0, 0), mar=c(0, 0, 0, 0), new=TRUE)
</code></pre>
Setting <code>oma</code> and <code>mar</code> is needed since we want to have the interior of the plot cover the entire device. <code>new=TRUE</code> is needed to prevent R from starting a new device. We can then add the empty plot:
<pre><code>plot(0, 0, type='n', bty='n', xaxt='n', yaxt='n')
</code></pre>
And we are ready to add the legend:
<pre><code>legend(&quot;bottomright&quot;, ...)
</code></pre>
will add a legend to the bottom right of the device. Likewise, we can add the legend to the top or right margin. The only thing we need to ensure is that the margin of the original plot is large enough to accomodate the legend.
Putting all this into a function;
<pre><code>add_legend &lt;- function(...) {
 opar &lt;- par(fig=c(0, 1, 0, 1), oma=c(0, 0, 0, 0), 
 mar=c(0, 0, 0, 0), new=TRUE)
 on.exit(par(opar))
 plot(0, 0, type='n', bty='n', xaxt='n', yaxt='n')
 legend(...)
}
</code></pre>
And an example. First create the plot making sure we have enough space at the bottom to add the legend:
<pre><code>par(mar = c(5, 4, 1.4, 0.2))
plot(rnorm(50), rnorm(50), col=c(&quot;steelblue&quot;, &quot;indianred&quot;), pch=20)
</code></pre>
Then add the legend
<pre><code>add_legend(&quot;topright&quot;, legend=c(&quot;Foo&quot;, &quot;Bar&quot;), pch=20, 
 col=c(&quot;steelblue&quot;, &quot;indianred&quot;),
 horiz=TRUE, bty='n', cex=0.8)
</code></pre>
Resulting in:
<img src="https://i.stack.imgur.com/YbFS3.png" alt="Example figure shown legend in top margin" />

blocks|key|294864|text|最近，我发现了一个非常简单和有趣的功能，可以在绘图区之外的地方打印图例。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|294865|在图的右侧画出外边距。|294866|par(xpd=T,+mar=par()$mar%2Bc(0,0,0,5))|code-block|syntax|javascript|294867|创建绘图|294868|plot(1:3,+rnorm(3),+pch+=+1,+lty+=+1,+type+=+"o",+ylim=c(-2,2))
lines(1:3,+rnorm(3),+pch+=+2,+lty+=+2,+type="o")|294869|添加图例，只需使用locator(1)函数，如下所示。然后你只需要在加载下面的脚本后点击你想要的地方。|294870|legend(locator(1),c("group+A",+"group+B"),+pch+=+c(1,2),+lty+=+c(1,2))|294871|试试看|294872|entityMap^0|0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|V|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|W|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|X|8|@]|9|@]|A|$]]|$1|K|3|L|5|F|7|Y|8|@]|9|@]|A|$G|H]]|$1|M|3|N|5|6|7|Z|8|@]|9|@]|A|$]]|$1|O|3|P|5|F|7|10|8|@]|9|@]|A|$G|H]]|$1|Q|3|R|5|6|7|11|8|@]|9|@]|A|$]]|$1|S|3|-4|5|6|7|12|8|@]|9|@]|A|$]]]|T|$]]

Recently I found very easy and interesting function to print legend outside of the plot area where you want.

Make the outer margin at the right side of the plot.

<pre><code>par(xpd=T, mar=par()$mar+c(0,0,0,5))
</code></pre>

Create a plot

<pre><code>plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch = 2, lty = 2, type="o")
</code></pre>

Add legend and just use locator(1) function as like below. Then you have to just click where you want after load following script.

<pre><code>legend(locator(1),c("group A", "group B"), pch = c(1,2), lty = c(1,2))
</code></pre>

Try it

blocks|key|294076|text|我喜欢这样做：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|294077|par(oma=c(0,+0,+0,+5))
plot(1:3,+rnorm(3),+pch=1,+lty=1,+type="o",+ylim=c(-2,2))
lines(1:3,+rnorm(3),+pch=2,+lty=2,+type="o")
legend(par('usr')[2],+par('usr')[4],+bty='n',+xpd=NA,
+++++++c("group+A",+"group+B"),+pch=c(1,+2),+lty=c(1,2))|code-block|syntax|javascript|294078|​|294079|📷|atomic|offset|length|294080|294081|唯一需要调整的是将右边距设置为足以容纳图例的宽度。|294082|但是，这也可以是自动化的：|294083|dev.off()+#+to+reset+the+graphics+pars+to+defaults
par(mar=c(par('mar')[1:3],+0))+#+optional,+removes+extraneous+right+inner+margin+space
plot.new()
l+<-+legend(0,+0,+bty='n',+c("group+A",+"group+B"),+
++++++++++++plot=FALSE,+pch=c(1,+2),+lty=c(1,+2))
#+calculate+right+margin+width+in+ndc
w+<-+grconvertX(l$rect$w,+to='ndc')+-+grconvertX(0,+to='ndc')
par(omd=c(0,+1-w,+0,+1))
plot(1:3,+rnorm(3),+pch=1,+lty=1,+type="o",+ylim=c(-2,+2))
lines(1:3,+rnorm(3),+pch=2,+lty=2,+type="o")
legend(par('usr')[2],+par('usr')[4],+bty='n',+xpd=NA,
+++++++c("group+A",+"group+B"),+pch=c(1,+2),+lty=c(1,+2))|294084|294085|294086|294087|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/e5c1a2959879011fb6ef4b2b9e308f0d.png|imageAlt|1|https://ask.qcloudimg.com/http-save/yehe-900000/4efe755e4c8c4b22ad7087b6c140da80.png^0|0|0|0|0|1|0|0|0|0|0|0|0|0|1|1|0|0^^$0|@$1|2|3|4|5|6|7|18|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|19|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|1A|8|@]|9|@]|A|$]]|$1|I|3|J|5|K|7|1B|8|@]|9|@$L|1C|M|1D|1|1E]]|A|$]]|$1|N|3|H|5|6|7|1F|8|@]|9|@]|A|$]]|$1|O|3|P|5|6|7|1G|8|@]|9|@]|A|$]]|$1|Q|3|R|5|6|7|1H|8|@]|9|@]|A|$]]|$1|S|3|T|5|D|7|1I|8|@]|9|@]|A|$E|F]]|$1|U|3|H|5|6|7|1J|8|@]|9|@]|A|$]]|$1|V|3|J|5|K|7|1K|8|@]|9|@$L|1L|M|1M|1|1N]]|A|$]]|$1|W|3|H|5|6|7|1O|8|@]|9|@]|A|$]]|$1|X|3|-4|5|6|7|1P|8|@]|9|@]|A|$]]]|Y|$Z|$5|10|11|12|A|$13|14|15|-4]]|16|$5|10|11|12|A|$13|17|15|-4]]]]

I like to do it like this:

<pre><code>par(oma=c(0, 0, 0, 5))
plot(1:3, rnorm(3), pch=1, lty=1, type="o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch=2, lty=2, type="o")
legend(par('usr')[2], par('usr')[4], bty='n', xpd=NA,
 c("group A", "group B"), pch=c(1, 2), lty=c(1,2))
</code></pre>

<a href="https://i.stack.imgur.com/te7UJ.png"><img src="https://i.stack.imgur.com/te7UJ.png" alt="enter image description here"></a>

The only tweaking required is in setting the right margin to be wide enough to accommodate the legend. 

However, this can also be automated:

<pre><code>dev.off() # to reset the graphics pars to defaults
par(mar=c(par('mar')[1:3], 0)) # optional, removes extraneous right inner margin space
plot.new()
l &lt;- legend(0, 0, bty='n', c("group A", "group B"), 
 plot=FALSE, pch=c(1, 2), lty=c(1, 2))
# calculate right margin width in ndc
w &lt;- grconvertX(l$rect$w, to='ndc') - grconvertX(0, to='ndc')
par(omd=c(0, 1-w, 0, 1))
plot(1:3, rnorm(3), pch=1, lty=1, type="o", ylim=c(-2, 2))
lines(1:3, rnorm(3), pch=2, lty=2, type="o")
legend(par('usr')[2], par('usr')[4], bty='n', xpd=NA,
 c("group A", "group B"), pch=c(1, 2), lty=c(1, 2))
</code></pre>

<a href="https://i.stack.imgur.com/UCasq.png"><img src="https://i.stack.imgur.com/UCasq.png" alt="enter image description here"></a>

blocks|key|296818|text|添加另一个简单的替代方案，在我看来这是非常优雅的。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|296819|你的图：|296820|plot(1:3,+rnorm(3),+pch+=+1,+lty+=+1,+type+=+"o",+ylim=c(-2,2))
lines(1:3,+rnorm(3),+pch+=+2,+lty+=+2,+type="o")|code-block|syntax|javascript|296821|图例：|296822|legend("bottomright",+c("group+A",+"group+B"),+pch=c(1,2),+lty=c(1,2),
+++++++inset=c(0,1),+xpd=TRUE,+horiz=TRUE,+bty="n"
+++++++)|296823|结果：|296824|​|296825|📷|atomic|offset|length|296826|296827|在这里，您的示例中只添加了图例的第二行。依次为：|296828|296829|inset=c(0,1)+-按绘图区域的分数沿(x，y)方向移动图例。在本例中，图例位于"bottomright"位置。它在x方向上移动0个绘图区(因此保持在“右”)，在y方向上移动1个绘图区(从下到上)。它恰好出现在plot.|unordered-list-item|style|CODE|296830|xpd=TRUE的正上方--让图例出现在plotting+region.|296831|horiz=TRUE之外--指示生成一个水平legend.|296832|bty="n"+--一种去除图例边界框的样式细节。|296833|296834|在边上添加图例时也是如此：|296835|par(mar=c(5,4,2,6))
plot(1:3,+rnorm(3),+pch+=+1,+lty+=+1,+type+=+"o",+ylim=c(-2,2))
lines(1:3,+rnorm(3),+pch+=+2,+lty+=+2,+type="o")

legend("topleft",+c("group+A",+"group+B"),+pch=c(1,2),+lty=c(1,2),
+++++++inset=c(1,0),+xpd=TRUE,+bty="n"
+++++++)|296836|在这里，我们简单地调整了图例位置，并在绘图的右侧添加了额外的页边距空间。结果：|296837|296838|296839|296840|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/636d4bb21573a6ee6f3d704a485ed0f1.png|imageAlt|1|https://ask.qcloudimg.com/http-save/yehe-900000/03ca475aea7651830e8215d08f01c558.png^0|0|0|0|0|0|0|0|0|1|0|0|0|0|0|0|C|18|D|0|0|8|0|0|A|0|0|7|0|0|0|0|0|0|0|1|1|0|0^^$0|@$1|2|3|4|5|6|7|1V|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|1W|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|1X|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|1Y|8|@]|9|@]|A|$]]|$1|K|3|L|5|F|7|1Z|8|@]|9|@]|A|$G|H]]|$1|M|3|N|5|6|7|20|8|@]|9|@]|A|$]]|$1|O|3|P|5|6|7|21|8|@]|9|@]|A|$]]|$1|Q|3|R|5|S|7|22|8|@]|9|@$T|23|U|24|1|25]]|A|$]]|$1|V|3|P|5|6|7|26|8|@]|9|@]|A|$]]|$1|W|3|X|5|6|7|27|8|@]|9|@]|A|$]]|$1|Y|3|-4|5|6|7|28|8|@]|9|@]|A|$]]|$1|Z|3|10|5|11|7|29|8|@$T|2A|U|2B|12|13]|$T|2C|U|2D|12|13]]|9|@]|A|$]]|$1|14|3|15|5|11|7|2E|8|@$T|2F|U|2G|12|13]]|9|@]|A|$]]|$1|16|3|17|5|11|7|2H|8|@$T|2I|U|2J|12|13]]|9|@]|A|$]]|$1|18|3|19|5|11|7|2K|8|@$T|2L|U|2M|12|13]]|9|@]|A|$]]|$1|1A|3|-4|5|6|7|2N|8|@]|9|@]|A|$]]|$1|1B|3|1C|5|6|7|2O|8|@]|9|@]|A|$]]|$1|1D|3|1E|5|F|7|2P|8|@]|9|@]|A|$G|H]]|$1|1F|3|1G|5|6|7|2Q|8|@]|9|@]|A|$]]|$1|1H|3|P|5|6|7|2R|8|@]|9|@]|A|$]]|$1|1I|3|R|5|S|7|2S|8|@]|9|@$T|2T|U|2U|1|2V]]|A|$]]|$1|1J|3|P|5|6|7|2W|8|@]|9|@]|A|$]]|$1|1K|3|-4|5|6|7|2X|8|@]|9|@]|A|$]]]|1L|$1M|$5|1N|1O|1P|A|$1Q|1R|1S|-4]]|1T|$5|1N|1O|1P|A|$1Q|1U|1S|-4]]]]

Adding another simple alternative that is quite elegant in my opinion.

Your plot:

<pre><code>plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch = 2, lty = 2, type="o")
</code></pre>

Legend:

<pre><code>legend("bottomright", c("group A", "group B"), pch=c(1,2), lty=c(1,2),
 inset=c(0,1), xpd=TRUE, horiz=TRUE, bty="n"
 )
</code></pre>

Result:

<a href="https://i.stack.imgur.com/CBTfe.png" rel="noreferrer"><img src="https://i.stack.imgur.com/CBTfe.png" alt="picture with legend"></a>

Here only the second line of the legend was added to your example. In turn:

<ul>
<li><code>inset=c(0,1)</code> - moves the legend by fraction of plot region in (x,y) directions. In this case the legend is at <code>"bottomright"</code> position. It is moved by 0 plotting regions in x direction (so stays at "right") and by 1 plotting region in y direction (from bottom to top). And it so happens that it appears right above the plot.</li>
<li><code>xpd=TRUE</code> - let's the legend appear outside of plotting region.</li>
<li><code>horiz=TRUE</code> - instructs to produce a horizontal legend.</li>
<li><code>bty="n"</code> - a style detail to get rid of legend bounding box.</li>
</ul>

Same applies when adding legend to the side:

<pre><code>par(mar=c(5,4,2,6))
plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch = 2, lty = 2, type="o")

legend("topleft", c("group A", "group B"), pch=c(1,2), lty=c(1,2),
 inset=c(1,0), xpd=TRUE, bty="n"
 )
</code></pre>

Here we simply adjusted legend positions and added additional margin space to the right side of the plot. Result:

<a href="https://i.stack.imgur.com/lRGOo.png" rel="noreferrer"><img src="https://i.stack.imgur.com/lRGOo.png" alt="picture with legend 2"></a>

As the title says: How can I plot a legend outside the plotting area when using base graphics?

I thought about fiddling around with <code>layout</code> and produce an empty plot to only contain the legend, but I would be interested in a way using just the base graph facilities and e.g., <code>par(mar = )</code> to get some space on the right of the plot for the legend.

<hr>

Here an example:

<pre><code>plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch = 2, lty = 2, type="o")
legend(1,-1,c("group A", "group B"), pch = c(1,2), lty = c(1,2))
</code></pre>

produces:

<img src="https://i.stack.imgur.com/ADmGV.png" alt="alt text">

But as said, I would like the legend to be outside the plotting area (e.g., to the right of the graph/plot.

Plot a legend outside of the plotting area in base graphics?

正如标题所说:使用基础图形时，如何在绘图区域之外绘制图例？我想过摆弄layout，生成一个只包含图例的空图，但我感兴趣的是一种只使用基本图形工具的方法，例如par(mar = )，以便在图例图的右侧获得一些空间。下面是一个示例：plot(1:3, rnorm(3), pch = 1, lty = 1, type = "...

问是否在基础图形中的绘图区域之外绘制图例？
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问是否在基础图形中的绘图区域之外绘制图例？EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问是否在基础图形中的绘图区域之外绘制图例？
EN