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 )