1. INTRODUCCIÓN

Internet está repleto de conjuntos de datos que puede utilizar para sus propios proyectos personales. A veces tiene suerte y tendrá acceso a una API donde puede solicitar los datos directamente con R. Otras veces, no tendrá tanta suerte y no podrá obtener sus datos en un formato ordenado. Cuando esto sucede, debemos recurrir al web scraping , una técnica en la que obtenemos los datos que queremos analizar encontrándolos en el código HTML de un sitio web.

El web scraping abre oportunidades y nos brinda las herramientas necesarias para crear conjuntos de datos cuando no podemos encontrar los datos que estamos buscando. Y dado que estamos usando R para realizar el web scraping, simplemente podemos ejecutar nuestro código nuevamente para obtener un conjunto de datos actualizado si los sitios que usamos se actualizan.

Antes de que podamos comenzar a aprender cómo raspar una página web, debemos comprender cómo está estructurada una página web en sí.

Los principales lenguajes utilizados para construir páginas web se denominan Lenguaje de marcado de hipertexto (HTML), Hojas de estilo en cascada (CSS) y Javascript. HTML le da a una página web su estructura y contenido reales. CSS le da a una página web su estilo y apariencia, incluidos detalles como fuentes y colores. Javascript da una funcionalidad de página web.

<h1>, <h2>, ..., <h6>    # Encabezados
<p>   # Elementos de un parráfo   
<ul>  # Desordenar una lista
<ol>  # Ordenar una lista
<li>  # Elementos de una lista
<div> # División de sección
<table>  # Tablas
<form>   # Formas web

2. BIBLIOTECA RVEST

La biblioteca rvest, creada por el legendario Hadley Wickham, es una biblioteca que permite a los usuarios raspar fácilmente (“harvest”) datos de páginas web.

rvest es una de las bibliotecas de tidyverse, por lo que funciona bien con las otras bibliotecas contenidas en el paquete.

Para usar la biblioteca rvest, primero debemos instalarla e importarla con la función library().

# La forma más fácil de obtener rvest es instalar todo el tidyverse
install.packages("tidyverse")
install.packages("rvest")

# Alternativamente, utilizamos las librerias:
library(tidyverse)
library(rvest)

3. EJEMPLO

Para la aplicación del web scraping, utilizaremos la información de Covid 19 en El Salvador, obtenida de wikipedia, lo que nos interesa es extraer la tabla de datos de Casos locales confirmados por departamento.

Para comenzar a analizar a través de una página web, primero debemos solicitar esos datos al servidor de la computadora que los contiene. En investidura, la función que sirve a este propósito es la función read_html().

read_html() toma una URL web como argumento. Comencemos mirando esa página Covid 19-El Salvador.

library(rvest)
covidesa=xml2::read_html("https://es.wikipedia.org/wiki/Pandemia_de_COVID-19_en_El_Salvador")

Ahora obtendremos toda la información de la página

library(tidyverse)
## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --
## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.0     v dplyr   1.0.8
## v tidyr   1.1.3     v stringr 1.4.0
## v readr   2.1.2     v forcats 0.5.1
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter()         masks stats::filter()
## x readr::guess_encoding() masks rvest::guess_encoding()
## x dplyr::lag()            masks stats::lag()
covidesa %>% 
  html_text()
## [1] "Pandemia de COVID-19 en El Salvador - Wikipedia, la enciclopedia libredocument.documentElement.className=\"client-js\";RLCONF={\"wgBreakFrames\":false,\"wgSeparatorTransformTable\":[\",\\t.\",\" \\t,\"],\"wgDigitTransformTable\":[\"\",\"\"],\"wgDefaultDateFormat\":\"dmy\",\"wgMonthNames\":[\"\",\"enero\",\"febrero\",\"marzo\",\"abril\",\"mayo\",\"junio\",\"julio\",\"agosto\",\"septiembre\",\"octubre\",\"noviembre\",\"diciembre\"],\"wgRequestId\":\"77d8dbd3-8fc4-4f8b-99b5-858d2f8e7f1c\",\"wgCSPNonce\":false,\"wgCanonicalNamespace\":\"\",\"wgCanonicalSpecialPageName\":false,\"wgNamespaceNumber\":0,\"wgPageName\":\"Pandemia_de_COVID-19_en_El_Salvador\",\"wgTitle\":\"Pandemia de COVID-19 en El Salvador\",\"wgCurRevisionId\":142013147,\"wgRevisionId\":142013147,\"wgArticleId\":9334964,\"wgIsArticle\":true,\"wgIsRedirect\":false,\"wgAction\":\"view\",\"wgUserName\":null,\"wgUserGroups\":[\"*\"],\"wgCategories\":[\"Wikipedia:Páginas con plantillas con argumentos duplicados\",\"Wikipedia:Páginas en desarrollo pero sin ediciones en un período de tiempo prolongado\",\"Wikipedia:Páginas con gráficos\",\"Eventos de salud pública en curso\",\n\"Pandemia de COVID-19 en América\",\"Pandemia de COVID-19 por país\",\"Salud en El Salvador\",\"El Salvador en 2020\"],\"wgPageContentLanguage\":\"es\",\"wgPageContentModel\":\"wikitext\",\"wgRelevantPageName\":\"Pandemia_de_COVID-19_en_El_Salvador\",\"wgRelevantArticleId\":9334964,\"wgIsProbablyEditable\":true,\"wgRelevantPageIsProbablyEditable\":true,\"wgRestrictionEdit\":[],\"wgRestrictionMove\":[],\"wgVisualEditor\":{\"pageLanguageCode\":\"es\",\"pageLanguageDir\":\"ltr\",\"pageVariantFallbacks\":\"es\"},\"wgMFDisplayWikibaseDescriptions\":{\"search\":true,\"nearby\":true,\"watchlist\":true,\"tagline\":true},\"wgWMESchemaEditAttemptStepOversample\":false,\"wgWMEPageLength\":30000,\"wgNoticeProject\":\"wikipedia\",\"wgMediaViewerOnClick\":true,\"wgMediaViewerEnabledByDefault\":true,\"wgPopupsFlags\":10,\"wgULSCurrentAutonym\":\"español\",\"wgGraphSpecs\":{\"fa242c816173ae6a3e888e6f1370b70aa44c9c6a\":{\"legends\":[{\"properties\":{\"title\":{\"fill\":{\"value\":\"#54595d\"}},\"labels\":{\"fill\":{\"value\":\"#54595d\"}}},\"stroke\":\"color\",\"title\":\"Leyenda\",\"fill\":\"color\"}],\n\"scales\":[{\"type\":\"time\",\"name\":\"x\",\"domain\":{\"data\":\"chart\",\"field\":\"x\"},\"range\":\"width\",\"zero\":false},{\"type\":\"linear\",\"name\":\"y\",\"domain\":{\"data\":\"chart\",\"field\":\"y\"},\"zero\":false,\"range\":\"height\",\"nice\":true},{\"domain\":{\"data\":\"chart\",\"field\":\"series\"},\"type\":\"ordinal\",\"name\":\"color\",\"range\":[\"#ffbeb3\",\"#ff6347\"]}],\"version\":2,\"marks\":[{\"type\":\"line\",\"properties\":{\"hover\":{\"stroke\":{\"value\":\"red\"}},\"update\":{\"stroke\":{\"scale\":\"color\",\"field\":\"series\"}},\"enter\":{\"y\":{\"scale\":\"y\",\"field\":\"y\"},\"x\":{\"scale\":\"x\",\"field\":\"x\"},\"stroke\":{\"scale\":\"color\",\"field\":\"series\"},\"strokeWidth\":{\"value\":1.8}}},\"from\":{\"data\":\"chart\"}}],\"height\":200,\"axes\":[{\"type\":\"x\",\"title\":\"Fecha\",\"scale\":\"x\",\"format\":\"%e-%-m-%Y\",\"properties\":{\"title\":{\"fill\":{\"value\":\"#54595d\"}},\"grid\":{\"stroke\":{\"value\":\"#54595d\"}},\"ticks\":{\"stroke\":{\"value\":\"#54595d\"}},\"axis\":{\"strokeWidth\":{\"value\":2},\"stroke\":{\"value\":\"#54595d\"}},\"labels\":{\"align\":{\"value\":\"right\"},\"angle\":{\"value\":-60},\"fill\":{\"value\":\"#54595d\"}}},\"grid\":\ntrue},{\"type\":\"y\",\"title\":\"No. de casos diarios\",\"scale\":\"y\",\"format\":\"s\",\"properties\":{\"title\":{\"fill\":{\"value\":\"#54595d\"}},\"grid\":{\"stroke\":{\"value\":\"#54595d\"}},\"ticks\":{\"stroke\":{\"value\":\"#54595d\"}},\"axis\":{\"strokeWidth\":{\"value\":2},\"stroke\":{\"value\":\"#54595d\"}},\"labels\":{\"fill\":{\"value\":\"#54595d\"}}},\"grid\":true}],\"data\":[{\"format\":{\"parse\":{\"y\":\"number\",\"x\":\"date\"},\"type\":\"json\"},\"name\":\"chart\",\"values\":[{\"y\":1,\"series\":\"Casos por día\",\"x\":\"6 Mar 20\"},{\"y\":0,\"series\":\"Casos por día\",\"x\":\"7 Mar 20\"},{\"y\":2,\"series\":\"Casos por día\",\"x\":\"8 Mar 20\"},{\"y\":0,\"series\":\"Casos por día\",\"x\":\"9 Mar 20\"},{\"y\":0,\"series\":\"Casos por día\",\"x\":\"10 Mar 20\"},{\"y\":2,\"series\":\"Casos por día\",\"x\":\"11 Mar 20\"},{\"y\":4,\"series\":\"Casos por día\",\"x\":\"12 Mar 20\"},{\"y\":4,\"series\":\"Casos por día\",\"x\":\"13 Mar 20\"},{\"y\":0,\"series\":\"Casos por día\",\"x\":\"14 Mar 20\"},{\"y\":6,\"series\":\"Casos por día\",\"x\":\"15 Mar 20\"},{\"y\":5,\"series\":\"Casos por día\",\"x\":\"16 Mar 20\"},{\"y\":6,\"series\":\"Casos por día\",\"x\":\n\"17 Mar 20\"},{\"y\":2,\"series\":\"Casos por día\",\"x\":\"18 Mar 20\"},{\"y\":0,\"series\":\"Casos por día\",\"x\":\"19 Mar 20\"},{\"y\":9,\"series\":\"Casos por día\",\"x\":\"20 Mar 20\"},{\"y\":5,\"series\":\"Casos por día\",\"x\":\"21 Mar 20\"},{\"y\":10,\"series\":\"Casos por día\",\"x\":\"22 Mar 20\"},{\"y\":6,\"series\":\"Casos por día\",\"x\":\"23 Mar 20\"},{\"y\":7,\"series\":\"Casos por día\",\"x\":\"24 Mar 20\"},{\"y\":9,\"series\":\"Casos por día\",\"x\":\"25 Mar 20\"},{\"y\":15,\"series\":\"Casos por día\",\"x\":\"26 Mar 20\"},{\"y\":10,\"series\":\"Casos por día\",\"x\":\"27 Mar 20\"},{\"y\":14,\"series\":\"Casos por día\",\"x\":\"28 Mar 20\"},{\"y\":1,\"series\":\"Casos por día\",\"x\":\"29 Mar 20\"},{\"y\":7,\"series\":\"Casos por día\",\"x\":\"30 Mar 20\"},{\"y\":12,\"series\":\"Casos por día\",\"x\":\"31 Mar 20\"},{\"y\":12,\"series\":\"Casos por día\",\"x\":\"1 Apr 20\"},{\"y\":10,\"series\":\"Casos por día\",\"x\":\"2 Apr 20\"},{\"y\":5,\"series\":\"Casos por día\",\"x\":\"3 Apr 20\"},{\"y\":13,\"series\":\"Casos por día\",\"x\":\"4 Apr 20\"},{\"y\":13,\"series\":\"Casos por día\",\"x\":\"5 Apr 20\"},{\"y\":11,\"series\":\"Casos por día\"\n,\"x\":\"6 Apr 20\"},{\"y\":17,\"series\":\"Casos por día\",\"x\":\"7 Apr 20\"},{\"y\":7,\"series\":\"Casos por día\",\"x\":\"8 Apr 20\"},{\"y\":12,\"series\":\"Casos por día\",\"x\":\"9 Apr 20\"},{\"y\":13,\"series\":\"Casos por día\",\"x\":\"10 Apr 20\"},{\"y\":11,\"series\":\"Casos por día\",\"x\":\"11 Apr 20\"},{\"y\":13,\"series\":\"Casos por día\",\"x\":\"12 Apr 20\"},{\"y\":24,\"series\":\"Casos por día\",\"x\":\"13 Apr 20\"},{\"y\":25,\"series\":\"Casos por día\",\"x\":\"14 Apr 20\"},{\"y\":22,\"series\":\"Casos por día\",\"x\":\"15 Apr 20\"},{\"y\":32,\"series\":\"Casos por día\",\"x\":\"16 Apr 20\"},{\"y\":18,\"series\":\"Casos por día\",\"x\":\"17 Apr 20\"},{\"y\":29,\"series\":\"Casos por día\",\"x\":\"18 Apr 20\"},{\"y\":22,\"series\":\"Casos por día\",\"x\":\"19 Apr 20\"},{\"y\":44,\"series\":\"Casos por día\",\"x\":\"20 apr 20\"},{\"y\":65,\"series\":\"Casos por día\",\"x\":\"21 Apr 20\"},{\"y\":32,\"series\":\"Casos por día\",\"x\":\"22 Apr 20\"},{\"y\":46,\"series\":\"Casos por día\",\"x\":\"23 Apr 20\"},{\"y\":62,\"series\":\"Casos por día\",\"x\":\"24 Apr 20\"},{\"y\":47,\"series\":\"Casos por día\",\"x\":\"25 Apr 20\"},{\"y\":42,\"series\":\n\"Casos por día\",\"x\":\"26 Apr 20\"},{\"y\":105,\"series\":\"Casos por día\",\"x\":\"27 Apr 20\"},{\"y\":69,\"series\":\"Casos por día\",\"x\":\"28 Apr 20\"},{\"y\":40,\"series\":\"Casos por día\",\"x\":\"29 Apr 20\"},{\"y\":39,\"series\":\"Casos por día\",\"x\":\"30 Apr 20\"},{\"y\":75,\"series\":\"Casos por día\",\"x\":\"1 May 20\"},{\"y\":98,\"series\":\"Casos por día\",\"x\":\"2 May 20\"},{\"y\":55,\"series\":\"Casos por día\",\"x\":\"3 May 20\"},{\"y\":73,\"series\":\"Casos por día\",\"x\":\"4 May 20\"},{\"y\":75,\"series\":\"Casos por día\",\"x\":\"5 May 20\"},{\"y\":85,\"series\":\"Casos por día\",\"x\":\"6 May 20\"},{\"y\":73,\"series\":\"Casos por día\",\"x\":\"7 May 20\"},{\"y\":69,\"series\":\"Casos por día\",\"x\":\"8 May 20\"},{\"y\":85,\"series\":\"Casos por día\",\"x\":\"9 May 20\"},{\"y\":94,\"series\":\"Casos por día\",\"x\":\"10 May 20\"},{\"y\":96,\"series\":\"Casos por día\",\"x\":\"11 May 20\"},{\"y\":68,\"series\":\"Casos por día\",\"x\":\"12 May 20\"},{\"y\":59,\"series\":\"Casos por día\",\"x\":\"13 May 20\"},{\"y\":67,\"series\":\"Casos por día\",\"x\":\"14 May 20\"},{\"y\":85,\"series\":\"Casos por día\",\"x\":\"15 May 20\"},{\"y\":\n84,\"series\":\"Casos por día\",\"x\":\"16 May 20\"},{\"y\":117,\"series\":\"Casos por día\",\"x\":\"17 May 20\"},{\"y\":122,\"series\":\"Casos por día\",\"x\":\"18 May 20\"},{\"y\":65,\"series\":\"Casos por día\",\"x\":\"19 May 20\"},{\"y\":71,\"series\":\"Casos por día\",\"x\":\"20 May 20\"},{\"y\":52,\"series\":\"Casos por día\",\"x\":\"21 May 20\"},{\"y\":76,\"series\":\"Casos por día\",\"x\":\"22 May 20\"},{\"y\":68,\"series\":\"Casos por día\",\"x\":\"23 May 20\"},{\"y\":85,\"series\":\"Casos por día\",\"x\":\"24 May 20\"},{\"y\":81,\"series\":\"Casos por día\",\"x\":\"25 May 20\"},{\"y\":89,\"series\":\"Casos por día\",\"x\":\"26 May 20\"},{\"y\":87,\"series\":\"Casos por día\",\"x\":\"27 May 20\"},{\"y\":83,\"series\":\"Casos por día\",\"x\":\"28 May 20\"},{\"y\":99,\"series\":\"Casos por día\",\"x\":\"29 May 20\"},{\"y\":108,\"series\":\"Casos por día\",\"x\":\"30 May 20\"},{\"y\":122,\"series\":\"Casos por día\",\"x\":\"31 May 20\"},{\"y\":117,\"series\":\"Casos por día\",\"x\":\"1 Jun 20\"},{\"y\":106,\"series\":\"Casos por día\",\"x\":\"2 Jun 20\"},{\"y\":115,\"series\":\"Casos por día\",\"x\":\"3 Jun 20\"},{\"y\":125,\"series\":\n\"Casos por día\",\"x\":\"4 Jun 20\"},{\"y\":134,\"series\":\"Casos por día\",\"x\":\"5 Jun 20\"},{\"y\":129,\"series\":\"Casos por día\",\"x\":\"6 Jun 20\"},{\"y\":146,\"series\":\"Casos por día\",\"x\":\"7 Jun 20\"},{\"y\":151,\"series\":\"Casos por día\",\"x\":\"8 Jun 20\"},{\"y\":182,\"series\":\"Casos por día\",\"x\":\"9 Jun 20\"},{\"y\":165,\"series\":\"Casos por día\",\"x\":\"10 Jun 20\"},{\"y\":177,\"series\":\"Casos por día\",\"x\":\"11 Jun 20\"},{\"y\":186,\"series\":\"Casos por día\",\"x\":\"12 Jun 20\"},{\"y\":181,\"series\":\"Casos por día\",\"x\":\"13 Jun 20\"},{\"y\":210,\"series\":\"Casos por día\",\"x\":\"14 Jun 20\"},{\"y\":207,\"series\":\"Casos por día\",\"x\":\"15 Jun 20\"},{\"y\":239,\"series\":\"Casos por día\",\"x\":\"16 Jun 20\"},{\"y\":265,\"series\":\"Casos por día\",\"x\":\"17 Jun 20\"},{\"y\":298,\"series\":\"Casos por día\",\"x\":\"18 Jun 20\"},{\"y\":264,\"series\":\"Casos por día\",\"x\":\"19 Jun 20\"},{\"y\":267,\"series\":\"Casos por día\",\"x\":\"20 Jun 20\"},{\"y\":240,\"series\":\"Casos por día\",\"x\":\"21 Jun 20\"},{\"y\":270,\"series\":\"Casos por día\",\"x\":\"22 Jun 20\"},{\"y\":250,\"series\":\"Casos por día\",\n\"x\":\"23 Jun 20\"},{\"y\":280,\"series\":\"Casos por día\",\"x\":\"24 Jun 20\"},{\"y\":259,\"series\":\"Casos por día\",\"x\":\"25 Jun 20\"},{\"y\":278,\"series\":\"Casos por día\",\"x\":\"26 Jun 20\"},{\"y\":298,\"series\":\"Casos por día\",\"x\":\"27 Jun 20\"},{\"y\":249,\"series\":\"Casos por día\",\"x\":\"28 Jun 20\"},{\"y\":283,\"series\":\"Casos por día\",\"x\":\"29 Jun 20\"},{\"y\":304,\"series\":\"Casos por día\",\"x\":\"30 Jun 20\"},{\"y\":325,\"series\":\"Casos por día\",\"x\":\"1 Jul 20\"},{\"y\":342,\"series\":\"Casos por día\",\"x\":\"2 Jul 20\"},{\"y\":312,\"series\":\"Casos por día\",\"x\":\"3 Jul 20\"},{\"y\":250,\"series\":\"Casos por día\",\"x\":\"4 Jul 20\"},{\"y\":301,\"series\":\"Casos por día\",\"x\":\"5 Jul 20\"},{\"y\":338,\"series\":\"Casos por día\",\"x\":\"6 Jul 20\"},{\"y\":361,\"series\":\"Casos por día\",\"x\":\"7 Jul 20\"},{\"y\":375,\"series\":\"Casos por día\",\"x\":\"8 Jul 20\"},{\"y\":393,\"series\":\"Casos por día\",\"x\":\"9 Jul 20\"},{\"y\":402,\"series\":\"Casos por día\",\"x\":\"10 Jul 20\"},{\"y\":415,\"series\":\"Casos por día\",\"x\":\"11 Jul 20\"},{\"y\":429,\"series\":\"Casos por día\",\"x\":\"12 Jul 20\"},{\"y\"\n:409,\"series\":\"Casos por día\",\"x\":\"13 Jul 20\"},{\"y\":405,\"series\":\"Casos por día\",\"x\":\"14 Jul 20\"},{\"y\":411,\"series\":\"Casos por día\",\"x\":\"15 Jul 20\"},{\"y\":395,\"series\":\"Casos por día\",\"x\":\"16 Jul 20\"},{\"y\":389,\"series\":\"Casos por día\",\"x\":\"17 Jul 20\"},{\"y\":402,\"series\":\"Casos por día\",\"x\":\"18 Jul 20\"},{\"y\":418,\"series\":\"Casos por día\",\"x\":\"19 Jul 20\"},{\"y\":398,\"series\":\"Casos por día\",\"x\":\"20 Jul 20\"},{\"y\":395,\"series\":\"Casos por día\",\"x\":\"21 Jul 20\"},{\"y\":419,\"series\":\"Casos por día\",\"x\":\"22 Jul 20\"},{\"y\":439,\"series\":\"Casos por día\",\"x\":\"23 Jul 20\"},{\"y\":425,\"series\":\"Casos por día\",\"x\":\"24 Jul 20\"},{\"y\":418,\"series\":\"Casos por día\",\"x\":\"25 Jul 20\"},{\"y\":434,\"series\":\"Casos por día\",\"x\":\"26 Jul 20\"},{\"y\":445,\"series\":\"Casos por día\",\"x\":\"27 Jul 20\"},{\"y\":449,\"series\":\"Casos por día\",\"x\":\"28 Jul 20\"},{\"y\":397,\"series\":\"Casos por día\",\"x\":\"29 Jul 20\"},{\"y\":375,\"series\":\"Casos por día\",\"x\":\"30 Jul 20\"},{\"y\":349,\"series\":\"Casos por día\",\"x\":\"31 Jul 20\"},{\"y\":321,\n\"series\":\"Casos por día\",\"x\":\"1 Aug 20\"},{\"y\":305,\"series\":\"Casos por día\",\"x\":\"2 Aug 20\"},{\"y\":293,\"series\":\"Casos por día\",\"x\":\"3 Aug 20\"},{\"y\":281,\"series\":\"Casos por día\",\"x\":\"4 Aug 20\"},{\"y\":269,\"series\":\"Casos por día\",\"x\":\"5 Aug 20\"},{\"y\":255,\"series\":\"Casos por día\",\"x\":\"6 Aug 20\"},{\"y\":247,\"series\":\"Casos por día\",\"x\":\"7 Aug 20\"},{\"y\":236,\"series\":\"Casos por día\",\"x\":\"8 Aug 20\"},{\"y\":220,\"series\":\"Casos por día\",\"x\":\"9 Aug 20\"},{\"y\":202,\"series\":\"Casos por día\",\"x\":\"10 Aug 20\"},{\"y\":189,\"series\":\"Casos por día\",\"x\":\"11 Aug 20\"},{\"y\":175,\"series\":\"Casos por día\",\"x\":\"12 Aug 20\"},{\"y\":154,\"series\":\"Casos por día\",\"x\":\"13 Aug 20\"},{\"y\":144,\"series\":\"Casos por día\",\"x\":\"14 Aug 20\"},{\"y\":131,\"series\":\"Casos por día\",\"x\":\"15 Aug 20\"},{\"y\":122,\"series\":\"Casos por día\",\"x\":\"16 Aug 20\"},{\"y\":98,\"series\":\"Casos por día\",\"x\":\"17 Aug 20\"},{\"y\":94,\"series\":\"Casos por día\",\"x\":\"18 Aug 20\"},{\"y\":91,\"series\":\"Casos por día\",\"x\":\"19 Aug 20\"},{\"y\":84,\"series\":\"Casos por día\"\n,\"x\":\"20 Aug 20\"},{\"y\":96,\"series\":\"Casos por día\",\"x\":\"21 Aug 20\"},{\"y\":99,\"series\":\"Casos por día\",\"x\":\"22 Aug 20\"},{\"y\":107,\"series\":\"Casos por día\",\"x\":\"23 Aug 20\"},{\"y\":102,\"series\":\"Casos por día\",\"x\":\"24 Aug 20\"},{\"y\":105,\"series\":\"Casos por día\",\"x\":\"25 Aug 20\"},{\"y\":98,\"series\":\"Casos por día\",\"x\":\"26 Aug 20\"},{\"y\":91,\"series\":\"Casos por día\",\"x\":\"27 Aug 20\"},{\"y\":86,\"series\":\"Casos por día\",\"x\":\"28 Aug 20\"},{\"y\":85,\"series\":\"Casos por día\",\"x\":\"29 Aug 20\"},{\"y\":78,\"series\":\"Casos por día\",\"x\":\"30 Aug 20\"},{\"y\":77,\"series\":\"Casos por día\",\"x\":\"31 Aug 20\"},{\"y\":81,\"series\":\"Casos por día\",\"x\":\"1 Sep 20\"},{\"y\":79,\"series\":\"Casos por día\",\"x\":\"2 Sep 20\"},{\"y\":75,\"series\":\"Casos por día\",\"x\":\"3 Sep 20\"},{\"y\":86,\"series\":\"Casos por día\",\"x\":\"4 Sep 20\"},{\"y\":97,\"series\":\"Casos por día\",\"x\":\"5 Sep 20\"},{\"y\":82,\"series\":\"Casos por día\",\"x\":\"6 Sep 20\"},{\"y\":125,\"series\":\"Casos por día\",\"x\":\"7 Sep 20\"},{\"y\":245,\"series\":\"Casos por día\",\"x\":\"8 Sep 20\"},{\"y\":156,\n\"series\":\"Casos por día\",\"x\":\"9 Sep 20\"},{\"y\":247,\"series\":\"Casos por día\",\"x\":\"10 Sep 20\"},{\"y\":214,\"series\":\"Casos por día\",\"x\":\"11 Sep 20\"},{\"y\":215,\"series\":\"Casos por día\",\"x\":\"12 Sep 20\"},{\"y\":92,\"series\":\"Casos por día\",\"x\":\"13 Sep 20\"},{\"y\":87,\"series\":\"Casos por día\",\"x\":\"14 Sep 20\"},{\"y\":88,\"series\":\"Casos por día\",\"x\":\"15 Sep 20\"},{\"y\":84,\"series\":\"Casos por día\",\"x\":\"16 Sep 20\"},{\"y\":96,\"series\":\"Casos por día\",\"x\":\"17 Sep 20\"},{\"y\":98,\"series\":\"Casos por día\",\"x\":\"18 Sep 20\"},{\"y\":94,\"series\":\"Casos por día\",\"x\":\"19 Sep 20\"},{\"y\":89,\"series\":\"Casos por día\",\"x\":\"20 Sep 20\"},{\"y\":94,\"series\":\"Casos por día\",\"x\":\"21 Sep 20\"},{\"y\":89,\"series\":\"Casos por día\",\"x\":\"22 Sep 20\"},{\"y\":92,\"series\":\"Casos por día\",\"x\":\"23 Sep 20\"},{\"y\":89,\"series\":\"Casos por día\",\"x\":\"24 Sep 20\"},{\"y\":95,\"series\":\"Casos por día\",\"x\":\"25 Sep 20\"},{\"y\":103,\"series\":\"Casos por día\",\"x\":\"26 Sep 20\"},{\"y\":105,\"series\":\"Casos por día\",\"x\":\"27 Sep 20\"},{\"y\":109,\"series\":\"Casos por día\",\n\"x\":\"28 Sep 20\"},{\"y\":119,\"series\":\"Casos por día\",\"x\":\"29 Sep 20\"},{\"y\":126,\"series\":\"Casos por día\",\"x\":\"30 Sep 20\"},{\"y\":139,\"series\":\"Casos por día\",\"x\":\"1 Oct 20\"},{\"y\":145,\"series\":\"Casos por día\",\"x\":\"2 Oct 20\"},{\"y\":286,\"series\":\"Casos por día\",\"x\":\"3 Oct 20\"},{\"y\":295,\"series\":\"Casos por día\",\"x\":\"4 Oct 20\"},{\"y\":204,\"series\":\"Casos por día\",\"x\":\"5 Oct 20\"},{\"y\":191,\"series\":\"Casos por día\",\"x\":\"6 Oct 20\"},{\"y\":210,\"series\":\"Casos por día\",\"x\":\"7 Oct 20\"},{\"y\":160,\"series\":\"Casos por día\",\"x\":\"8 Oct 20\"},{\"y\":149,\"series\":\"Casos por día\",\"x\":\"9 Oct 20\"},{\"y\":145,\"series\":\"Casos por día\",\"x\":\"10 Oct 20\"},{\"y\":142,\"series\":\"Casos por día\",\"x\":\"11 Oct 20\"},{\"y\":159,\"series\":\"Casos por día\",\"x\":\"12 Oct 20\"},{\"y\":164,\"series\":\"Casos por día\",\"x\":\"13 Oct 20\"},{\"y\":167,\"series\":\"Casos por día\",\"x\":\"14 Oct 20\"},{\"y\":173,\"series\":\"Casos por día\",\"x\":\"15 Oct 20\"},{\"y\":165,\"series\":\"Casos por día\",\"x\":\"16 Oct 20\"},{\"y\":174,\"series\":\"Casos por día\",\"x\":\"17 Oct 20\"},{\"y\"\n:181,\"series\":\"Casos por día\",\"x\":\"18 Oct 20\"},{\"y\":186,\"series\":\"Casos por día\",\"x\":\"19 Oct 20\"},{\"y\":195,\"series\":\"Casos por día\",\"x\":\"20 Oct 20\"},{\"y\":189,\"series\":\"Casos por día\",\"x\":\"21 Oct 20\"},{\"y\":199,\"series\":\"Casos por día\",\"x\":\"22 Oct 20\"},{\"y\":190,\"series\":\"Casos por día\",\"x\":\"23 Oct 20\"},{\"y\":173,\"series\":\"Casos por día\",\"x\":\"24 Oct 20\"},{\"y\":205,\"series\":\"Casos por día\",\"x\":\"25 Oct 20\"},{\"y\":184,\"series\":\"Casos por día\",\"x\":\"26 Oct 20\"},{\"y\":179,\"series\":\"Casos por día\",\"x\":\"27 Oct 20\"},{\"y\":181,\"series\":\"Casos por día\",\"x\":\"28 Oct 20\"},{\"y\":183,\"series\":\"Casos por día\",\"x\":\"29 Oct 20\"},{\"y\":175,\"series\":\"Casos por día\",\"x\":\"30 Oct 20\"},{\"y\":178,\"series\":\"Casos por día\",\"x\":\"31 Oct 20\"},{\"y\":168,\"series\":\"Casos por día\",\"x\":\"1 Nov 20\"},{\"y\":165,\"series\":\"Casos por día\",\"x\":\"2 Nov 20\"},{\"y\":163,\"series\":\"Casos por día\",\"x\":\"3 Nov 20\"},{\"y\":158,\"series\":\"Casos por día\",\"x\":\"4 Nov 20\"},{\"y\":153,\"series\":\"Casos por día\",\"x\":\"5 Nov 20\"},{\"y\":150,\"series\":\n\"Casos por día\",\"x\":\"6 Nov 20\"},{\"y\":146,\"series\":\"Casos por día\",\"x\":\"7 Nov 20\"},{\"y\":144,\"series\":\"Casos por día\",\"x\":\"8 Nov 20\"},{\"y\":141,\"series\":\"Casos por día\",\"x\":\"9 Nov 20\"},{\"y\":154,\"series\":\"Casos por día\",\"x\":\"10 Nov 20\"},{\"y\":158,\"series\":\"Casos por día\",\"x\":\"11 Nov 20\"},{\"y\":157,\"series\":\"Casos por día\",\"x\":\"12 Nov 20\"},{\"y\":165,\"series\":\"Casos por día\",\"x\":\"13 Nov 20\"},{\"y\":174,\"series\":\"Casos por día\",\"x\":\"14 Nov 20\"},{\"y\":170,\"series\":\"Casos por día\",\"x\":\"15 Nov 20\"},{\"y\":177,\"series\":\"Casos por día\",\"x\":\"16 Nov 20\"},{\"y\":181,\"series\":\"Casos por día\",\"x\":\"17 Nov 20\"},{\"y\":172,\"series\":\"Casos por día\",\"x\":\"18 Nov 20\"},{\"y\":183,\"series\":\"Casos por día\",\"x\":\"19 Nov 20\"},{\"y\":189,\"series\":\"Casos por día\",\"x\":\"20 Nov 20\"},{\"y\":197,\"series\":\"Casos por día\",\"x\":\"21 Nov 20\"},{\"y\":188,\"series\":\"Casos por día\",\"x\":\"22 Nov 20\"},{\"y\":203,\"series\":\"Casos por día\",\"x\":\"23 Nov 20\"},{\"y\":212,\"series\":\"Casos por día\",\"x\":\"24 Nov 20\"},{\"y\":201,\"series\":\"Casos por día\"\n,\"x\":\"25 Nov 20\"},{\"y\":214,\"series\":\"Casos por día\",\"x\":\"26 Nov 20\"},{\"y\":206,\"series\":\"Casos por día\",\"x\":\"27 Nov 20\"},{\"y\":190,\"series\":\"Casos por día\",\"x\":\"28 Nov 20\"},{\"y\":205,\"series\":\"Casos por día\",\"x\":\"29 Nov 20\"},{\"y\":217,\"series\":\"Casos por día\",\"x\":\"30 Nov 20\"},{\"y\":231,\"series\":\"Casos por día\",\"x\":\"1 Dec 20\"},{\"y\":237,\"series\":\"Casos por día\",\"x\":\"2 Dec 20\"},{\"y\":249,\"series\":\"Casos por día\",\"x\":\"3 Dec 20\"},{\"y\":252,\"series\":\"Casos por día\",\"x\":\"4 Dec 20\"},{\"y\":265,\"series\":\"Casos por día\",\"x\":\"5 Dec 20\"},{\"y\":244,\"series\":\"Casos por día\",\"x\":\"6 Dec 20\"},{\"y\":273,\"series\":\"Casos por día\",\"x\":\"7 Dec 20\"},{\"y\":281,\"series\":\"Casos por día\",\"x\":\"8 Dec 20\"},{\"y\":282,\"series\":\"Casos por día\",\"x\":\"9 Dec 20\"},{\"y\":295,\"series\":\"Casos por día\",\"x\":\"10 Dec 20\"},{\"y\":286,\"series\":\"Casos por día\",\"x\":\"11 Dec 20\"},{\"y\":270,\"series\":\"Casos por día\",\"x\":\"12 Dec 20\"},{\"y\":291,\"series\":\"Casos por día\",\"x\":\"13 Dec 20\"},{\"y\":273,\"series\":\"Casos por día\",\"x\":\"14 Dec 20\"},{\n\"y\":265,\"series\":\"Casos por día\",\"x\":\"15 Dec 20\"},{\"y\":258,\"series\":\"Casos por día\",\"x\":\"16 Dec 20\"},{\"y\":269,\"series\":\"Casos por día\",\"x\":\"17 Dec 20\"},{\"y\":276,\"series\":\"Casos por día\",\"x\":\"18 Dec 20\"},{\"y\":282,\"series\":\"Casos por día\",\"x\":\"19 Dec 20\"},{\"y\":273,\"series\":\"Casos por día\",\"x\":\"20 Dec 20\"},{\"y\":276,\"series\":\"Casos por día\",\"x\":\"21 Dec 20\"},{\"y\":288,\"series\":\"Casos por día\",\"x\":\"22 Dec 20\"},{\"y\":284,\"series\":\"Casos por día\",\"x\":\"23 Dec 20\"},{\"y\":268,\"series\":\"Casos por día\",\"x\":\"24 Dec 20\"},{\"y\":290,\"series\":\"Casos por día\",\"x\":\"25 Dec 20\"},{\"y\":303,\"series\":\"Casos por día\",\"x\":\"26 Dec 20\"},{\"y\":307,\"series\":\"Casos por día\",\"x\":\"27 Dec 20\"},{\"y\":319,\"series\":\"Casos por día\",\"x\":\"28 Dec 20\"},{\"y\":331,\"series\":\"Casos por día\",\"x\":\"29 Dec 20\"},{\"y\":319,\"series\":\"Casos por día\",\"x\":\"30 Dec 20\"},{\"y\":315,\"series\":\"Casos por día\",\"x\":\"31 Dec 20\"},{\"y\":320,\"series\":\"Casos por día\",\"x\":\"1 Jan 21\"},{\"y\":298,\"series\":\"Casos por día\",\"x\":\"2 Jan 21\"},{\"y\":310,\n\"series\":\"Casos por día\",\"x\":\"3 Jan 21\"},{\"y\":317,\"series\":\"Casos por día\",\"x\":\"4 Jan 21\"},{\"y\":323,\"series\":\"Casos por día\",\"x\":\"5 Jan 21\"},{\"y\":330,\"series\":\"Casos por día\",\"x\":\"6 Jan 21\"},{\"y\":335,\"series\":\"Casos por día\",\"x\":\"7 Jan 21\"},{\"y\":322,\"series\":\"Casos por día\",\"x\":\"8 Jan 21\"},{\"y\":294,\"series\":\"Casos por día\",\"x\":\"9 Jan 21\"},{\"y\":284,\"series\":\"Casos por día\",\"x\":\"10 Jan 21\"},{\"y\":277,\"series\":\"Casos por día\",\"x\":\"11 Jan 21\"},{\"y\":269,\"series\":\"Casos por día\",\"x\":\"12 Jan 21\"},{\"y\":261,\"series\":\"Casos por día\",\"x\":\"13 Jan 21\"},{\"y\":259,\"series\":\"Casos por día\",\"x\":\"14 Jan 21\"},{\"y\":251,\"series\":\"Casos por día\",\"x\":\"15 Jan 21\"},{\"y\":252,\"series\":\"Casos por día\",\"x\":\"16 Jan 21\"},{\"y\":247,\"series\":\"Casos por día\",\"x\":\"17 Jan 21\"},{\"y\":235,\"series\":\"Casos por día\",\"x\":\"18 Jan 21\"},{\"y\":243,\"series\":\"Casos por día\",\"x\":\"19 Jan 21\"},{\"y\":229,\"series\":\"Casos por día\",\"x\":\"20 Jan 21\"},{\"y\":221,\"series\":\"Casos por día\",\"x\":\"21 Jan 21\"},{\"y\":207,\"series\":\n\"Casos por día\",\"x\":\"22 Jan 21\"},{\"y\":198,\"series\":\"Casos por día\",\"x\":\"23 Jan 21\"},{\"y\":204,\"series\":\"Casos por día\",\"x\":\"24 Jan 21\"},{\"y\":212,\"series\":\"Casos por día\",\"x\":\"25 Jan 21\"},{\"y\":205,\"series\":\"Casos por día\",\"x\":\"26 Jan 21\"},{\"y\":211,\"series\":\"Casos por día\",\"x\":\"27 Jan 21\"},{\"y\":206,\"series\":\"Casos por día\",\"x\":\"28 Jan 21\"},{\"y\":187,\"series\":\"Casos por día\",\"x\":\"29 Jan 21\"},{\"y\":183,\"series\":\"Casos por día\",\"x\":\"30 Jan 21\"},{\"y\":199,\"series\":\"Casos por día\",\"x\":\"31 Jan 21\"},{\"y\":210,\"series\":\"Casos por día\",\"x\":\"1 Feb 21\"},{\"y\":201,\"series\":\"Casos por día\",\"x\":\"2 Feb 21\"},{\"y\":184,\"series\":\"Casos por día\",\"x\":\"3 Feb 21\"},{\"y\":177,\"series\":\"Casos por día\",\"x\":\"4 Feb 21\"},{\"y\":174,\"series\":\"Casos por día\",\"x\":\"5 Feb 21\"},{\"y\":172,\"series\":\"Casos por día\",\"x\":\"6 Feb 21\"},{\"y\":182,\"series\":\"Casos por día\",\"x\":\"7 Feb 21\"},{\"y\":175,\"series\":\"Casos por día\",\"x\":\"8 Feb 21\"},{\"y\":168,\"series\":\"Casos por día\",\"x\":\"9 Feb 21\"},{\"y\":164,\"series\":\"Casos por día\",\"x\":\n\"10 Feb 21\"},{\"y\":161,\"series\":\"Casos por día\",\"x\":\"11 Feb 21\"},{\"y\":159,\"series\":\"Casos por día\",\"x\":\"12 Feb 21\"},{\"y\":157,\"series\":\"Casos por día\",\"x\":\"13 Feb 21\"},{\"y\":154,\"series\":\"Casos por día\",\"x\":\"14 Feb 21\"},{\"y\":155,\"series\":\"Casos por día\",\"x\":\"15 Feb 21\"},{\"y\":160,\"series\":\"Casos por día\",\"x\":\"16 Feb 21\"},{\"y\":156,\"series\":\"Casos por día\",\"x\":\"17 Feb 21\"},{\"y\":154,\"series\":\"Casos por día\",\"x\":\"18 Feb 21\"},{\"y\":149,\"series\":\"Casos por día\",\"x\":\"19 Feb 21\"},{\"y\":160,\"series\":\"Casos por día\",\"x\":\"20 Feb 21\"},{\"y\":152,\"series\":\"Casos por día\",\"x\":\"21 Feb 21\"},{\"y\":149,\"series\":\"Casos por día\",\"x\":\"22 Feb 21\"},{\"y\":150,\"series\":\"Casos por día\",\"x\":\"23 Feb 21\"},{\"y\":147,\"series\":\"Casos por día\",\"x\":\"24 Feb 21\"},{\"y\":141,\"series\":\"Casos por día\",\"x\":\"25 Feb 21\"},{\"y\":138,\"series\":\"Casos por día\",\"x\":\"26 Feb 21\"},{\"y\":137,\"series\":\"Casos por día\",\"x\":\"27 Feb 21\"},{\"y\":133,\"series\":\"Casos por día\",\"x\":\"28 Feb 21\"},{\"y\":139,\"series\":\"Casos por día\",\"x\":\"01 Mar 21\"}\n,{\"y\":143,\"series\":\"Casos por día\",\"x\":\"02 Mar 21\"},{\"y\":148,\"series\":\"Casos por día\",\"x\":\"03 Mar 21\"},{\"y\":154,\"series\":\"Casos por día\",\"x\":\"04 Mar 21\"},{\"y\":160,\"series\":\"Casos por día\",\"x\":\"05 Mar 21\"},{\"y\":162,\"series\":\"Casos por día\",\"x\":\"06 Mar 21\"},{\"y\":164,\"series\":\"Casos por día\",\"x\":\"07 Mar 21\"},{\"y\":171,\"series\":\"Casos por día\",\"x\":\"08 Mar 21\"},{\"y\":156,\"series\":\"Casos por día\",\"x\":\"09 Mar 21\"},{\"y\":146,\"series\":\"Casos por día\",\"x\":\"10 Mar 21\"},{\"y\":141,\"series\":\"Casos por día\",\"x\":\"11 Mar 21\"},{\"y\":135,\"series\":\"Casos por día\",\"x\":\"12 Mar 21\"}]}],\"width\":600}},\"wgEditSubmitButtonLabelPublish\":true,\"wgCentralAuthMobileDomain\":false,\"wgULSPosition\":\"interlanguage\",\"wgULSisCompactLinksEnabled\":true,\"wgWikibaseItemId\":\"Q87936974\",\"wgGENewcomerTasksGuidanceEnabled\":true,\"wgGEAskQuestionEnabled\":false,\"wgGELinkRecommendationsFrontendEnabled\":true};RLSTATE={\"ext.gadget.imagenesinfobox\":\"ready\",\"ext.globalCssJs.user.styles\":\"ready\",\"site.styles\":\"ready\",\"user.styles\":\n\"ready\",\"ext.globalCssJs.user\":\"ready\",\"user\":\"ready\",\"user.options\":\"loading\",\"ext.cite.styles\":\"ready\",\"ext.graph.styles\":\"ready\",\"skins.vector.styles.legacy\":\"ready\",\"jquery.tablesorter.styles\":\"ready\",\"ext.visualEditor.desktopArticleTarget.noscript\":\"ready\",\"ext.wikimediaBadges\":\"ready\",\"ext.uls.interlanguage\":\"ready\",\"wikibase.client.init\":\"ready\"};RLPAGEMODULES=[\"ext.cite.ux-enhancements\",\"ext.graph.vega2\",\"site\",\"mediawiki.page.ready\",\"jquery.tablesorter\",\"mediawiki.toc\",\"skins.vector.legacy.js\",\"ext.gadget.a-commons-directo\",\"ext.gadget.ReferenceTooltips\",\"ext.gadget.refToolbar\",\"ext.gadget.switcher\",\"mmv.head\",\"mmv.bootstrap.autostart\",\"ext.visualEditor.desktopArticleTarget.init\",\"ext.visualEditor.targetLoader\",\"ext.eventLogging\",\"ext.wikimediaEvents\",\"ext.navigationTiming\",\"ext.cx.eventlogging.campaigns\",\"ext.quicksurveys.init\",\"ext.centralNotice.geoIP\",\"ext.centralNotice.startUp\",\"ext.centralauth.centralautologin\",\"ext.popups\",\"ext.uls.compactlinks\",\"ext.uls.interface\",\n\"ext.growthExperiments.SuggestedEditSession\"];(RLQ=window.RLQ||[]).push(function(){mw.loader.implement(\"user.options@1i9g4\",function($,jQuery,require,module){mw.user.tokens.set({\"patrolToken\":\"+\\\\\",\"watchToken\":\"+\\\\\",\"csrfToken\":\"+\\\\\"});});});\n\n\n\t\n\t\n\t\n\t\n\tPandemia de COVID-19 en El Salvador\n\t\n\t\tDe Wikipedia, la enciclopedia libre\n\t\t\n\t\t\n\t\t\n\t\t\n\t\tIr a la navegación\n\t\tIr a la búsqueda\n\t\t\n\nEste artículo se refiere o está relacionado con un evento de salud pública reciente o actualmente en curso. La información de este artículo puede cambiar frecuentemente. Por favor, no agregues datos especulativos y recuerda colocar referencias a fuentes fiables para dar más detalles.Véase el aviso médico.\nArtículo principal:  Pandemia de COVID-19\nPandemia de COVID-19 en El Salvador\nParte de la pandemia de COVID-19\nNúmero de casos confirmados por departamento\n\n     1-999 casos confirmados\n     1000-1999 casos confirmados\n     2000-2999 casos confirmados\n     3000-4999 casos confirmados\n     5000-14999 casos confirmados\n     =15000 casos confirmados\n\nAgente patógenoPatógeno\nSARS-CoV-2Tipo de patógeno\nVirusEnfermedad causada\nCOVID-19Datos históricosInicio del contagio\n18 de marzo de 2020(2 años y 17 días)Lugar de inicio\nWuhan, China China (1 de diciembre de 2019)Lugar de procedencia\nItalia ItaliaLugar del primer casolocal\nMetapán, Santa AnaDeclaración del estadode emergencia\n11 de marzo de 2020Datos del contagioCasos confirmados\n161 052 Fallecidos\n4 119 Casos recuperados\n62 340 Pruebas realizadas\n1 268 090  Aviso médico [editar datos en Wikidata]El primer caso de la pandemia de COVID-19 en El Salvador se reportó el miércoles 18 de marzo de 2020.[1]<U+200B> Según el presidente Nayib Bukele, quien había decretado estado de emergencia el 11 de marzo, el infectado era un hombre de entre 20 a 40 años procedente de Italia que ingresó por un punto ciego del país.[2]<U+200B> El caso fue identificado en la ciudad de Metapán, del departamento de Santa Ana. Se activó un cordón sanitario alrededor del municipio durante 48 horas para tratar de identificar posibles nexos epidemiológicos.\nHasta el 1 de marzo de 2022 el gobierno reportaba 1,268,090 pruebas realizadas, 156,364 casos positivos, 62, 349 casos recuperados y 4,071 muertes.[3]<U+200B>\n\nÍndice\n1 Medidas preventivas\n2 Estadísticas\n2.1 Casos locales confirmados por departamento\n2.2 Casos por día\n2.3 Casos importados por país de origen\n2.4 Casos confirmados por edades\n2.5 Progresión de la vacunación\n\n3 Cronología\n3.1 Marzo\n3.2 Abril\n3.3 Mayo\n3.4 Junio\n3.5 Julio\n3.6 Agosto\n3.7 Septiembre\n\n4 Vacunación\n5 Véase también\n6 Referencias\n7 Enlaces externos\n\n\nMedidas preventivas[editar]\n  Cajas de paquetes alimentarios del Programa de Emergencia Sanitaria entregados por el Gobierno de El Salvador.\nVéase también: Medidas preventivas recomendadas por la OMS\nEl 11 de marzo el presidente de la República Nayib Bukele declaró estado de emergencia a pesar de no tener casos confirmados de COVID-19.[4]<U+200B>  A partir del 13 de marzo, todos los salvadoreños que ingresan al país son enviados a centros de contención para observación. Poco después se cierran totalmente las fronteras.[5]<U+200B> El 20 de marzo Bukele declara cuarentena \"domiciliar\" y \"absoluta\" por 30 días en El Salvador, autorizando a la PNC a realizar detenciones a quienes incumplan las medidas[6]<U+200B> \nSe declara que los servicios públicos (agua potable, energía eléctrica, entre otros) no serán removidos de la ciudadanía durante tres meses y que el pago de estos se simplificará en un plazo de 2 años.[7]<U+200B>\n\nEstadísticas[editar]\nCasos locales confirmados por departamento[editar]\nDepartamento\n\nCasos\n\nMuertes[8]<U+200B>\nSan Salvador\n35673\n742\nLa Libertad\n13166\n122\nSan Miguel\n12169\n77\nSanta Ana\n11561\n86\nUsulután\n4503\n97\nSonsonate\n3974\n268\nAhuachapán\n3538\n91\nLa Paz\n3469\n96\nChalatenango\n3148\n40\nLa Unión\n3106\n97\nMorazán\n2198\n35\nCuscatlán\n2168\n86\nSan Vicente\n1949\n61\nCabañas\n1285\n1\nTotales\n102,024\n3114\nNotas:  No ha sido reportado el departamento donde murieron 1205 contagiados locales de COVID-19.\nCasos por día[editar]\n\n@media all and (max-width:720px){.mw-parser-output div.mw-graph{min-width:auto!important;max-width:100%;overflow-x:auto;overflow-y:visible}}.mw-parser-output .mw-graph-img{width:inherit;height:inherit}\n\nCasos importados por país de origen[editar]\nCasos de COVID-19 importados en El Salvador por país de procedencia\n\nProcedencia\nCasos\nFallecidos\nCant.\n%\n\nCant.\n%\nGuatemala Guatemala\n26\n22,2\n2\n7,7\n Estados Unidos\n20\n17,1\n2\n10,0\nColombia Colombia\n12\n10,3\n0\n0,0\nItalia Italia\n10\n8,5\n0\n0,0\nMéxicoMéxico\n9\n7,7\n0\n0,0\nEspaña España\n9\n7,7\n0\n0,0\nPanamáPanamá\n9\n7,7\n0\n0,0\nBrasil Brasil\n4\n3,4\n0\n0,0\nHonduras Honduras\n4\n3,4\n0\n0,0\nRepública Dominicana República Dominicana\n3\n2,6\n0\n0,0\nEcuador Ecuador\n3\n2,6\n0\n0,0\n Francia\n2\n1,7\n0\n0,0\nPerúPerú\n2\n1,7\n0\n0,0\nAlemania Alemania\n1\n0,9\n1\n100,0\n Argentina\n1\n0,9\n0\n0,0\nCanadá Canadá\n1\n0,9\n1\n100,0\nCosta Rica Costa Rica\n1\n0,9\n0\n0,0\nTotales\n\n117\n100.00\n\n6\n5,1\nCasos confirmados por edades[editar]\nCasos de COVID-19 en El Salvador por edades\n\nEdad (Años)\n\nCasos\nCant.\n%\n=80\n2373\n2,3\n60–79\n13144\n12,9\n40–59\n37937\n37,2\n20–39\n41931\n41,1\n10–19\n4992\n4,9\n0–9\n1647\n1,6\nTotales\n\n102,024\n100,0\nProgresión de la vacunación[editar]\nArtículo principal:  Vacunación contra la COVID-19 en El Salvador\nCronología[editar]\nMarzo[editar]\n6 de marzo: La Dirección General de Protección Civil de El Salvador declaró alerta amarilla por el riesgo de la llegada del COVID-19 al país, horas después de que se confirmara el primer caso en Centroamérica, en Costa Rica.[9]<U+200B>\n11 de marzo: El presidente Nayib Bukele, a pesar de no tener casos confirmados de COVID-19 en el país, suspendió clases a nivel nacional para instituciones educativas tanto públicas, como privadas por 21 días, además, prohibió la entrada a El Salvador de todo extranjero que no fuera residente o diplomático, y los salvadoreños o extranjeros que entraran al país por cualquier vía, deberían cumplir una cuarentena de 30 días en albergues, y envió una solicitud a la Asamblea Legislativa de El Salvador para que esta declarara Estado de Emergencia y Estado de Excepción.[10]<U+200B>\n14 de marzo: La Asamblea Legislativa de El Salvador, aprobó un Estado de Excepción para limitar los derechos ciudadanos del libre tránsito, manifestación pacífica y el derecho a no ser obligado a cambiar de domicilio, para un período de 15 días prorrogables.[11]<U+200B>\n15 de Marzo Inicia la construcción del Hospital El Salvador donde anteriormente era el Centro Internacional de Ferias y Convenciones, para el tratamiento especializado de casos de COVID-19 durante la Pandemia. El Hospital fue duramente criticado por la oposición al Gobierno, considerando que era innecesario y que únicamente era una excusa para robar fondos.\n18 de marzo: El presidente Nayib Bukele anunció el primer caso de COVID-19 en el país, un hombre procedente de Italia que se presume entró por un punto ciego al país, pues no contaba con registro de ingreso en su pasaporte, evitando la cuarentena que se implementó desde el 11 de marzo. El caso fue identificado en el Hospital Nacional Arturo Morales de Metapán, Santa Ana.[12]<U+200B> Ese día en la noche se activó un cordón sanitario alrededor del municipio durante 48 horas para tratar de identificar posibles nexos epidemiológicos.[13]<U+200B>\n21 de marzo: Con solo 3 casos confirmados en el país, el presidente Nayib Bukele declaró una cuarentena domiciliar obligatoria por un período de 30 días. Además, anunció la entrega de un subsidio gubernamental a 1.5 millones de hogares por 300 USD.[14]<U+200B>\n27 de marzo: El gobierno hizo público un sitio web para consultar si era beneficiado con el subsidio gubernamental de $300, sin embargo, por el alto tráfico en el sitio web, se colapsó completamente en el fin de semana del 28 y 29 de marzo. El gobierno anunció que ya había realizado los primeros 200 mil depósitos de 1.5 millones.[15]<U+200B>\n29 de marzo: La Asamblea Legislativa de El Salvador, aprobó una extensión por 15 días más del Estado de Excepción, para suspender los derechos ciudadanos del libre tránsito, manifestación pacífica y el derecho a no ser obligado a cambiar de domicilio, esto con 30 casos confirmados en el país.[16]<U+200B>\n31 de marzo: El presidente Nayib Bukele, confirmó la primera muerte por el COVID-19 en tierras salvadoreñas, una mujer de 60 años que había retornado al país procedente de Estados Unidos.[17]<U+200B>\n\nAbril[editar]\n4 de abril: El gobierno confirmó la recuperación de los primeros dos pacientes de COVID-19 en El Salvador, un hombre de 46 años proveniente de España y otro hombre de 37 años proveniente de Italia.[18]<U+200B> Las cifras de COVID-19 en el país ascendieron a 62 contagiados y 3 fallecidos.[19]<U+200B>\n6 de abril: El presidente Nayib Bukele anunció la extensión de la cuarentena domiciliar obligatoria por 15 días más, empezando el 13 de abril. A esta fecha, las cifras de COVID-19 en el país ascendieron a 78 contagiados, 4 fallecidos y 3 recuperados.[20]<U+200B>\n\nMayo[editar]\n14 de Mayo la Asamblea Legislativa de El Salvador no prorroga más el decreto de emergencia nacional.\n\nJunio[editar]\n21 de Junio la red Hospitalara se veía saturada, pero gracias al nuevo Hospital El Salvador[21]<U+200B> se empezó a tener una mejor capacidad de respuesta en todo el sistema de salud.\n\nJulio[editar]\n31 de Julio Médicos y especialista españoles trabajan en dos grupos dentro del Hospital El Salvador El Gobierno de El Salvador informó que los 28 médicos y especialistas de la fundación Servicios de Asistencia Médica de Urgencias (SAMU) de España, llegaron al país, iniciaron su trabajo de apoyo en atención a pacientes de COVID-19, distribuidos en dos grupos en las diferentes áreas del lugar.[22]<U+200B>\n\nAgosto[editar]\n5 de Agosto se informa que la Fase II del Hospital El Salvador empezó a funcionar, debido a que necesitaban utilizarlo para pacientes COVID-19 que estaban siendo trasladados.\n7 de Agosto la Corte Suprema de Justicia de El Salvador de El Salvador, declaró inconstitucional la reapertura económica por fases propuesta y puesta en marcha por el Gobierno a través del Ministerio de Salud.\n23 de Agosto da inicio la reapertura económica total y descontrolada en El Salvador gracias a la sentencia de la Sala de lo Constitucional.\n\nSeptiembre[editar]\nPrimera semana de septiembre y quinto día consecutivo a la baja de casos en todo el país\n\nVacunación[editar]\nEl Salvador es uno de los países líderes en Centroamérica en cuanto a la vacunación contra el Covid-19. Para el 21 de junio del presente año, 15,11 personas por cada 100 habitantes están totalmente vacunadas.[23]<U+200B> El suministro total de vacunas de El Salvador equivale a 4 millones de dosis que cubren el 30,8% de la población salvadoreña (mayo 2021).[24]<U+200B> Hasta el momento, se han entregado 417.000 dosis a través del mecanismo COVAX, una iniciativa mundial que tiene como objetivo el acceso equitativo a las vacunas Covid-19 . Además, El Salvador ha recibido 150.000 dosis de la vacuna CoronaVac donada por China junto con dos millones de dosis compradas anteriormente.[25]<U+200B> El resto de las dosis de vacunas son de AstraZeneca/Oxford, también compradas nacionalmente. El presidente salvadoreño Nayib Bukele ha donado miles de  vacunas a varios municipios hondureños como respuesta a las peticiones que los alcaldes hondureños han publicado en las redes sociales.[26]<U+200B>\n\nVéase también[editar]\nPandemia de coronavirus en América por país\nPandemia de enfermedad por coronavirus de 2020 en Centroamérica\nPandemia de enfermedad por coronavirus de 2019-2020\nPandemia de enfermedad por coronavirus de 2020 en AméricaReferencias[editar]\n<U+2191> Andrea Rincón; Mar Romero (18 de marzo de 2020). «Covid19: El Salvador y Nicaragua reportan sus primeros casos por coronavirus». France 24. \n\n<U+2191> MINUTO A MINUTO. Primer contagiado de coronavirus en El Salvador entró por un punto ciego, dice Bukele. Publicado el 15 de marzo de 2020. Consultado el 19 de marzo de 2020.\n\n<U+2191> «El Salvador Coronavirus: 64,431 Cases and 2,006 Deaths - Worldometer». www.worldometers.info (en inglés). Consultado el 2 de abril de 2021. \n\n<U+2191> Sin casos confirmados de Covid-19, El Salvador emprende drásticas acciones para afrontar pandemia. Publicado el 14 de marzo de 2020. Consultado el 19 de marzo de 2020.\n\n<U+2191> «COVID-19 en el tiempo». Disruptiva. \n\n<U+2191> Hernández Moreno, Amanda (22 de marzo de 2020). «Casi 200 detenidos por incumplir cuarentena domiciliar en El Salvador: \"Las retenciones continúan\"». La Prensa Gráfica. \n\n<U+2191> «Coronavirus en El Salvador: el ambicioso plan de Bukele para reforzar la economía del país amenazada por el covid-19». BBC. 24 de marzo de 2020. \n\n<U+2191> «Comures: suben a 1,879 muertes confirmadas por covid-19 en El Salvador». elmundo.sv. 4 de noviembre de 2020. \n\n<U+2191> «Alerta amarilla en El Salvador por riesgo de coronavirus». CNN en Español. 6 de marzo de 2020. \n\n<U+2191> «Sin casos confirmados de Covid-19, El Salvador emprende drásticas acciones para afrontar pandemia». France24. 6 de marzo de 2020. \n\n<U+2191> «El Salvador decreta el estado de excepción para enfrentar la pandemia del COVID-19». Efe. 15 de marzo de 2020. \n\n<U+2191> «El Salvador confirma primer caso de COVID-19». La Prensa Gráfica. 18 de marzo de 2020. \n\n<U+2191> Beatriz Calderón (19 de marzo de 2020). «Lo que se sabe (y lo que no) sobre el primer infectado con coronavirus en El Salvador». La Prensa Gráfica. Consultado el 20 de julio de 2020. \n\n<U+2191> «El Salvador decreta cuarentena domiciliar obligatoria por un mes». DW. 22 de marzo de 2020. \n\n<U+2191> «Colapsa sitio para consultar subsidio de $300; gobierno dice que ya hizo los primeros 200 mil depósitos». elsalvador.com. 28 de marzo de 2020. \n\n<U+2191> «Diputados aprueban nuevo decreto para mantener Estado de excepción por 15 días más». La Prensa Gráfica. 29 de marzo de 2020. \n\n<U+2191> «El Salvador registra primera muerte por coronavirus». elsalvador.com. 31 de marzo de 2020. \n\n<U+2191> «El Salvador anuncia sus dos primeros pacientes curados de COVID-19». DW. 4 de abril de 2020. \n\n<U+2191> «Suben a 62 casos de COVID-19 en El Salvador». 102nueve. 4 de abril de 2020. \n\n<U+2191> «Cuarentena domiciliar se mantendrá hasta el 28 de abril tras ampliación de 15 días ordenada por Bukele». elsalvador.com. 6 de abril de 2020. \n\n<U+2191>  Hospital mas grande de Covid [1]  \n\n<U+2191>  Medicos Españoles [2] \n\n<U+2191> «COVID-19 vaccine doses administered in the Americas». ais.paho.org. Consultado el 24 de junio de 2021. \n\n<U+2191> «Timeline: Tracking Latin America's Road to Vaccination». AS/COA (en inglés). Consultado el 24 de junio de 2021. \n\n<U+2191> «China to send 150,000 vaccine doses to El Salvador». The Brazilian Report (en inglés estadounidense). 5 de abril de 2021. Consultado el 24 de junio de 2021. \n\n<U+2191> «Honduras recibe 78,000 vacunas donadas por parte de El Salvador». AS USA. 11 de junio de 2021. Consultado el 24 de junio de 2021. \n\n\nEnlaces externos[editar]\ncovid19 Conteo de casos oficiales e información. Gobierno de El Salvador.\nEstadísticas sobre la pandemia en el país. wordometers..mw-parser-output .mw-authority-control{margin-top:1.5em}.mw-parser-output .mw-authority-control .navbox hr:last-child{display:none}.mw-parser-output .mw-authority-control .navbox+.mw-mf-linked-projects{display:none}.mw-parser-output .mw-authority-control .mw-mf-linked-projects{display:flex;padding:0.5em;border:1px solid #c8ccd1;background-color:#eaecf0;color:#222222}.mw-parser-output .mw-authority-control .mw-mf-linked-projects ul li{margin-bottom:0}Control de autoridades\nProyectos Wikimedia\n Datos: Q87936974\n Multimedia: COVID-19 pandemic in El Salvador\n Datos: Q87936974\n Multimedia: COVID-19 pandemic in El Salvador\n\n\n\n\n\nObtenido de «https://es.wikipedia.org/w/index.php?title=Pandemia_de_COVID-19_en_El_Salvador&oldid=142013147»\n\t\tCategorías: Eventos de salud pública en cursoPandemia de COVID-19 en AméricaPandemia de COVID-19 por paísSalud en El SalvadorEl Salvador en 2020Categorías ocultas: Wikipedia:Páginas con plantillas con argumentos duplicadosWikipedia:Páginas en desarrollo pero sin ediciones en un período de tiempo prolongadoWikipedia:Páginas con gráficos\n\t\n\n\n\t\n\n\n\n\tMenú de navegación\n\t\n\t\t\n\n\t\tHerramientas personales\n\t\n\t\n\t\t\n\t\tNo has accedidoDiscusiónContribucionesCrear una cuentaAcceder\n\n\t\t\t\n\n\t\tEspacios de nombres\n\t\n\t\n\t\t\n\t\tArtículoDiscusión\n\n\t\tespañol\n\t\n\t\n\t\t\n\t\t\n\n\t\t\n\t\t\t\n\n\t\tVistas\n\t\n\t\n\t\t\n\t\tLeerEditarVer historial\n\n\t\tMás\n\t\n\t\n\t\t\n\t\t\n\n\t\n\t\t\t\n\t\t\t\tBuscar\n\t\t\t\n\t\t\n\t\t\t\n\t\t\t\t\n\t\t\n\t\n\n\n\t\t\n\t\n\t\n\n\n\t\n\t\t\n\t\n\t\n\n\t\tNavegación\n\t\n\t\n\t\t\n\t\tPortadaPortal de la comunidadActualidadCambios recientesPáginas nuevasPágina aleatoriaAyudaDonacionesNotificar un error\n\n\t\tHerramientas\n\t\n\t\n\t\t\n\t\tLo que enlaza aquíCambios en enlazadasSubir archivoPáginas especialesEnlace permanenteInformación de la páginaCitar esta páginaElemento de Wikidata\n\n\t\tImprimir/exportar\n\t\n\t\n\t\t\n\t\tCrear un libroDescargar como PDFVersión para imprimir\n\n\t\tEn otros proyectos\n\t\n\t\n\t\t\n\t\tWikimedia Commons\n\n\t\tEn otros idiomas\n\t\n\t\n\t\t\n\t\t<U+0627><U+0644><U+0639><U+0631><U+0628><U+064A><U+0629><U+06A9><U+0648><U+0631><U+062F><U+06CC>DeutschEnglishFrançaisKreyòl ayisyenBahasa IndonesiaItaliano<U+D55C><U+AD6D><U+C5B4>Português<U+0420><U+0443><U+0441><U+0441><U+043A><U+0438><U+0439>Simple EnglishTürkçe<U+0423><U+043A><U+0440><U+0430><U+0457><U+043D><U+0441><U+044C><U+043A><U+0430>O<U+02BB>zbekcha/<U+045E><U+0437><U+0431><U+0435><U+043A><U+0447><U+0430>Ti<U+1EBF>ng Vi<U+1EC7>tEditar enlaces\n\t\n\n\n\n\n Esta página se editó por última vez el 2 mar 2022 a las 05:25.\n\tEl texto está disponible bajo la Licencia Creative Commons Atribución Compartir Igual 3.0;\npueden aplicarse cláusulas adicionales. Al usar este sitio, usted acepta nuestros términos de uso y nuestra política de privacidad. Wikipedia® es una marca registrada de la Fundación Wikimedia, Inc., una organización sin ánimo de lucro.\nPolítica de privacidad\n\tAcerca de Wikipedia\n\tLimitación de responsabilidad\n\tVersión para móviles\n\tDesarrolladores\n\tEstadísticas\n\tDeclaración de cookies\n\n\t\n(RLQ=window.RLQ||[]).push(function(){mw.config.set({\"wgPageParseReport\":{\"limitreport\":{\"cputime\":\"1.030\",\"walltime\":\"1.158\",\"ppvisitednodes\":{\"value\":4171,\"limit\":1000000},\"postexpandincludesize\":{\"value\":85616,\"limit\":2097152},\"templateargumentsize\":{\"value\":2570,\"limit\":2097152},\"expansiondepth\":{\"value\":15,\"limit\":100},\"expensivefunctioncount\":{\"value\":3,\"limit\":500},\"unstrip-depth\":{\"value\":0,\"limit\":20},\"unstrip-size\":{\"value\":30836,\"limit\":5000000},\"entityaccesscount\":{\"value\":2,\"limit\":400},\"timingprofile\":[\"100.00% 1014.169      1 -total\",\" 51.01%  517.318      1 Plantilla:Ficha_de_epidemia\",\" 13.91%  141.028      1 Plantilla:Control_de_autoridades\",\" 11.06%  112.157      1 Plantilla:Listaref\",\" 10.92%  110.735      1 Plantilla:Gráfico\",\"  5.90%   59.880      7 Plantilla:Cita_web\",\"  3.10%   31.464      1 Plantilla:Actual\",\"  2.53%   25.675     12 Plantilla:Cite_web\",\"  1.88%   19.103      5 Plantilla:Bandera2\",\"  1.85%   18.759      1 Plantilla:Aviso\"]},\"scribunto\":{\"limitreport-timeusage\":{\"value\":\"0.738\",\"limit\":\"10.000\"},\"limitreport-memusage\":{\"value\":15796196,\"limit\":52428800}},\"cachereport\":{\"origin\":\"mw1434\",\"timestamp\":\"20220404010641\",\"ttl\":3600,\"transientcontent\":true}}});});{\"@context\":\"https:\\/\\/schema.org\",\"@type\":\"Article\",\"name\":\"Pandemia de COVID-19 en El Salvador\",\"url\":\"https:\\/\\/es.wikipedia.org\\/wiki\\/Pandemia_de_COVID-19_en_El_Salvador\",\"sameAs\":\"http:\\/\\/www.wikidata.org\\/entity\\/Q87936974\",\"mainEntity\":\"http:\\/\\/www.wikidata.org\\/entity\\/Q87936974\",\"author\":{\"@type\":\"Organization\",\"name\":\"Colaboradores de los proyectos Wikimedia\"},\"publisher\":{\"@type\":\"Organization\",\"name\":\"Wikimedia Foundation, Inc.\",\"logo\":{\"@type\":\"ImageObject\",\"url\":\"https:\\/\\/www.wikimedia.org\\/static\\/images\\/wmf-hor-googpub.png\"}},\"datePublished\":\"2020-03-19T02:24:46Z\",\"dateModified\":\"2022-03-02T05:25:57Z\",\"image\":\"https:\\/\\/upload.wikimedia.org\\/wikipedia\\/commons\\/5\\/5b\\/MapCovidElSalvador15.png\",\"headline\":\"Impacto de la enfermedad COVID-19 en El Salvador\"}(RLQ=window.RLQ||[]).push(function(){mw.config.set({\"wgBackendResponseTime\":1299,\"wgHostname\":\"mw1434\"});});"

Tenemos que revisar la codificación de la página web, para ello damos click derecho en la página y damos en la opción ver código fuente de la página

Vemos en la imagen toda la estructura de la página, pero lo que nos interesa es solamente la tabla que contiene la información de los casos locales confirmados por departamento, observamos que la clase que contiene a esa tabla es .mw-headline.

covidesa %>% 
  html_nodes(".mw-headline")
## {xml_nodeset (19)}
##  [1] <span class="mw-headline" id="Medidas_preventivas">Medidas preventivas</ ...
##  [2] <span class="mw-headline" id="Estadísticas">Estadísticas</span>
##  [3] <span class="mw-headline" id="Casos_locales_confirmados_por_departamento ...
##  [4] <span class="mw-headline" id="Casos_por_día">Casos por día</span>
##  [5] <span class="mw-headline" id="Casos_importados_por_país_de_origen">Casos ...
##  [6] <span class="mw-headline" id="Casos_confirmados_por_edades">Casos confir ...
##  [7] <span class="mw-headline" id="Progresión_de_la_vacunación">Progresión de ...
##  [8] <span class="mw-headline" id="Cronología">Cronología</span>
##  [9] <span class="mw-headline" id="Marzo">Marzo</span>
## [10] <span class="mw-headline" id="Abril">Abril</span>
## [11] <span class="mw-headline" id="Mayo">Mayo</span>
## [12] <span class="mw-headline" id="Junio">Junio</span>
## [13] <span class="mw-headline" id="Julio">Julio</span>
## [14] <span class="mw-headline" id="Agosto">Agosto</span>
## [15] <span class="mw-headline" id="Septiembre">Septiembre</span>
## [16] <span class="mw-headline" id="Vacunación">Vacunación</span>
## [17] <span class="mw-headline" id="Véase_también">Véase también</span>
## [18] <span class="mw-headline" id="Referencias">Referencias</span>
## [19] <span class="mw-headline" id="Enlaces_externos">Enlaces externos</span>

Para hacerlo mucho mejor ejecutamos lo siguiente:

covidesa %>% 
  html_nodes(".mw-headline") %>% 
  html_text()
##  [1] "Medidas preventivas"                       
##  [2] "Estadísticas"                              
##  [3] "Casos locales confirmados por departamento"
##  [4] "Casos por día"                             
##  [5] "Casos importados por país de origen"       
##  [6] "Casos confirmados por edades"              
##  [7] "Progresión de la vacunación"               
##  [8] "Cronología"                                
##  [9] "Marzo"                                     
## [10] "Abril"                                     
## [11] "Mayo"                                      
## [12] "Junio"                                     
## [13] "Julio"                                     
## [14] "Agosto"                                    
## [15] "Septiembre"                                
## [16] "Vacunación"                                
## [17] "Véase también"                             
## [18] "Referencias"                               
## [19] "Enlaces externos"

Debemos encontrar cual es la tabla que contiene esa información

tabla1=covidesa %>% 
      html_table()
tabla1
## [[1]]
## # A tibble: 1 x 3
##   X1    X2                                                                 X3   
##   <lgl> <chr>                                                              <lgl>
## 1 NA    Este artículo se refiere o está relacionado con un evento de salu~ NA   
## 
## [[2]]
## # A tibble: 19 x 3
##    `Pandemia de COVID-19 en~ `Pandemia de COVID-19 en~ `Pandemia de COVID-19 en~
##    <chr>                     <chr>                     <chr>                    
##  1 "Parte de la pandemia de~ "Parte de la pandemia de~ "Parte de la pandemia de~
##  2 "Número de casos confirm~ "Número de casos confirm~ "Número de casos confirm~
##  3 "Agente patógeno"         "Agente patógeno"         "Agente patógeno"        
##  4 "Patógeno"                "SARS-CoV-2"              "SARS-CoV-2"             
##  5 "Tipo de patógeno"        "Virus"                   "Virus"                  
##  6 "Enfermedad causada"      "COVID-19"                "COVID-19"               
##  7 "Datos históricos"        "Datos históricos"        "Datos históricos"       
##  8 "Inicio del contagio"     "18 de marzo de 2020(2 a~ "18 de marzo de 2020(2 a~
##  9 "Lugar de inicio"         "Wuhan, China China (1 d~ "Wuhan, China China (1 d~
## 10 "Lugar de procedencia"    "Italia Italia"           "Italia Italia"          
## 11 "Lugar del primer casolo~ "Metapán, Santa Ana"      "Metapán, Santa Ana"     
## 12 "Declaración del estadod~ "11 de marzo de 2020"     "11 de marzo de 2020"    
## 13 "Datos del contagio"      "Datos del contagio"      "Datos del contagio"     
## 14 "Casos confirmados"       "161 052"                 "161 052"                
## 15 "Fallecidos"              "4 119"                   "4 119"                  
## 16 "Casos recuperados"       "62 340"                  "62 340"                 
## 17 "Pruebas realizadas"      "1 268 090"               "1 268 090"              
## 18 "Aviso médico"            "Aviso médico"            "Aviso médico"           
## 19 "[editar datos en Wikida~ "[editar datos en Wikida~ "[editar datos en Wikida~
## 
## [[3]]
## # A tibble: 16 x 3
##    Departamento                Casos                  `Muertes[8]<U+200B>`              
##    <chr>                       <chr>                  <chr>                     
##  1 San Salvador                35673                  742                       
##  2 La Libertad                 13166                  122                       
##  3 San Miguel                  12169                  77                        
##  4 Santa Ana                   11561                  86                        
##  5 Usulután                    4503                   97                        
##  6 Sonsonate                   3974                   268                       
##  7 Ahuachapán                  3538                   91                        
##  8 La Paz                      3469                   96                        
##  9 Chalatenango                3148                   40                        
## 10 La Unión                    3106                   97                        
## 11 Morazán                     2198                   35                        
## 12 Cuscatlán                   2168                   86                        
## 13 San Vicente                 1949                   61                        
## 14 Cabañas                     1285                   1                         
## 15 Totales                     102,024                3114                      
## 16 Notas:  No ha sido reporta~ Notas:  No ha sido re~ Notas:  No ha sido report~
## 
## [[4]]
## # A tibble: 19 x 5
##    Procedencia                               Casos Casos  Fallecidos Fallecidos
##    <chr>                                     <chr> <chr>  <chr>      <chr>     
##  1 Procedencia                               Cant. %      Cant.      %         
##  2 Guatemala Guatemala                       26    22,2   2          7,7       
##  3 Estados Unidos                            20    17,1   2          10,0      
##  4 Colombia Colombia                         12    10,3   0          0,0       
##  5 Italia Italia                             10    8,5    0          0,0       
##  6 MéxicoMéxico                              9     7,7    0          0,0       
##  7 España España                             9     7,7    0          0,0       
##  8 PanamáPanamá                              9     7,7    0          0,0       
##  9 Brasil Brasil                             4     3,4    0          0,0       
## 10 Honduras Honduras                         4     3,4    0          0,0       
## 11 República Dominicana República Dominicana 3     2,6    0          0,0       
## 12 Ecuador Ecuador                           3     2,6    0          0,0       
## 13 Francia                                   2     1,7    0          0,0       
## 14 PerúPerú                                  2     1,7    0          0,0       
## 15 Alemania Alemania                         1     0,9    1          100,0     
## 16 Argentina                                 1     0,9    0          0,0       
## 17 Canadá Canadá                             1     0,9    1          100,0     
## 18 Costa Rica Costa Rica                     1     0,9    0          0,0       
## 19 Totales                                   117   100.00 6          5,1       
## 
## [[5]]
## # A tibble: 8 x 3
##   `Edad (Años)` Casos   Casos
##   <chr>         <chr>   <chr>
## 1 Edad (Años)   Cant.   %    
## 2 =80           2373    2,3  
## 3 60–79         13144   12,9 
## 4 40–59         37937   37,2 
## 5 20–39         41931   41,1 
## 6 10–19         4992    4,9  
## 7 0–9           1647    1,6  
## 8 Totales       102,024 100,0
## 
## [[6]]
## # A tibble: 1 x 2
##   X1                 X2                                                         
##   <chr>              <chr>                                                      
## 1 Control de autori~ "Proyectos Wikimedia\n Datos: Q87936974\n Multimedia: COVI~

La tabla1 es una lista (puede mezclar varios tipos de datos), por ello tenemos que indicarle cual tiene los datos, eso lo hacemos utilizando [[]] y dentro de los corchetes va el elemento que analizaremos.

Pero antes de esto haremos un cambio en el nombre de la variable Muertes[8]<U+200B> que esta en la lista 3.

tabla_esa=tabla1[[3]]
names(tabla_esa)[3]="Muertes"

tabla_esa
## # A tibble: 16 x 3
##    Departamento                  Casos                  Muertes                 
##    <chr>                         <chr>                  <chr>                   
##  1 San Salvador                  35673                  742                     
##  2 La Libertad                   13166                  122                     
##  3 San Miguel                    12169                  77                      
##  4 Santa Ana                     11561                  86                      
##  5 Usulután                      4503                   97                      
##  6 Sonsonate                     3974                   268                     
##  7 Ahuachapán                    3538                   91                      
##  8 La Paz                        3469                   96                      
##  9 Chalatenango                  3148                   40                      
## 10 La Unión                      3106                   97                      
## 11 Morazán                       2198                   35                      
## 12 Cuscatlán                     2168                   86                      
## 13 San Vicente                   1949                   61                      
## 14 Cabañas                       1285                   1                       
## 15 Totales                       102,024                3114                    
## 16 Notas:  No ha sido reportado~ Notas:  No ha sido re~ Notas:  No ha sido repo~

Pero todavía hay que arreglar la tabla para analizarla, primeramente tenemos que eliminar la fila 15 y 16, para que finalmente la columna 2 y 3 se conviertan de cadena a numéricas.

# Eliminamos la fila 15 y 16
tabla_esa=tabla_esa[-c(15,16),]
tabla_esa
## # A tibble: 14 x 3
##    Departamento Casos Muertes
##    <chr>        <chr> <chr>  
##  1 San Salvador 35673 742    
##  2 La Libertad  13166 122    
##  3 San Miguel   12169 77     
##  4 Santa Ana    11561 86     
##  5 Usulután     4503  97     
##  6 Sonsonate    3974  268    
##  7 Ahuachapán   3538  91     
##  8 La Paz       3469  96     
##  9 Chalatenango 3148  40     
## 10 La Unión     3106  97     
## 11 Morazán      2198  35     
## 12 Cuscatlán    2168  86     
## 13 San Vicente  1949  61     
## 14 Cabañas      1285  1
# Convertimos de cadena a numérica
tabla_esa$Casos=as.integer(tabla_esa$Casos)
tabla_esa$Muertes=as.integer(tabla_esa$Muertes)

str(tabla_esa)
## tibble[,3] [14 x 3] (S3: tbl_df/tbl/data.frame)
##  $ Departamento: chr [1:14] "San Salvador" "La Libertad" "San Miguel" "Santa Ana" ...
##  $ Casos       : int [1:14] 35673 13166 12169 11561 4503 3974 3538 3469 3148 3106 ...
##  $ Muertes     : int [1:14] 742 122 77 86 97 268 91 96 40 97 ...

Hoy si ya podemos hacer una visualización gráfica de los datos de la tabla

ggplot(tabla_esa,aes(x=Departamento,y=Muertes))+geom_col()+coord_flip()+labs(title = "casos locales confirmados por departamento")

3.1 OTRA FORMA

# Use read_html to fetch the webpage
url <- "https://es.wikipedia.org/wiki/Pandemia_de_COVID-19_en_El_Salvador"
ESA <- read_html(url) 
COVID <- ESA %>% 
  html_nodes("table") %>% `[[`(3) %>% html_table()

COVID
## # A tibble: 16 x 3
##    Departamento                Casos                  `Muertes[8]<U+200B>`              
##    <chr>                       <chr>                  <chr>                     
##  1 San Salvador                35673                  742                       
##  2 La Libertad                 13166                  122                       
##  3 San Miguel                  12169                  77                        
##  4 Santa Ana                   11561                  86                        
##  5 Usulután                    4503                   97                        
##  6 Sonsonate                   3974                   268                       
##  7 Ahuachapán                  3538                   91                        
##  8 La Paz                      3469                   96                        
##  9 Chalatenango                3148                   40                        
## 10 La Unión                    3106                   97                        
## 11 Morazán                     2198                   35                        
## 12 Cuscatlán                   2168                   86                        
## 13 San Vicente                 1949                   61                        
## 14 Cabañas                     1285                   1                         
## 15 Totales                     102,024                3114                      
## 16 Notas:  No ha sido reporta~ Notas:  No ha sido re~ Notas:  No ha sido report~

Hay que realizar los mismos cambios que se hicieron anteriormente

names(COVID)[3]="Muertes"

COVID
## # A tibble: 16 x 3
##    Departamento                  Casos                  Muertes                 
##    <chr>                         <chr>                  <chr>                   
##  1 San Salvador                  35673                  742                     
##  2 La Libertad                   13166                  122                     
##  3 San Miguel                    12169                  77                      
##  4 Santa Ana                     11561                  86                      
##  5 Usulután                      4503                   97                      
##  6 Sonsonate                     3974                   268                     
##  7 Ahuachapán                    3538                   91                      
##  8 La Paz                        3469                   96                      
##  9 Chalatenango                  3148                   40                      
## 10 La Unión                      3106                   97                      
## 11 Morazán                       2198                   35                      
## 12 Cuscatlán                     2168                   86                      
## 13 San Vicente                   1949                   61                      
## 14 Cabañas                       1285                   1                       
## 15 Totales                       102,024                3114                    
## 16 Notas:  No ha sido reportado~ Notas:  No ha sido re~ Notas:  No ha sido repo~
# Eliminamos la fila 15 y 16
TABLA_COVID=COVID[-c(15,16),]
TABLA_COVID
## # A tibble: 14 x 3
##    Departamento Casos Muertes
##    <chr>        <chr> <chr>  
##  1 San Salvador 35673 742    
##  2 La Libertad  13166 122    
##  3 San Miguel   12169 77     
##  4 Santa Ana    11561 86     
##  5 Usulután     4503  97     
##  6 Sonsonate    3974  268    
##  7 Ahuachapán   3538  91     
##  8 La Paz       3469  96     
##  9 Chalatenango 3148  40     
## 10 La Unión     3106  97     
## 11 Morazán      2198  35     
## 12 Cuscatlán    2168  86     
## 13 San Vicente  1949  61     
## 14 Cabañas      1285  1
# Convertimos de cadena a numérica
TABLA_COVID$Casos=as.integer(TABLA_COVID$Casos)
TABLA_COVID$Muertes=as.integer(TABLA_COVID$Muertes)

str(TABLA_COVID)
## tibble[,3] [14 x 3] (S3: tbl_df/tbl/data.frame)
##  $ Departamento: chr [1:14] "San Salvador" "La Libertad" "San Miguel" "Santa Ana" ...
##  $ Casos       : int [1:14] 35673 13166 12169 11561 4503 3974 3538 3469 3148 3106 ...
##  $ Muertes     : int [1:14] 742 122 77 86 97 268 91 96 40 97 ...