setwd("C:/CECILIA/CECILIA/CURSO ESTADÍSTICA")
library(tidyverse)
── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
✔ dplyr 1.1.4 ✔ readr 2.1.5
✔ forcats 1.0.1 ✔ stringr 1.5.2
✔ ggplot2 4.0.0 ✔ tibble 3.3.0
✔ lubridate 1.9.4 ✔ tidyr 1.3.1
✔ purrr 1.1.0
── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag() masks stats::lag()
ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
[1] "~$agricola-1.xlsx" "agricola-1.csv" "agricola-1.xlsx"
[4] "SESION 1.qmd" "Trabajo1.qmd" "Trabajo1.rmarkdown"
fertirriego <- read_excel("agricola-1.xlsx" )
##TABLA DE FRECUENCIAS DATOS CUALITATIVOS
fertirriego|>count(Tipo_Suelo)|>mutate(hi=n/sum(n),
pi=100*(hi))
# A tibble: 3 × 4
Tipo_Suelo n hi pi
<chr> <int> <dbl> <dbl>
1 Arcilloso 425 0.354 35.4
2 Arenoso 398 0.332 33.2
3 Mixto 377 0.314 31.4
fertirriego|>count(Tipo_Irrigacion)|>mutate(hi=n/sum(n),
pi=100*(hi))
# A tibble: 3 × 4
Tipo_Irrigacion n hi pi
<chr> <int> <dbl> <dbl>
1 Aspersión 397 0.331 33.1
2 Goteo 386 0.322 32.2
3 Gravedad 417 0.348 34.8
##TABLA DE FRECUENCIAS DATOS CUANTITATIVOS DISCRETO
fertirriego|>count(Temperatura)|>mutate(hi=n/sum(n),
pi=100*(hi),
Fi = cumsum(n),
Hi = cumsum(hi))
# A tibble: 20 × 6
Temperatura n hi pi Fi Hi
<dbl> <int> <dbl> <dbl> <int> <dbl>
1 15 55 0.0458 4.58 55 0.0458
2 16 54 0.045 4.5 109 0.0908
3 17 68 0.0567 5.67 177 0.148
4 18 74 0.0617 6.17 251 0.209
5 19 48 0.04 4 299 0.249
6 20 55 0.0458 4.58 354 0.295
7 21 63 0.0525 5.25 417 0.348
8 22 63 0.0525 5.25 480 0.4
9 23 75 0.0625 6.25 555 0.462
10 24 66 0.055 5.5 621 0.518
11 25 50 0.0417 4.17 671 0.559
12 26 64 0.0533 5.33 735 0.612
13 27 59 0.0492 4.92 794 0.662
14 28 58 0.0483 4.83 852 0.71
15 29 38 0.0317 3.17 890 0.742
16 30 64 0.0533 5.33 954 0.795
17 31 70 0.0583 5.83 1024 0.853
18 32 54 0.045 4.5 1078 0.898
19 33 69 0.0575 5.75 1147 0.956
20 34 53 0.0442 4.42 1200 1
fertirriego|>count(Humedad)|>mutate(hi=n/sum(n),
pi=100*(hi),
Fi = cumsum(n),
Hi = cumsum(hi))
# A tibble: 50 × 6
Humedad n hi pi Fi Hi
<dbl> <int> <dbl> <dbl> <int> <dbl>
1 40 26 0.0217 2.17 26 0.0217
2 41 20 0.0167 1.67 46 0.0383
3 42 21 0.0175 1.75 67 0.0558
4 43 25 0.0208 2.08 92 0.0767
5 44 22 0.0183 1.83 114 0.095
6 45 24 0.02 2 138 0.115
7 46 26 0.0217 2.17 164 0.137
8 47 22 0.0183 1.83 186 0.155
9 48 25 0.0208 2.08 211 0.176
10 49 20 0.0167 1.67 231 0.192
# ℹ 40 more rows