R语言 plotly::subplot()中丢失的轴标签

lx0bsm1f  于 2023-01-18  发布在  其他
关注(0)|答案(1)|浏览(183)

继续grid.arrange with ggplotly中介绍的示例

library(ggplot2)
library(gridExtra)
library(plotly)

d <- data.frame(x=1:20,y=1:20, z=20:1)
p1 <- ggplot(data=d) +
  geom_point(aes(x=x, y=y)) +
  xlab("X") + ylab("Y")
p2 <- ggplot(data=d) +
  geom_point(aes(x=x, y=z)) +
  xlab("X") + ylab("Z")
ggplotly(p1)
ggplotly(p2)

轴标签随子图丢失:

ggplotly(p1)
ggplotly(p2)
ply1 <- ggplotly(p1)
ply2 <- ggplotly(p2)
subplot(ply1, ply2, nrows=1)

我如何实际保留轴标签?

np8igboo

np8igboo1#

您可以在subplot中使用titleYtitleX来添加标签。使用margin,您可以在图之间添加一些空白,如下所示:

library(ggplot2)
library(gridExtra)
library(plotly)

d <- data.frame(x=1:20,y=1:20, z=20:1)
p1 <- ggplot(data=d) +
  geom_point(aes(x=x, y=y)) +
  xlab("X") + ylab("Y")
p2 <- ggplot(data=d) +
  geom_point(aes(x=x, y=z)) +
  xlab("X") + ylab("Z")

ply1 <- ggplotly(p1)
ply2 <- ggplotly(p2)
subplot(ply1, ply2, nrows=1, 
        titleY = TRUE, 
        titleX = TRUE,
        margin = 0.05)

创建于2023年1月16日,使用reprex v2.0.2

相关问题