Можно ли исправить маржу оси с помощью ggplot2?
У меня есть интерактивный дисплей, состоящий из гистограммы, которая показывает выбранную статистику для разных категорий. Тем не мение,ggplot2
перенастраивает ширину оси Y в зависимости от меток и, следовательно, заставляет полосы раздражающе перемещаться в направлении X. См пример:
library(shiny)
library(dplyr)
library(ggplot2)
shinyApp(
ui = bootstrapPage(
selectInput('statistic', label='Chose a statistic', choices=c('carat', 'depth', 'table', 'price')),
plotOutput('plot')
),
server = function(input, output) {
output$plot <- renderPlot(
diamonds %>%
ggplot(aes(x=color, y=get(input$statistic))) +
geom_bar(stat = 'sum') +
theme(text = element_text(size=20), legend.position="none")
)
}
)
Как я могу исправить ширину метки оси Y? (или эквивалентно ширине графической панели?)
Я нашел похожие вопросы, но все они были решены, например, в статическом контекстес гранями или сgtable
.