Em 4 de dez de 2017, à(s) 22:59, Jaildo Rocha <j.vieirarocha@gmail.com> escreveu:

ggplot(mtcars, aes(x=factor(cyl), y=mpg)) +

  geom_boxplot(aes(fill= factor(gear)), varwidth = TRUE)