ggplot字体问题

加载经常用的R包

library(pacman)
p_load(tidyverse, stringr, DT, skimr, DataExplorer, grf, glmnet, caret, tidytext, 
    explore, patchwork, ggrepel, ggcorrplot, gghighlight, ggthemes, fpp2, forecast, 
    magrittr, readxl, writexl, listviewer, car, tseries, vtable)

library(ggplot2)
d <- data.frame(x = c(0, 0.002, 0.00575), y = 1:3)
p <- ggplot(d, aes(x, y)) + geom_point() + xlab(NULL) + ylab(NULL)
print(p)

p + xlim(NA, 0.0061) + theme(text = element_text(family = "Times New Roman", size = 13)) + 
    theme(axis.text.x = element_text(colour = "red"))