Stencila tutorial

tutorial.r

library(ggplot2)

# Order by highway MPG
mpg$class = with(
  mpg,
  reorder(class, hwy, median)
)

ggplot(mpg, aes(
 x=class,
 y=hwy,
 # Use vehicle class for color
 fill = class
)) +
geom_violin() +
theme(legend.position="none") +
xlab("Vehicle class") +
ylab("Highway MPG")

library(ggplot2)

# Order by highway MPG
mpg$class = with(
  mpg,
  reorder(class, hwy, median)
)
ggplot(mpg, aes(
 x=class,
 y=hwy,
)) +
geom_violin() +
theme(legend.position="none")