iris plotting with custom plotly mimetype

iris_plot_ly.R

layout = list(
  scene=list(
    xaxis=list(title="sepal length [cm]"),
    yaxis=list(title="sepal width [cm]"),
    zaxis=list(title="petal length [cm]")
  ),
  title="Iris dataset"
)

data = list(
  x=iris$Sepal.Length,
  y=iris$Sepal.Width,
  z=iris$Petal.Length,
  marker=list(
    line=list(color="black", width=1),
    opacity=0.7,
    size=12
  ),
  mode="markers",
  name="Iris-setosa",
  type="scatter3d"
)

figure = list(data=data, layout=layout)

IRdisplay::publish_mimebundle(list('application/vnd.plotly.v1+json'=figure))