我可以使用以下命令在ggplot中自定义字体:
库(extrafont)
windowsFonts()font_import(pattern =“comic”,prompt = FALSE)loadfonts(device =“win”)windowsFonts()
ggplot(映射= AES(X = SEQ(1,10,0.1)…
我找到了一个似乎可以解决的解决方案 shinyapps.io (但不是本地的,因为它是一个Linux唯一的解决方案。不知何故,它不适用于我原来的'ComicSans MS'字体,但这种字体反正并不漂亮.. ;-))
shinyapps.io
开始了:
www
IndieFlower.ttf
这导致以下内容 app.R 文件:
app.R
ibrary(ggplot2) library(shiny) dir.create('~/.fonts') file.copy("www/IndieFlower.ttf", "~/.fonts") system('fc-cache -f ~/.fonts') ui <- fluidPage(plotOutput("plot")) server <- function(input, output) { output$plot <- renderPlot({ ggplot(mapping=aes(x=seq(1,10,.1), y=seq(1,10,.1))) + geom_line(position="jitter", color="red", size=2) + theme_bw() + theme(text=element_text(size = 16, family = "IndieFlower")) }) } shinyApp(ui = ui, server = server)
情节如下: