apex(
data = mtcars,
type = "scatter",
mapping = aes(x = wt, y = mpg, z = qsec)
) %>%
ax_plotOptions(
bubble = bubble_opts(
minBubbleRadius = 1,
maxBubbleRadius = 20
)
)
Run the code above in your browser using DataLab