如何使用函数 ggplot() 和 plot_ly 增加 R 中轴标签和轴标题之间的空间？

Question

似乎每当我使用包plotly 在R 中创建图形时，轴标题总是覆盖轴标签。我现在有 2 个发生这种情况的图表。我应该使用什么代码来增加使用plot_ly() 和ggplot() 的轴标题和标签之间的空间？以及如何确保图例在 Plot 1 中可见且不会被截断？

以前的 StackOverflow 问题提供了构建代码的不同方法，但它们似乎不适用于我的代码。

情节 1：

plot <- ggplot(dat, aes(x=HeightUnderCWD, y=GrassHeight))+ geom_point()+ labs(x = "Height under CWD (cm)", y = "Grass Height (cm)")+ theme(text=element_text(size=20, family="Arial"))+ stat_smooth(method = "lm",formula = y ~ x,se = FALSE, color='Darkgreen')+ stat_smooth(aes(x = HeightUnderCWD, y = 7, linetype = "Linear Fit"), method = "lm", formula = y ~ x, se = FALSE,size = 1,color='lightgreen') ggplotly(plot)

情节2：

p<-plot_ly(y = GrassHeight+1, color = CWDPosition,type = "box",colors = "Set1")%>% layout(xaxis = x, yaxis = y, font = f)

Answer 1

对于plot_ly，不确定这是最佳答案，但可能是因为左边距太小：

plot_ly(type="box") %>% 
  layout(margin = list(l=25, r=50, b=50, t=50, pad=0),
         yaxis=list(title="GrassHeight")) %>%
  add_trace(y = ~rnorm(50, 0)) %>%
  add_trace(y = ~rnorm(50, 1))

plot_ly(type="box") %>% 
  layout(margin = list(l=100, r=50, b=50, t=50, pad=0),
         yaxis=list(title="GrassHeight")) %>%
  add_trace(y = ~rnorm(50, 0)) %>%
  add_trace(y = ~rnorm(50, 1))