Семейство шрифтов не строит одно и то же для ylab и xlab на решетчатых графиках - PullRequest
Новая
       77

Семейство шрифтов не строит одно и то же для ylab и xlab на решетчатых графиках

2 голосов
/ 31 января 2020

Я пытаюсь изменить шрифт для нескольких графиков решетки на «Times New Roman» и после указания шрифтовой семьи в новой теме, как xlab, так и ylab в Time New Roman, но ylab всегда немного отличается (тоньше и легче).

Вот мой код для импорта и подтверждения наличия шрифта, установки шрифтовой семьи в новой теме и пример сюжета: 

library(lattice)
install.packages("extrafont")
library(extrafont)      
font_import()                 # import fonts
loadfonts(device="win")       # Register fonts for Windows bitmap output
fonts()                       # "Times New Roman" is available

font.settings <- list(
  fontfamily = "Times New Roman")
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)

dat <- data.frame(year = as.factor(rep(seq(2001, 2004,1),20)), cw = rep(1:20,4),
    ch = rep(1:20,4))
xyplot(ch ~ cw | year, data = dat,
    ylab = "This is y-label", xlab = "This is x-label",
    layout = c(2,2),
    par.settings = my.theme)

Ylab выглядит иначе, чем xlab на экране и при сохранении в формате pdf, png и т. д. c.

Я подтвердил, что тема для par.settings реагирует на различные параметры, используя приведенный ниже код (только для примера), так что кажется, что par.xlab.text и par.ylab.test работают. 

font.settings <- list(
  fontfamily = "Times New Roman")
font.settings2 <- list(
  fontfamily = "Perpetua",
  col = "red")
my.theme <- list(
  par.xlab.text = font.settings2,
  par.ylab.text = font.settings,
  axis.text = font.settings,
  sub.text = font.settings,
  add.text = font.settings)

Я следовал методам в Решетке Дипаяна Саркара в главе 7 и получаю похожие результаты.

Заранее спасибо

...