Как визуализировать шрифты в ggplot в блестящем приложении в Ubuntu

У меня блестящее приложение с ggplot. Если я загружаю его в shinyapps.io или если я создаю ggplot вне shinyapp в Rstudio, он показывает правильные шрифты, но когда я отображаю его в браузере Rstudio или системном браузере, он не показывает правильные шрифты, просто по умолчанию в ggplot.

   ui <- fluidPage(
        titlePanel("Hello Shiny!"),
        sidebarLayout(
            sidebarPanel(),
            mainPanel(
                plotOutput(outputId = "distPlot")
            )
        )
    )
    server <- function(input, output) {
        output$distPlot <- renderPlot({
            myFont1 <- "Montserrat"
            myFont2 <- "Roboto"
            myFont3 <- "CourierNew"

            library(ggplot2)
            a <- ggplot(mtcars, aes(x = wt, y = mpg)) + 
                geom_point() +
                ggtitle("Montserrat") +
                theme(text = element_text(size = 16, family = myFont1)) +
                annotate("text", 4, 30, label = 'Roboto',
                         family = myFont2, size = 10) +
                annotate("text", 1, 11, label = 'Courier New', hjust = 0,
                         family = myFont3, size = 10) 
            a
        })
    }

shinyApp(ui=ui, server=server)
0
задан Ferroao 9 September 2019 в 17:28
поделиться