将 ggplotly 和 ggplot 与拼凑结合起来？
Combine ggplotly and ggplot with patchwork?
是否可以将 ggplotly 和 ggplot 拼凑起来？
例子
这会并排显示两个图
library(ggplot2)
library(plotly)
library(patchwork)
a <- ggplot(data.frame(1), aes(X1)) + geom_bar()
b <- ggplot(data.frame(1), aes(X1)) + geom_bar()
a + b
但是如果我们将一个转换为 ggplotly，它会出错
b <- ggplotly(b)
a + b
Error: Can't add `b` to a ggplot object.
Run `rlang::last_error()` to see where the error occurred.
有没有办法解决这个问题？
Plotly 具有 subplot 将多个绘图组合在一起的功能：
library(ggplot2)
library(plotly)
df1 <-data.frame(x=1:10, y=1:10)
df2 <- data.frame(x=10:1, y=1:10)
p1<-ggplot(df1, aes(x, y)) +geom_point()
fig1<-ggplotly(p1)
p2<-ggplot(df2, aes(x, y)) +geom_line()
fig2<-ggplotly(p2)
subplot(fig1, fig2, nrows=2)
有关更多信息和示例，请参阅 https://plotly.com/r/subplots/。
虽然有可能，但维护者表示它不在当前计划之内
是否可以将 ggplotly 和 ggplot 拼凑起来？
例子
这会并排显示两个图
library(ggplot2)
library(plotly)
library(patchwork)
a <- ggplot(data.frame(1), aes(X1)) + geom_bar()
b <- ggplot(data.frame(1), aes(X1)) + geom_bar()
a + b
但是如果我们将一个转换为 ggplotly，它会出错
b <- ggplotly(b)
a + b
Error: Can't add `b` to a ggplot object.
Run `rlang::last_error()` to see where the error occurred.
有没有办法解决这个问题？
Plotly 具有 subplot 将多个绘图组合在一起的功能：
library(ggplot2)
library(plotly)
df1 <-data.frame(x=1:10, y=1:10)
df2 <- data.frame(x=10:1, y=1:10)
p1<-ggplot(df1, aes(x, y)) +geom_point()
fig1<-ggplotly(p1)
p2<-ggplot(df2, aes(x, y)) +geom_line()
fig2<-ggplotly(p2)
subplot(fig1, fig2, nrows=2)
有关更多信息和示例，请参阅 https://plotly.com/r/subplots/。
虽然有可能，但维护者表示它不在当前计划之内