为具有动态列数的数据框的每一列添加一个绘图盒图

Question

我有下面的数据框，基于此数据框，我想为其2列（a，b）创建一个箱形图。

a<-c(10,15)
b<-c(12,34)
df<-data.frame(a,b)

问题在于此df实际上将具有动态的列数，因此我无法执行以下操作：

plot_ly(y = df$a, type = "box", boxpoints = "all", jitter = 0.3,
              pointpos = -1.8)%>%
  add_trace(y= df$b)