Reporte del Curso R
MDatos
2023-03-31
Paquetes con los que se trabajo:
##
## Attaching package: 'rstatix'## The following object is masked from 'package:stats':
##
## filter## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.1 ✔ readr 2.1.4
## ✔ forcats 1.0.0 ✔ stringr 1.5.0
## ✔ ggplot2 3.4.1 ✔ tibble 3.2.1
## ✔ lubridate 1.9.2 ✔ tidyr 1.3.0
## ✔ purrr 1.0.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks rstatix::filter(), stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ℹ Use the ]8;;http://conflicted.r-lib.org/conflicted package]8;; to force all conflicts to become errors
##
## Attaching package: 'parsedate'
##
##
## The following object is masked from 'package:readr':
##
## parse_date
##
##
## Loading required package: Hmisc
##
##
## Attaching package: 'Hmisc'
##
##
## The following object is masked from 'package:gt':
##
## html
##
##
## The following objects are masked from 'package:dplyr':
##
## src, summarize
##
##
## The following objects are masked from 'package:base':
##
## format.pval, units
##
##
## funModeling v.1.9.4 :)
## Examples and tutorials at livebook.datascienceheroes.com
## / Now in Spanish: librovivodecienciadedatos.ai
##
## Loading required package: survival
##
## Package epiR 2.0.59 is loaded
##
## Type help(epi.about) for summary information
##
## Type browseVignettes(package = 'epiR') to learn how to use epiR for applied epidemiological analyses
##
##
##
##
##
## Attaching package: 'scales'
##
##
## The following object is masked from 'package:purrr':
##
## discard
##
##
## The following object is masked from 'package:readr':
##
## col_factor
##
##
##
## Attaching package: 'zoo'
##
##
## The following objects are masked from 'package:base':
##
## as.Date, as.Date.numeric
##
##
##
## Attaching package: 'plotly'
##
##
## The following object is masked from 'package:Hmisc':
##
## subplot
##
##
## The following object is masked from 'package:ggplot2':
##
## last_plot
##
##
## The following object is masked from 'package:stats':
##
## filter
##
##
## The following object is masked from 'package:graphics':
##
## layoutBDSISVER202207102022 <- read_excel("C:/Users/fidel/OneDrive - CINVESTAV/Proyecto colaboración SSA/base de datos/BDSISVER202207102022.xlsx")
bdcovidsin<-BDSISVER202207102022# Encuentra las columnas de tipo POSIXt
# Mostrar el dataframe actualizado
print(bdcovidsin)## # A tibble: 61,944 × 130
## ORIGEN SECTOR ID_REGISTRO CVEENTUNI CVEMUNUNI ENTIDAD DELEGA UNIDAD
## <chr> <chr> <dbl> <dbl> <dbl> <chr> <chr> <chr>
## 1 FUERA DE USMI PRIVADA 4537451 25 6 SINALOA SINAL… SANAT…
## 2 USMI SSA 729092 25 6 SINALOA SINAL… HOSPI…
## 3 FUERA DE USMI PRIVADA 5047864 25 6 SINALOA SINAL… SANAT…
## 4 FUERA DE USMI IMSS 738624 25 6 SINALOA SINAL… UMF …
## 5 USMI ISSSTE 729527 25 6 SINALOA SINAL… DR. M…
## 6 FUERA DE USMI PRIVADA 5046938 25 6 SINALOA SINAL… SANAT…
## 7 USMI IMSS 3055779 25 11 SINALOA SINAL… HGZMF…
## 8 USMI IMSS 2320070 25 11 SINALOA SINAL… HGZMF…
## 9 USMI SSA 729771 9 12 CIUDAD D… CIUDA… INSTI…
## 10 FUERA DE USMI SSA 728464 25 6 SINALOA SINAL… OFICI…
## # ℹ 61,934 more rows
## # ℹ 122 more variables: FECHREG <dttm>, CLUES <chr>, `FOLIO SINAVE` <dbl>,
## # FOLIO_IMSS <chr>, APEPATER <chr>, APEMATER <chr>, NOMBRE <chr>, SEXO <chr>,
## # CURP <chr>, ENTNACI <chr>, ENTRESI <chr>, CVENTINE <dbl>, MPIORESI <chr>,
## # CVEMUNI <dbl>, LOCRESI <chr>, CVELOCAL <dbl>, LATLOCA <dbl>,
## # LONGLOCA <dbl>, TIPACIEN <chr>, EVOLUCI <chr>, FEGRESO <dttm>,
## # FECDEF <dttm>, SEMDEF <dbl>, CERTIDEF <chr>, DEFPORINF <chr>, …#freq(bdcovidsin)
bdcovidsin %>% select(FECHREG,FEGRESO,FECDEF,FECNACI,FECINGRE,FECINISI)## # A tibble: 61,944 × 6
## FECHREG FEGRESO FECDEF
## <dttm> <dttm> <dttm>
## 1 2021-01-05 00:00:00 2021-01-03 00:00:00 NA
## 2 2020-04-05 00:00:00 2020-04-03 00:00:00 2020-04-03 00:00:00
## 3 2021-01-19 00:00:00 2021-01-08 00:00:00 NA
## 4 2020-04-06 00:00:00 2020-04-15 00:00:00 NA
## 5 2020-04-05 00:00:00 2020-04-09 00:00:00 2020-04-09 00:00:00
## 6 2021-01-19 00:00:00 2021-01-06 00:00:00 NA
## 7 2020-10-23 00:00:00 2020-11-05 00:00:00 NA
## 8 2020-08-30 00:00:00 2020-09-10 00:00:00 NA
## 9 2020-04-05 00:00:00 2020-03-19 00:00:00 NA
## 10 2020-04-05 00:00:00 2020-03-31 00:00:00 NA
## # ℹ 61,934 more rows
## # ℹ 3 more variables: FECNACI <dttm>, FECINGRE <dttm>, FECINISI <dttm>#verificamos que sean realmente fechas
str(bdcovidsin$FECINISI)## POSIXct[1:61944], format: "2020-12-20" "2020-03-01" "2020-12-22" "2020-03-12" "2020-03-14" ...#en caso, de no serlo debemos de convertir
bdcovidsin$FECINISI = as.Date(bdcovidsin$FECINISI)
#str(bdcovidsin$FECINISI)
## set the report date for the report
## note: can be set to Sys.Date() for the current date
data_date <- as.Date("2015-05-15")
#install.packages("parsedate")ggplot(data = bdcovidsin) +
geom_histogram(aes(x = FECINISI),binwidth = 3,fill="skyblue", colour = "black", size = 0.1) ## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.