更改格子图例的字体答案

【问题标题】：Change font of lattice legend更改格子图例的字体
【发布时间】：2019-09-01 21:06:52
【问题描述】：

我将格子图的字体更改为 LM Modern 10，并将其包含在个性化主题中。是否还有一个选项可以在主题中包含图例的字体样式？如果没有，是否可以更改 key 参数中的字体样式？

谢谢，马拉

代码示例：

mytheme<-list()
mytheme$par.xlab.text$fontfamily="LM Roman 10"

my.key <- list(
  space="bottom",
  columns=3,
  lines=list(pch=c(19,1,15),  size = 7,type=c("p")),
  text = list(c("text1", "text2", "text3")))

xyplot(data=dataframe,
       d1~d2,
       par.settings=mytheme,
       key=my.key)

【问题讨论】：

如果不是太多工作，我建议切换到ggplot 以获得更好的支持stackoverflow.com/q/34522732/786542
感谢您的回答。不幸的是，我没有任何使用 ggplot 的经验，所以我更愿意坚持使用 lattice。
没问题，但请查看ggplot2-exts.org/gallery，看看您是否可以利用ggplot2 的各种插件包
我想我会尝试 ggplot。感谢回复

标签： r key legend lattice

【解决方案1】：

我认为它可能会完成......试试这个：

使用 extraFonts 加载字体集。在此示例中，我将使用旧标准字体 (https://fonts.google.com/specimen/Old+Standard+TT?selection.family=Old+Standard+TT)，因为我找不到真正的 LM Roman 字体。

# do once! library(extrafont) font_import(pattern = "Old*", path = "C:/Downloads/Old_Standard_TT")
接下来加载字体（每次都使用 extraFont）

library(extrafont) loadfonts(device = "win")
更改格中的 par.settings：

library(lattice)


dataframe <- data.frame(d1 = rnorm(100), d2 = rnorm(100))

font.settings <- list(
  font = 1,
  cex = 1,
  fontfamily = "Old Standard TT")


my.theme <- list(
  par.xlab.text = font.settings,
  par.ylab.text = font.settings,
  axis.text = font.settings,
  sub.text = font.settings,
  add.text = font.settings)

my.key <- list(
  space="bottom",
  columns=3,
  lines=list(pch=c(19,1,15),  size = 7,type=c("p")),
  text = list(c("text1", "text2", "text3")),
  fontfamily = "Old Standard TT")

xyplot(data=dataframe,
       d1~d2,
       par.settings=my.theme,
       key=my.key)




`

https://r.789695.n4.nabble.com/color-and-fontfamily-in-lattice-td877556.html

How can I make an R plot use the Latin Modern font family when saved as a PDF?

【讨论】：