如何将ggplot2图形按自定义角度整体旋转？

嘿，想要把整个ggplot2绘图按自定义角度旋转，其实用grid包就能轻松搞定——毕竟ggplot本身没提供原生的全图旋转功能，咱们借点工具就行😉。我结合你的示例代码给你演示具体操作：

首先得加载需要的包：

library(ggplot2)
library(grid)

接着用你的数据生成绘图对象：

set.seed(123) 
data_plot <- data.frame(x = sort(rnorm(1000)), y = sort(rnorm(1000)))

# 先创建基础的ggplot图形
p <- ggplot(data_plot, aes(y, x)) + geom_line()

核心步骤来了：把ggplot对象转换成grob（图形对象），然后用rotate()指定旋转角度，最后用grid.draw()渲染出来。比如咱们要转20度：

# 将ggplot转为grob并旋转20度
rotated_plot <- rotate(ggplotGrob(p), angle = 20)

# 绘制旋转后的图形
grid.draw(rotated_plot)

要是旋转后图形边缘被截断了，还可以通过设置视口（viewport）来调整位置和大小，避免内容被切掉：

# 调整视口后的旋转
rotated_plot <- rotate(ggplotGrob(p), 
                       angle = 20, 
                       vp = viewport(x = 0.5, y = 0.5, width = 0.8, height = 0.8))
grid.draw(rotated_plot)

这样整个绘图就会按照你设定的角度完整旋转啦，比只旋转轴文本的效果彻底得多~

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