datos <- c(38, 15, 10, 12, 62, 46, 25, 56, 27, 24, 23, 21,
20, 25, 38, 27, 48, 35, 50, 65, 59, 58, 47, 42, 37, 35,
32, 40, 28, 14, 12, 24, 66, 73, 72, 70, 68, 65, 54, 48,
34, 33, 21, 19, 61, 59, 47, 46, 30, 30)
datos
## [1] 38 15 10 12 62 46 25 56 27 24 23 21 20 25 38 27 48 35 50 65 59 58 47 42 37
## [26] 35 32 40 28 14 12 24 66 73 72 70 68 65 54 48 34 33 21 19 61 59 47 46 30 30
library(summarytools)
## Warning in fun(libname, pkgname): couldn't connect to display ":0"
## system might not have X11 capabilities; in case of errors when using dfSummary(), set st_options(use.x11 = FALSE)
datos <- freq(datos)
datos
## Frequencies
## datos
## Type: Numeric
##
## Freq % Valid % Valid Cum. % Total % Total Cum.
## ----------- ------ --------- -------------- --------- --------------
## 10 1 2.00 2.00 2.00 2.00
## 12 2 4.00 6.00 4.00 6.00
## 14 1 2.00 8.00 2.00 8.00
## 15 1 2.00 10.00 2.00 10.00
## 19 1 2.00 12.00 2.00 12.00
## 20 1 2.00 14.00 2.00 14.00
## 21 2 4.00 18.00 4.00 18.00
## 23 1 2.00 20.00 2.00 20.00
## 24 2 4.00 24.00 4.00 24.00
## 25 2 4.00 28.00 4.00 28.00
## 27 2 4.00 32.00 4.00 32.00
## 28 1 2.00 34.00 2.00 34.00
## 30 2 4.00 38.00 4.00 38.00
## 32 1 2.00 40.00 2.00 40.00
## 33 1 2.00 42.00 2.00 42.00
## 34 1 2.00 44.00 2.00 44.00
## 35 2 4.00 48.00 4.00 48.00
## 37 1 2.00 50.00 2.00 50.00
## 38 2 4.00 54.00 4.00 54.00
## 40 1 2.00 56.00 2.00 56.00
## 42 1 2.00 58.00 2.00 58.00
## 46 2 4.00 62.00 4.00 62.00
## 47 2 4.00 66.00 4.00 66.00
## 48 2 4.00 70.00 4.00 70.00
## 50 1 2.00 72.00 2.00 72.00
## 54 1 2.00 74.00 2.00 74.00
## 56 1 2.00 76.00 2.00 76.00
## 58 1 2.00 78.00 2.00 78.00
## 59 2 4.00 82.00 4.00 82.00
## 61 1 2.00 84.00 2.00 84.00
## 62 1 2.00 86.00 2.00 86.00
## 65 2 4.00 90.00 4.00 90.00
## 66 1 2.00 92.00 2.00 92.00
## 68 1 2.00 94.00 2.00 94.00
## 70 1 2.00 96.00 2.00 96.00
## 72 1 2.00 98.00 2.00 98.00
## 73 1 2.00 100.00 2.00 100.00
## <NA> 0 0.00 100.00
## Total 50 100.00 100.00 100.00 100.00
summary(datos)
## Freq % Valid % Valid Cum. % Total
## Min. : 0.000 Min. : 2.000 Min. : 2.00 Min. : 0.000
## 1st Qu.: 1.000 1st Qu.: 2.000 1st Qu.: 29.00 1st Qu.: 2.000
## Median : 1.000 Median : 2.000 Median : 55.00 Median : 2.000
## Mean : 2.564 Mean : 5.263 Mean : 54.16 Mean : 5.128
## 3rd Qu.: 2.000 3rd Qu.: 4.000 3rd Qu.: 81.00 3rd Qu.: 4.000
## Max. :50.000 Max. :100.000 Max. :100.00 Max. :100.000
## NAs :1 NAs :1
## % Total Cum.
## Min. : 2.00
## 1st Qu.: 30.00
## Median : 56.00
## Mean : 55.33
## 3rd Qu.: 83.00
## Max. :100.00
##
boxplot(datos, notch = FALSE, horizontal = TRUE, col = rainbow(3))
install.packages("agricolae")
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.6'
## (as 'lib' is unspecified)
library(agricolae)
h <- graph.freq(datos, col = colors()[75])
