Paquetes

library(tidyverse)
Loading tidyverse: ggplot2
Loading tidyverse: tibble
Loading tidyverse: tidyr
Loading tidyverse: readr
Loading tidyverse: purrr
Loading tidyverse: dplyr
Conflicts with tidy packages -------------------------------------------------------------
filter(): dplyr, stats
lag():    dplyr, stats

Dataset

df <- read_csv(url(dataFromGoogle))
Parsed with column specification:
cols(
  n = col_integer(),
  CAMPAMENTO = col_character(),
  `SEXO (M/F)` = col_character(),
  EDAD = col_integer(),
  C = col_integer(),
  E = col_integer(),
  O = col_integer(),
  c = col_integer(),
  e = col_integer(),
  o = col_integer(),
  `¿RECIBE TTO ODONTOLOGICO? SI/NO` = col_character()
)

EDA

Nuevos ceo

LS0tCnRpdGxlOiAiQ2FyaWVzIGVuIENhbXBhbWVudG9zIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgojIFBhcXVldGVzCmBgYHtyfQpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShmb3JjYXRzKQpsaWJyYXJ5KHN0cmluZ3IpCmBgYAoKCiMgRGF0YXNldApgYGB7cn0KCmRhdGFGcm9tR29vZ2xlIDwtICJodHRwczovL2RvY3MuZ29vZ2xlLmNvbS9zcHJlYWRzaGVldHMvZC9lLzJQQUNYLTF2U0J6UnkxS0pHdXNOcWplZlI1WW5MbWlrem13c0hwd1lxMWxETU5CeDZJd1h6Y2Q4bzhOUldXVVB2TVZsd1lwQUgycWJseGFMTVFpdXUzL3B1Yj9naWQ9MTAzMjIyNzUxMyZzaW5nbGU9dHJ1ZSZvdXRwdXQ9Y3N2IgpkZiA8LSByZWFkX2Nzdih1cmwoZGF0YUZyb21Hb29nbGUpKQpybShkYXRhRnJvbUdvb2dsZSkKYGBgCgojIEVEQQpgYGB7cn0KZGYgJT4lIAogIGdncGxvdChhZXMoeCA9IGBTRVhPIChNL0YpYCkpICsKICBnZW9tX2JhcigpCgpkZiAlPiUgCiAgZ2dwbG90KGFlcyh4ID0gRURBRCwgZmlsbCA9IGBTRVhPIChNL0YpYCkpICsgCiAgZ2VvbV9iYXIoKSArCiAgZmFjZXRfZ3JpZCh+IGBTRVhPIChNL0YpYCkKYGBgCgojIE51ZXZvcyBjZW8KCmBgYHtyfQpkZiAlPiUgCiAgbXV0YXRlKAogICAgY251ZXZhID0gY2FzZV93aGVuKAogICAgICBFREFEID4gNiAmIGMgPT0gIjAiIH4gIk5BIiwgCiAgICAgIFRSVUUgICAgIH4gYXMuY2hhcmFjdGVyKGMpCiAgICApCiAgKQpgYGAKCgo=