Acaro_Oswaldo_Taller_Unidad_6

Visualización de datos en R

Con la información que se encuentra en la hoja “Base” Elaborar en RStudio un ejemplo de los siguientes gráficos:

1) Gráfico de barras

#Importar base
library(readxl)
df.base <- read_excel("TallerMod2_Unid_6_Preg.xlsx")
head(df.base, 3)

# A tibble: 3 × 12
  identif tipo   edad sexo  `direccion 2`      `profesion 2` diag  ingreso gasto
    <dbl> <chr> <dbl> <chr> <chr>              <chr>         <chr>   <dbl> <dbl>
1       3 I        33 Mujer CARAPUNGO-CALDERON QUEHACERES D… FARI…     824   585
2       6 I        11 Mujer COTOCOLLAO         ESTUDIANTE    DERM…     919   660
3       7 F        37 Mujer NOROCCIDENTE URBA… QUEHACERES D… FARI…     973   633
# … with 3 more variables: altura <dbl>, nse <chr>, educa <chr>

# Gráfico de barras segun sexo
 
library(ggplot2)
gg.sexo.barras <- ggplot(df.base, aes(sexo)) +
  geom_bar()
gg.sexo.barras

2) Gráfico de puntos

Se genera un gráfico de puntos entre las variables ingreso y gasto, se utiliza la variable cualitativa “nse” para su clasificacion.

library(ggplot2)
library(dplyr)

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

gg.puntos <- ggplot(df.base, aes(ingreso, gasto, color = nse))+
         geom_point()+
  labs(
    x = "Ingreso",  # Título del eje X
    y = "Gasto",   # Título del eje Y
    title = " Relacion entre Ingreso y Gasto por NSE" # Título principal
  )   +
  theme_minimal()
gg.puntos

3) Diagrama de caja o boxplot

Se utiliza la variable cuantitativa “edad” en función de una variable cualitativa “nse”

gg.boxplot <- boxplot (df.base$edad~df.base$nse, col=rainbow(9)) + 
  theme(plot.title = element_text(family="Arial", face="bold"),
        legend.position = "left",
        plot.subtitle = element_text(family="Arial",face = "italic"))

gg.boxplot

NULL

4) Gráfico de puntos con línea de ajuste

Relacion entre las variables cuantitativas edad e ingreso, mediante la variable cualitativa sexo (con linea de ajuste).

gg.linea.ajuste <- ggplot(df.base, aes(edad, ingreso, color = sexo))+
       geom_point()+
         geom_smooth(method="lm")+
  labs(
    x = "Ingreso",  # Título del eje X
    y = "Gasto",   # Título del eje Y
    title = " Relacion entre edad e ingreso por sexo (con linea de ajuste)" # Título principal
  )   +
  theme_minimal()
gg.linea.ajuste

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