r - 调整ggplot2和plotly中绘图的高度

Question

我使用 ggplot2 创建了一个简单的折线图，并使用 box() 函数将绘图放入框中。然而， plotly 超出了屏幕，我希望调整 plotly 的大小。请帮我做同样的事情。

library(plotly)

datn <- read.table(header=TRUE, text='
supp dose length
OJ  0.5  13.23
OJ  1.0  22.70
OJ  2.0  26.06
VC  0.5   7.98
VC  1.0  16.77
VC  2.0  26.14
')

p <- ggplot(data=datn, aes(x=dose, y=length, group=supp, colour=supp)) +
geom_line() +
geom_point()

p <- ggplotly(p)

Answer 1

编辑:抱歉，我错过了您关于您使用 box() 添加绘图边框的评论(它不在您的示例代码中)。我建议改为使用 ggplot2's panel border functionality :

p = p +
  theme(panel.border = element_rect(colour = "black", fill = NA, size = 3))

原始:您提供的代码在我的笔记本电脑上没有超出范围:

但如果需要，您可以为 ggplotly() 提供显式高度和宽度参数:

ggplotly(p, width = 500, height = 200)

该函数有 some other nice arguments用于控制绘图的外观。