如何固定坐标轴以查看标题？

Question

如果我要绘制一个阴谋诡计的小提琴情节，它会把标题删掉。我该如何解决？

我已遵循代码：

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))

如何固定坐标轴以查看标题？

How can I fix the axes in plotly to see the title?

r

r-plotly

violin-plot