ejemplos-ggplot2

#cargar datos

#|label: carga de datos

  
library("tidyverse")

── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.4     ✔ readr     2.1.5
✔ forcats   1.0.0     ✔ stringr   1.5.1
✔ ggplot2   3.5.1     ✔ tibble    3.2.1
✔ lubridate 1.9.3     ✔ tidyr     1.3.1
✔ purrr     1.0.2     
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

library("DT")

library("gapminder")

ggplot2

ggplot(data = mpg)+ geom_point(aes(x = displ, y = hwy))

mpg |> 
  ggplot(aes(x = displ, y = hwy, color = class)) + geom_point()

mpg |> 
  ggplot(aes(x = displ, y = hwy, shape = class, color = class)) + geom_point()

Warning: The shape palette can deal with a maximum of 6 discrete values because more
than 6 becomes difficult to discriminate
ℹ you have requested 7 values. Consider specifying shapes manually if you need
  that many have them.

Warning: Removed 62 rows containing missing values or values outside the scale range
(`geom_point()`).

# Gráfico de dispersión de cilindrada vs millas por galón en autopista
# con formas y colores correspondientes al tipo de automóvil
mpg |>
  ggplot(aes(x = displ, y = hwy, shape = class, color = class)) +
  geom_point() +
  scale_shape_manual(values = c(0, 1, 2, 3, 4, 5, 6)) +
  scale_color_manual(values = c("red", "blue", "green", "purple", "orange", "brown", "pink"))

#grafico de dispercion que se muestre la relacion entre 
#el pib por capita(x) y el nivel de esperanza de vida (y)

gapminder |> ggplot(aes(x= gdpPercap, y = lifeExp))+ geom_point()

#grafico de dispercion que se muestre la relacion entre 
#el pib por capita(x) y el nivel de esperanza de vida (y) para el año 2007

gapminder |> filter(year == 2007) |> ggplot(aes(x= gdpPercap, y = lifeExp,))+ geom_point()

#grafico de dispercion que se muestre la relacion entre 
#el pib por capita(x) y el nivel de esperanza de vida (y) para el año 2007 y coloreado por contiente

gapminder |> filter(year == 2007) |> ggplot(aes(x= gdpPercap, y = lifeExp,color = continent ))+ geom_point()

#grafico de dispercion que se muestre la relacion entre 
#el pib por capita(x) y el nivel de esperanza de vida (y) para el año 2007 

gapminder |> filter(year == 2007) |> ggplot(aes(x= gdpPercap, y = lifeExp))+ geom_point()+ geom_smooth(method = "lm")

`geom_smooth()` using formula = 'y ~ x'

#grafico de dispercion que se muestre la relacion entre 
#el pib por capita(x) y el nivel de esperanza de vida (y) para el año 2007 

gapminder |> filter(year == 2007) |> ggplot(aes(x= gdpPercap, y = lifeExp, colour = continent))+ geom_point()+ geom_smooth(method = "lm")