在ggplot2和plotly中调整绘图的高度

Question

我使用ggplot2创建了一个简单的折线图，并使用box（）函数将图放在一个框中。然而，情节超出了屏幕，我希望调整情节。请帮助我。

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)