R图中图例中的标题位置

Question

我用下面的代码画了个图

x = seq(-20,20,by=0.2);
c = .2;
y1 = exp(c*x);
c = .5;
y2 = exp(c*x);
c = 1;
y3 = exp(c*x);
par(mgp = c(2,.5,0));   # to adjust dist of x/y label to plot, x/y axes to plot
plot(x,
     y1,
     type="l",
     xlab=expression(x-theta),
     ylab=expression(L(x,theta)),
     main="function");
lines(x,y2,col="blue");
lines(x,y3,col="green");
legend(x=-20,
       y=40,
       title=expression(L(x, theta)==e^{c(x-theta)}),
       legend=expression("c=.2", "c=.5", "c=1"),
       lty=c(1, 1, 1),
       lwd=c(2.5, 2.5,2.5),
       col=c("black","blue","green"));

我发现图例中$(x-\theta)$的括号超出了方框。有什么办法可以把那个表情下移吗？我尝试用

替换原来的图例函数

legend(x=-20,y=40,title.adj=c(0,.5), title=expression(L(x,theta)==e^{c(x-theta)}), legend=expression("c=.2","c=.5","c=1"), lty=c(1,1,1), lwd=c(2.5,2.5,2.5), col=c("black","blue","green"));

然而，该表达式在图例框中出现了两次。

谢谢！

Answer 1

我认为没有盒子看起来更好 (legend( ... ,bty='n') )，但如果你真的想要一个盒子，你可以这样做:

lgnd = legend(x=-20,
               y=40,
               title=expression(L(x, theta)==e^{c(x-theta)}),
               legend=expression("c=.2", "c=.5", "c=1"),
               lty=c(1, 1, 1),
               lwd=c(2.5, 2.5,2.5),
               col=c("black","blue","green"),
               # no box
               bty='n');

# plot your own box using the lgnd$rect as your starting point
params = lgnd$rect
rect(xleft = params[['left']],
    ybottom = params[['top']] - params[['h']],
    xright = params[['left']] + params[['w']],
    ytop = params[['top']] + 1)

R图中图例中的标题位置

title position in legend in R plot

plot

r

legend