У меня блестящее приложение с 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)