Ejemplo 1

title: "DataFrame"
output: 
  html_document:
    # keep_md: true
    df_print: paged
    theme: flatly
    toc: true
    number_sections: true
    toc_float:
      collapsed: true
      smooth_scroll: true
    code_folding: hide

library(ggplot2)
library(plotly)

data("mtcars")  # dataframe multivariado 
str(mtcars)
attach(mtcars)

ggplot(mtcars, aes(x=mpg, y=hp, colour = am)) + geom_point()

grafica <- ggplot(mtcars,aes(x=mpg, y=hp, colour = factor(cyl))) + geom_point(size=3)+ labs(x=\
"millas por galon ", y="potencia en HP") + scale_color_discrete(labels = c("4 cyl", "6 cyl", "
8 cyl"))

ggplotly(grafica)

grafica2 <- ggplot(mtcars) + aes(factor(cyl), mpg) + geom_boxplot(fill="#00ff5f")

grafica2
ggplotly(grafica2)

grafica2 + geom_jitter(width = 0.5) 

grafica2 + geom_jitter(width = 0.5) + facet_wrap((cyl~am))

quantile(mpg)