是否可以使用 ggplot2 修复轴边距？

Question

我有一个交互式显示，由一个条形图组成，显示不同类别的选定统计信息。然而，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轴标签的宽度？（或者等同于绘图面板的宽度？）

我确实找到了相关问题，但都在静态上下文中解决了，例如 with facets or with gtable。

Answer 1

一种方法是提供一个标签函数，通过用空格填充标签宽度来规范化标签宽度。 function(label) sprintf('%15.2f', label) 将在左侧填充 15 个空格并打印带有 2 位小数的数值。

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))) +
        scale_y_continuous(labels=function(label) sprintf('%15.2f', label)) +
        geom_bar(stat = 'sum') +
        theme(text = element_text(size=20), legend.position="none")
    )
  }
)

是否可以使用 ggplot2 修复轴边距？

Is it possible to fix axis margin with ggplot2?

r

ggplot2

shiny

fixed-width