You can use the extrafont package to pick the font that you want.
library(ggplot2)
library(ggpmisc)
### Use more updated dev version on Github
# install.packages("remotes")
# remotes::install_github("wch/extrafont")
library(extrafont)
### Run this one only ONCE to import all fonts to R
# font_import(prompt = FALSE)
# or import only specific font
font_import(pattern = "DejaVu", prompt = FALSE)
# if the font is not in default search path e.g. `C:/Windows/Fonts/`
myfontPath <- "C:/Users/xxx/Downloads/Fonts/"
font_import(pattern = "DejaVu",
paths = myfontPath,
recursive = TRUE,
prompt = FALSE)
### Load fonts
# Options: "all", "pdf", "postscript", or "win"
loadfonts(device = "all")
### Choose the desired font
myFont <- "DejaVu Sans Mono"
# Can also override the default sans, mono or serif fonts
windowsFonts(mono = myFont)
windowsFonts()
### Plot
set.seed(666)
df <- data.frame(x = c(1:100))
df$y <- 2 + 3*df$x + rnorm(100, sd = 40)
formula1 <- y ~ x
ggplot(data = df, aes(x = x, y = y)) +
geom_point() +
geom_smooth(method = "lm", se = FALSE, formula = formula1) +
stat_poly_eq(aes(label = paste(..eq.label.., sep = "~~~")),
family = myFont, # specify font
label.x.npc = "right", label.y.npc = 0.15,
eq.with.lhs = "italic(hat(y))~`=`~",
eq.x.rhs = "~italic(x)",
formula = formula1, parse = TRUE, size = 6) +
stat_poly_eq(aes(label = paste(..rr.label.., sep = "~~~")),
family = myFont,
label.x.npc = "right", label.y.npc = "bottom",
formula = formula1, parse = TRUE, size = 6) +
theme_bw(base_size = 20,
base_family = myFont) # specify font
