如何在R中实现动态绘图区域的图形旋转？

要让旋转后的ggplot图形在Shiny应用中随绘图区域动态调整，核心是利用相对单位并适配旋转后的尺寸逻辑，避免手动固定viewport的宽高。以下是两种可行方案：

方案一：手动适配viewport的宽高维度 #

旋转90度后，图形的宽高维度会互换，因此需要将viewport的width和height参数反向设置，同时使用相对单位（npc，即父容器的百分比）来实现动态缩放。

Shiny示例代码 #

library(shiny)
library(ggplot2)
library(grid)

ui <- fluidPage(
  plotOutput("rotated_plot", width = "100%", height = "auto")
)

server <- function(input, output) {
  output$rotated_plot <- renderPlot({
    # 生成基础图形
    p <- ggplot(1:10, aes(x = 1:10, y = 1:10)) + geom_point()
    
    grid.newpage()
    
    # 左侧原始图形：占容器45%宽度、90%高度
    print(p, vp = viewport(
      x = 0.25, y = 0.5, 
      width = 0.45, height = 0.9, 
      just = "center"
    ))
    
    # 右侧旋转90度图形：互换宽高参数（用90%宽度、45%高度），确保旋转后适配容器
    print(p, vp = viewport(
      x = 0.75, y = 0.5, 
      width = 0.9, height = 0.45, 
      angle = 90, just = "center"
    ))
  }, res = 96)
}

shinyApp(ui, server)

方案二：用rotateGrob + grid.arrange简化适配 #

gridExtra包的rotateGrob会自动处理旋转后的尺寸转换，配合grid.arrange的布局功能，无需手动调整viewport，更适合动态场景。

Shiny示例代码 #

library(shiny)
library(ggplot2)
library(gridExtra)

ui <- fluidPage(
  plotOutput("rotated_plot", width = "100%", height = "auto")
)

server <- function(input, output) {
  output$rotated_plot <- renderPlot({
    p <- ggplot(1:10, aes(x = 1:10, y = 1:10)) + geom_point()
    # 旋转图形
    rotated_p <- rotateGrob(p, angle = 90)
    # 并排布局，用相对宽度分配空间
    grid.arrange(p, rotated_p, ncol = 2, widths = c(0.45, 0.45), heights = unit(1, "npc"))
  }, res = 96)
}

shinyApp(ui, server)

关键注意事项 #

• 旋转90度时，图形的宽高逻辑会互换，必须对应调整布局的宽高参数
• 始终使用npc相对单位而非固定像素/数值，确保绘图区域变化时自动缩放
• Shiny中plotOutput的height设为auto或百分比，配合renderPlot的动态渲染，能进一步增强适配性

内容的提问来源于stack exchange，提问作者mmoisse