r - 使图形缩小

Question

我正在尝试使用 plotly 使我的图表更具交互性。但是，当我使用它时，它会垂直缩小我的图表，有没有办法可以阻止它，或者只是再次垂直拉伸我的图表？

这是图表的代码；

##stacked column chart for expenditure breakdowns
stackedCol <- ggplot(expenditureDS, aes(fill = Category, y=AvgExpenditurePerWeek, x=Category)) + 
    geom_bar(stat="identity",
             width = 0.6,
             color = "black",
             size = 0.5,
             alpha = 0.7) + 
    theme_minimal() +
    theme(legend.position = "none", axis.text.x = element_text(angle = 45, hjust = 0.8)) +
    labs(x= "Categories", y = "Expenditure Per Week",
            title = "All Households in NZ - Expenditure Breakdowns",
            caption = "2008-2020 data") +
    theme(
    panel.grid.major.x = element_blank(),
    panel.grid.minor.x = element_blank()) +
    theme(plot.title = element_text(hjust = 0)) +
    geom_text(aes(label = if_else(AvgExpenditurePerWeek > 20, as.character(SubCategory), "")), 
          position = position_stack(vjust = 0.5), size = 2.5, hjust = 0.5, angle = 0) +
    scale_y_continuous(labels= dollar_format(prefix="$"))

ggplotly(stackedCol)

这是没有ggplotly(stackedCol);

这是带有ggplotly(stackedCol); 的图表

标签： rggplot2jupyter-notebookplotlyr-plotly