title: “LABS_45”

author: “JESSICA PAOLA AGUILAR SERVIN”

date: “2023-03-13”

output: html_document

Laboratorio gráfica de puntos #################################

LABORATORIO - Graficos en R con ggplot2 para Ciencia de Datos Grafica de puntos en R (PARTE 1)

instalando paquete con los datos install.packages(“gapminder”)

cCargando

library(gapminder)

cargando datos a entorno

data("gapminder")

filtrando por año 2007

gapminder2007 <- gapminder[gapminder$year == '2007', ]

Echando ojo a los datos

head(gapminder2007)

## # A tibble: 6 × 6
##   country     continent  year lifeExp      pop gdpPercap
##   <fct>       <fct>     <int>   <dbl>    <int>     <dbl>
## 1 Afghanistan Asia       2007    43.8 31889923      975.
## 2 Albania     Europe     2007    76.4  3600523     5937.
## 3 Algeria     Africa     2007    72.3 33333216     6223.
## 4 Angola      Africa     2007    42.7 12420476     4797.
## 5 Argentina   Americas   2007    75.3 40301927    12779.
## 6 Australia   Oceania    2007    81.2 20434176    34435.

cargar libreria ggplot2

library(ggplot2)

como hacer grafica de puntos con ggplot2

ggplot(data = gapminder2007,
       mapping = aes (x=gdpPercap,
                      y=lifeExp))+
  geom_point()

probando diferentes colores

ggplot(data = gapminder2007,
       mapping = aes (x=gdpPercap,
                      y=lifeExp,
                      color=continent))+
  geom_point()

probando diferentes más aestetics

ggplot(data = gapminder2007,
       mapping = aes (x=gdpPercap,
                      y=lifeExp,
                      color=continent,
                      shape=continent,
                      size=pop))+
  geom_point()

colocando texto

ggplot(data = gapminder2007,
       mapping = aes (x=gdpPercap,
                      y=lifeExp,
                      color=continent,
                      shape=continent,
                      size=pop))+
  geom_point() +
  geom_text(label=gapminder2007$country,
            color="black",
            size=3)

colocando lineas de regresion

ggplot(data = gapminder2007,
       mapping = aes (x=gdpPercap,
                      y=lifeExp,
                      color=continent))+
  geom_point()+
  geom_smooth(method = lm,
              se=FALSE,
              fullrange=TRUE)

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