R Notebook

This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Ctrl+Shift+Enter.

library(ggplot2)
library(gapminder)
library(dplyr)

Attaching package: <U+393C><U+3E31>dplyr<U+393C><U+3E32>

The following objects are masked from <U+393C><U+3E31>package:stats<U+393C><U+3E32>:

    filter, lag

The following objects are masked from <U+393C><U+3E31>package:base<U+393C><U+3E32>:

    intersect, setdiff, setequal, union

library(tidyverse)

Como hacer una data de juguete

data_juguete <- tibble(
curso = c("Taller datos" , "Lectura Critica"),
profesor = c("Pepito" , "Victoria"),
tasa_reprobación = c(0.5 , 0.9)
)

data_juguete

dyr::gather()

robo_en_ANFP <- tibble(
trabajador = c("Sergio Jadue" , "Camilo Benavides"),
primer_semestre = c("10 millones de dolares" , "15 millones de dolares"),
segundo_semestre = c("5 millones de dolares" , "10 millones de dolares"),
)

robo_en_ANFP

Desfalco en ANFP

#Desfalco en ANFP
tidyr::gather(data = robo_en_ANFP,
              key = "periodo",
              value = "monto robado",
              -trabajador
)