изменить шрифт в plotrix 'multhist - PullRequest
Новая
       34

изменить шрифт в plotrix 'multhist

1 голос
/ 11 апреля 2020

Предположим, что данные 

library(plotrix)
set.seed(42)
a <- rnorm(100)
b <- rnorm(100) + 1

, и я хотел бы построить их, используя multhist() из plotrix и использовать шрифт Palatino (или любой другой шрифт с засечками). К сожалению, 

multhist(list(a,b), family="Palatino")

дает стандартный сюжет с шрифтом без засечек. Есть ли хитрость, чтобы изменить шрифты в multhist()?

1 Ответ

1 голос
/ 12 апреля 2020

Plotrix вызывает параметры barplot по умолчанию, и чтобы изменить там шрифты, необходимо использовать пар. Для MacOS это должно быть , как описано в этом посте

Не очень хорошо со шрифтами, надеюсь, это правильно: 

par(mfrow=c(1,3))
par(family ="sans")
multhist(list(a,b),main="sans")

quartzFonts(palatino = c("Palatino Regular","Palatino Italic",
"Palatino Bold","Palatino Bold Italic"))
par(family ="Palatino")
multhist(list(a,b),main="Palatino")

quartzFonts(avenir = c("Avenir Book", "Avenir Black", 
"Avenir Book Oblique", "Avenir Black Oblique"))
par(family ="avenir")
multhist(list(a,b),main="avenir")

enter image description here

Итак, вам нужно открыть новое устройство и сделать: 

quartzFonts(palatino = c("Palatino Regular","Palatino Italic",
    "Palatino Bold","Palatino Bold Italic"))
    par(family ="Palatino")
    multhist(list(a,b),main="Palatino")
...