vegalite() %>%
add_data("https://vega.github.io/vega-editor/app/data/cars.json") %>%
encode_x("Horsepower", type="quantitative", aggregate="mean") %>%
encode_y("Origin", "ordinal", sort=sort_def("Horsepower", "mean")) %>%
mark_bar()
Run the code above in your browser using DataLab