barley %>%
dimple(
variety ~ yield, groups = c("year","variety")
, type = "bubble"
, height = 800
, width = 400
) %>%
xAxis( type = "addMeasureAxis" ) %>%
yAxis( type = "addCategoryAxis" ) %>%
facet ( y = "site", removeAxes = T )