Clase #6

install.packages("ggplot2")

## Installing package into 'C:/Users/Usuario/AppData/Local/R/win-library/4.4'
## (as 'lib' is unspecified)

## package 'ggplot2' successfully unpacked and MD5 sums checked
## 
## The downloaded binary packages are in
##  C:\Users\Usuario\AppData\Local\Temp\RtmpIFjFVx\downloaded_packages

library(ggplot2)
install.packages("plotly")

## Installing package into 'C:/Users/Usuario/AppData/Local/R/win-library/4.4'
## (as 'lib' is unspecified)

## package 'plotly' successfully unpacked and MD5 sums checked
## 
## The downloaded binary packages are in
##  C:\Users\Usuario\AppData\Local\Temp\RtmpIFjFVx\downloaded_packages

library(plotly) #Biblioteca de gráficos interactivos

## 
## Adjuntando el paquete: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

data(mtcars)
# Crear un gráfico de dispersión básico
ggplot(data = mtcars, aes(x = wt, y = mpg)) + geom_point() #primero le debemos decir cual es el dataset, y después definir las variables y luego que la geometría que se va a usar es point (puntos)

ggplot(data = mtcars, aes(x = wt, y = mpg)) +
  geom_point(color = "blue", size = 3) + # Cambiar color y tamaño de los puntos
  labs(title = "Peso vs. Consumo de Combustible",  # Título del gráfico
       x = "Peso (1000 lbs)",                      # Etiqueta del eje x
       y = "Millas por Galón")                     # Etiqueta del eje y   

ggplot(data = mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  facet_wrap(~ cyl)  # Crear subgráficos por número de cilindros

ggplot(data = mtcars, aes(x = wt, y = mpg)) +
  geom_point() +
  theme_minimal()  # Usar un tema minimalista

g<-ggplot(data = mtcars, aes(x = wt, y = mpg)) +
  geom_point(aes(color = factor(cyl)), size = 3) +  # Color por número de cilindros
  labs(title = "Peso vs. Consumo de Combustible",
       x = "Peso (1000 lbs)",
       y = "Millas por Galón",
       color = "Cilindros") +                      # Leyenda de colores
  theme_minimal() +
  theme(plot.title = element_text(hjust = 0.5))    # Centrar el título
g

interactive_plot <- ggplotly(g)
interactive_plot