如何更改R图中图例中的字体系列？

Question

我有一个图表使用基本图形包。对于特定点上的标签，我使用

   text(i, MSSAcar$summary[i,7]+.7, qld$LGA[i],
   col='red',  cex=.7, family='serif')

我也在主图和轴标签的图中使用了它。它们都按预期出现了。

当我添加图例时，我似乎无法设置字体系列。

任何人都可以帮忙。

感谢。

Answer 1

在调用family之前设置legend()绘图参数为您想要的值。通过显式调用par()来执行此操作。这是一个简单的例子

x <- y <- 1:10
plot(x, y, type = "n")
text(x = 5, y = 5, labels = "foo", family = "serif")

## set the font family to "serif"
## saving defaults in `op`
op <- par(family = "serif")

## plot legend as usual
legend("topright", legend = "foo legend", pch = 1, bty = "n")

## reset plotting parameters
par(op)

实际上，您可以在第一次调用family之前更改plot()，并在调用family = "serif"时省略text()参数。通过par()设置对于当前设备是全局的，使用函数调用中的参数是该调用的本地参数。

以上代码产生：