Я пытаюсь сделать приложение с прозрачными графиками на разных цветах фона. Проблема в том, что текст на графиках выглядит очень низким разрешением.
Тот же вопрос был задан в низком разрешении на графиках R ggplot2 с прозрачным фоном в приложении Shiny , но без MRE и не получил ответа.
Вот MRE:
library(shiny)
transparent_theme = theme_bw(20) + theme(
panel.background = element_rect(fill = "transparent"),
plot.background = element_rect(fill = "transparent", color = NA),
panel.grid = element_blank(),
panel.border = element_blank(),
axis.line = element_line()
)
ui = fluidPage(
tags$style('.container-fluid { background-color: #007BA7;}'),
plotOutput("test")
)
server = function(input, output){
output$test = renderPlot({
X = data.frame(x=1:10, y=1:10)
ggplot(X, aes(x=x, y=y)) + geom_point(size=5) + ggtitle("Test") +
transparent_theme
}, bg = "transparent")
}
shinyApp(ui, server)