r - 如何修复绘图中的轴以查看标题？

Question

如果我正在绘制一个 fiddle 情节，它就会把标题剪掉。我该如何解决这个问题？

我已经遵循了代码:

len <- c(4.5, 3.0, 4.0, 4.0, 3.0, 3.5, 4.5, 3.0, 3.0, 4.0, 
               3.0, 4.5, 4.5, 4.0, 3.0,2.0,2.0,1.0,1.5,1.5,
               3.5, 4.5, 3.5, 5.0, 3.0, 3.0, 4.5, 4.5, 2.5, 4.5)*50
len <- rep(ser,100)

avg <- rep(c(4.5, 3.5, 4.0, 4.0, 4.0, 3.5, 4.5, 4.0, 3.0, 4.0, 
               3.0, 5.0, 4.5, 4.0, 3.0,2.0,2.0,1.0,1.5,1.5,
               3.5, 4.5, 3.5, 3.5, 4.0, 3.0, 4.0, 4.0, 2.5, 4.5),100)

df <- data.frame(len, avg)


df$avg <- round(df$avg)


df %>%
  plot_ly(x = ~avg, y = ~len, split = ~avg,
          type = "violin", box = list(visible = T),
          meanline = list(visible = T), alpha = 0.2
  ) %>%
  layout(title = .(text = "Analytics from John doe"),
         xaxis = .(title = "average"),
         yaxis = .(title = "length",nticks = 20),
         font = .(size = 15))

这给了我:

Answer 1

您必须增加上边距:

  layout(title = list(text = "Analytics from John doe"),
         xaxis = list(title = "average"),
         yaxis = list(title = "length",nticks = 20),
         font = list(size = 15),
         margin = list(l = 70, r = 50, b = 70, t = 100))