Estadisticas para las ciencias analiticas

Problema 1:

Durante el mes de diciembre se ha monitoreado el estado de los contagios COVID en la ciudad de Lima. Bajo, Controlado, Bajo, Bajo, Bajo, Controlado, Alto, Controlado, Alto, Controlado, Alto, Controlado, Controlado, Controlado, Controlado, Alto, Extremo, Alto, Controlado, Controlado, Alto, Controlado, Controlado, Alto, Alto, Controlado, Controlado, Controlado; Alto, Alto, Alto.

Determinar la distribucion de frecuencias y los graficos de barras y circulares.

Paso 1: Creamos la Base de Datos "contagios"

contagios <-c("Bajo","Controlado","Bajo","Bajo","Bajo","Alto","Controlado","Alto","Controlado","Alto","Controlado","Controlado","Controlado","Controlado",
"Alto","Extremo","Alto","Controlado","Controlado","Alto","Controlado","Controlado","Alto","Alto","Controlado","Controlado","Controlado","Alto","Alto","Alto","Controlado")

contagios
##  [1] "Bajo"       "Controlado" "Bajo"       "Bajo"       "Bajo"      
##  [6] "Alto"       "Controlado" "Alto"       "Controlado" "Alto"      
## [11] "Controlado" "Controlado" "Controlado" "Controlado" "Alto"      
## [16] "Extremo"    "Alto"       "Controlado" "Controlado" "Alto"      
## [21] "Controlado" "Controlado" "Alto"       "Alto"       "Controlado"
## [26] "Controlado" "Controlado" "Alto"       "Alto"       "Alto"      
## [31] "Controlado"
summary(contagios)
##    Length     Class      Mode 
##        31 character character

Paso 2: Colocamos los datos en una tabla, y calculamos las frecuencias absolutas, relativas y los porcentajes

Para las frecuencias absolutas

table(contagios)
## contagios
##       Alto       Bajo Controlado    Extremo 
##         11          4         15          1

Para las frecuencias relativas

mytable<-table(contagios)
mytable/margin.table(mytable)
## contagios
##       Alto       Bajo Controlado    Extremo 
## 0.35483871 0.12903226 0.48387097 0.03225806

Para las frecuencias relativas acumuladas

cumsum(mytable)
##       Alto       Bajo Controlado    Extremo 
##         11         15         30         31
cumsum(mytable)/margin.table(mytable)
##       Alto       Bajo Controlado    Extremo 
##  0.3548387  0.4838710  0.9677419  1.0000000

Para los porcentajes de las categorias

mytable*100/margin.table(mytable)
## contagios
##       Alto       Bajo Controlado    Extremo 
##  35.483871  12.903226  48.387097   3.225806

Paso 3: Realizamos los graficos de barras y graficos de pie

barplot(table(contagios))

pie(table(contagios))