Análisis Estadístico DEVICE
Grupo 3
CARGA DE DATOS Y LIBRERÍAS
# Cargar librerías
library(moments)
# Cargar datos
datos<- read.csv("~/UNI/estadistica/2026/dataset_geologico_limpio_80.csv")
cat(" Dimensiones:", nrow(datos), "observaciones:", ncol(datos), "variables\n\n")## Dimensiones: 27784 observaciones: 58 variables# Extraer variable
dispM_raw <- datos$DEVICE
print("Primeros valores de DEVICE:")## [1] "Primeros valores de DEVICE:"print(head(dispM_raw))## [1] "DIGBY DREDGE" "1 METER PLANKTON NET" "DIGBY DREDGE"
## [4] "DIGBY DREDGE" "DIGBY DREDGE" "DIGBY DREDGE"dispM <- na.omit(dispM_raw)
summary(dispM)## Length Class Mode
## 27783 character charactern <- length(dispM)
print(paste("Número de observaciones válidas (n):", n))## [1] "Número de observaciones válidas (n): 27783"# CARGA DE LIBRERÍAS
library(gt)
library(dplyr)##
## Adjuntando el paquete: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, unionlibrary(knitr)
library(e1071)##
## Adjuntando el paquete: 'e1071'## The following objects are masked from 'package:moments':
##
## kurtosis, moment, skewnesslibrary(moments)TABLA DE DISTRIBUCIÓN DE FRECUENCIA
Tabla de Distribucion de Frecuencia Simple
# Numero de datos
n <- length(dispM)
# Frecuencia absoluta
ni <- table(dispM)
# Frecuencia relativa (%)
hi <- prop.table(ni) * 100
# Frecuencia acumulada
Ni_asc <- cumsum(ni)
Hi_asc <- cumsum(hi)
Ni_desc <- rev(cumsum(rev(ni)))
Hi_desc <- rev(cumsum(rev(hi)))# Crear tabla
TablaFrecuencias_DEVICE <- data.frame(
Device = names(ni),
ni = as.numeric(ni),
hi = round(as.numeric(hi),2),
Ni_asc = as.numeric(Ni_asc),
Hi_asc = round(as.numeric(Hi_asc),2),
Ni_desc = as.numeric(Ni_desc),
Hi_desc = round(as.numeric(Hi_desc),2)
)
# Agregar fila TOTAL
TablaFrecuencias_DEVICE[nrow(TablaFrecuencias_DEVICE) + 1, ] <-
c("TOTAL", sum(ni), 100, NA, NA, NA, NA)
TablaFrecuencias_DEVICE## Device ni hi Ni_asc
## 1 297 1.07 297
## 2 1-METER DREDGE 58 0.21 355
## 3 1 METER PLANKTON NET 2 0.01 357
## 4 3/4 METER PLANKTON NET 26 0.09 383
## 5 35MM STEREO CAMERA+DREDG 1 0 384
## 6 ANCHOR DREDGE 19 0.07 403
## 7 ANCHOR FLUKES 1 0 404
## 8 ANCHOR SAMPLE 1 0 405
## 9 BIG SEABOSS GRAB 302 1.09 707
## 10 BLAKE TRAWL 1 0 708
## 11 BOOMERANG CORER 15 0.05 723
## 12 BOT DRIFTER SALINOMETER 2 0.01 725
## 13 BOTTOM DRIFTER 1 0 726
## 14 BOTTOM DRIFTER BUG 2 0.01 728
## 15 BOTTOM SKIMMER 5 0.02 733
## 16 BOX CORE 262 0.94 995
## 17 BOX SAMPLER 3 0.01 998
## 18 CAM GRAB W/O CAM+PLANK T 2 0.01 1000
## 19 CAMERA SLED 10 0.04 1010
## 20 CAMPBELL GRAB W/ CAMERA 544 1.96 1554
## 21 CAMPBELL GRAB W/O CAMERA 522 1.88 2076
## 22 CHAIN BAG 2 0.01 2078
## 23 CHAIN BAG DREDGE 238 0.86 2316
## 24 CHAIN BAG+PIPE DREDGE 45 0.16 2361
## 25 CHAIN BAG+SM PIPE DREDGE 63 0.23 2424
## 26 CHAIN DREDGE 5 0.02 2429
## 27 CORING TUBE IN MECH ARM 1 0 2430
## 28 Craib 100 0.36 2530
## 29 CRAIB CORER 125 0.45 2655
## 30 D-L SNAPPER 1 0 2656
## 31 D-L SNAPPER + DREDGE 1 0 2657
## 32 D-L SNAPPER + GRAV COR 4 0.01 2661
## 33 DIETZ-LAFOND 7 0.03 2668
## 34 DIETZ-LAFOND GRAB 10 0.04 2678
## 35 DIETZ-LAFOND SNAPPER 242 0.87 2920
## 36 DIGBY DREDGE 26 0.09 2946
## 37 DIGBY DREDGE W/ CNVS BAG 2 0.01 2948
## 38 DIVER 5 0.02 2953
## 39 DIVER GRABS 44 0.16 2997
## 40 DIVER PUSH CORE 12 0.04 3009
## 41 diver, hand 27 0.1 3036
## 42 DIVERS, BY HAND 2 0.01 3038
## 43 DRAG DREDGE 1 0 3039
## 44 DREDGE 5 0.02 3044
## 45 DRILL CORE 9 0.03 3053
## 46 DRILL RIG 1 0 3054
## 47 DRILLED CORE 20 0.07 3074
## 48 Drilled Sample 20 0.07 3094
## 49 DRILLED SAMPLE 455 1.64 3549
## 50 EDGERTON CAMERA 11 0.04 3560
## 51 EPA VANVEEN 74 0.27 3634
## 52 GOS ANCHOR CHAIN 1 0 3635
## 53 Grab 24 0.09 3659
## 54 GRAB 181 0.65 3840
## 55 GRAB SAMPLER 967 3.48 4807
## 56 GRAPPLING HOOK 1 0 4808
## 57 Gravity Core 12 0.04 4820
## 58 GRAVITY CORE 82 0.3 4902
## 59 GRAVITY CORER 1302 4.69 6204
## 60 hand 34 0.12 6238
## 61 Hand Sample 76 0.27 6314
## 62 HAND SAMPLE 320 1.15 6634
## 63 HYDROSTATIC CORE 192 0.69 6826
## 64 Hydrostatic CORER 10 0.04 6836
## 65 HYDROSTATIC CORER 1999 7.2 8835
## 66 IKU GRAB 2 0.01 8837
## 67 InterOcean SEABOSS (Osprey Config) 350 1.26 9187
## 68 JAPANESE DREDGE 3 0.01 9190
## 69 M-VV GRAB + D-LF SNAPPER 7 0.03 9197
## 70 M-VV GRAB + GRAVITY CORE 2 0.01 9199
## 71 MECH ARM + CORE DRILL 1 0 9200
## 72 MECH ARM W/ CORER 8 0.03 9208
## 73 MECH ARM W/ PRY BAR 6 0.02 9214
## 74 MECHANICAL ARM 28 0.1 9242
## 75 metal scoop 3 0.01 9245
## 76 METAL SCOOP 15 0.05 9260
## 77 MicroSEABOSS (a.k.a SEABOSSpro, a.k.a. GoProSEABOSS) 87 0.31 9347
## 78 MID-SIZED SEABOSS GRAB 66 0.24 9413
## 79 MINI-SEABOSS 41 0.15 9454
## 80 MINI SEABOSS 342 1.23 9796
## 81 MINIATURE VAN VEEN 69 0.25 9865
## 82 MINIATURE VAN VEEN W/O C. 1 0 9866
## 83 MODIFIED PIERCE DREDGE 21 0.08 9887
## 84 NATURALIST DREDGE 233 0.84 10120
## 85 NISKIN SAMPLER 1 0 10121
## 86 OTHER 453 1.63 10574
## 87 PAUL CORER 1 0 10575
## 88 PIPE DREDGE 158 0.57 10733
## 89 PIPE DREDGE AND D-L SNAP 1 0 10734
## 90 PIPE DREDGE, 12 INCH 19 0.07 10753
## 91 PISTON CORE 130 0.47 10883
## 92 PISTON CORER 1238 4.46 12121
## 93 PISTON SAMPLER (HYDRAULIC) 1 0 12122
## 94 PONAR GRAB 6 0.02 12128
## 95 PONAR SAMPLER 74 0.27 12202
## 96 Pulse Auger 84 0.3 12286
## 97 PULSE AUGER 80 0.29 12366
## 98 PUSH CORER 11 0.04 12377
## 99 RAKED INTO BASKET W/ ARM 1 0 12378
## 100 RING NET 42 0.15 12420
## 101 ROCK DREDGE 4 0.01 12424
## 102 ROCKER DREDGE 5 0.02 12429
## 103 ROTARY CORER 20 0.07 12449
## 104 ROTOSONIC CORE 218 0.78 12667
## 105 ROTOSONIC CORER 242 0.87 12909
## 106 ROV PUSH CORE 35 0.13 12944
## 107 SALINOMETER,VANDORN BOTS 1 0 12945
## 108 SCALLOP DREDGE 66 0.24 13011
## 109 scoop 6 0.02 13017
## 110 SCOOP FISH 4 0.01 13021
## 111 SEABOSS 127 0.46 13148
## 112 SEABOSS (BIG) 246 0.89 13394
## 113 SEDIMENT TRAP 572 2.06 13966
## 114 SHIPEK GRAB 581 2.09 14547
## 115 SLOW CORE 5 0.02 14552
## 116 SMALL SEABOSS GRAB 311 1.12 14863
## 117 SMALL VAN VEEN 10 0.04 14873
## 118 SMITH-MAC+MIN VV, CAMERA 1 0 14874
## 119 SMITH-MACINTYRE GRAB 244 0.88 15118
## 120 SMITH-MACINTYRE W/ CAMERA 104 0.37 15222
## 121 SMITH-MACINTYRE W/O CAMERA 367 1.32 15589
## 122 SMITH/MAC AND NISKIN SPL 2 0.01 15591
## 123 SUBMERSIBLE ARM GRAB 496 1.79 16087
## 124 Submersible Sample 17 0.06 16104
## 125 SUBMERSIBLE SAMPLE 176 0.63 16280
## 126 TEFLON SHOVEL 14 0.05 16294
## 127 TRAWL 3 0.01 16297
## 128 TRIGGER CORE 7 0.03 16304
## 129 TROWEL 14 0.05 16318
## 130 UNKNOWN 274 0.99 16592
## 131 USGS Slow Corer 20 0.07 16612
## 132 VAN VEEN AND CORE 5 0.02 16617
## 133 Van Veen grab 7 0.03 16624
## 134 Van Veen Grab 1308 4.71 17932
## 135 VAN VEEN GRAB 7835 28.2 25767
## 136 VANVEEN 6 0.02 25773
## 137 Vibracore 15 0.05 25788
## 138 VIBRACORE 1657 5.96 27445
## 139 VIBRACORER 38 0.14 27483
## 140 VISUAL OBSERVATION 87 0.31 27570
## 141 VV GRAB + D-L SNAPPER 14 0.05 27584
## 142 WATER PUMP ONLY 1 0 27585
## 143 WHOI GIANT GRAVITY CORER 198 0.71 27783
## 144 TOTAL 27783 100 <NA>
## Hi_asc Ni_desc Hi_desc
## 1 1.07 27783 100
## 2 1.28 27486 98.93
## 3 1.28 27428 98.72
## 4 1.38 27426 98.72
## 5 1.38 27400 98.62
## 6 1.45 27399 98.62
## 7 1.45 27380 98.55
## 8 1.46 27379 98.55
## 9 2.54 27378 98.54
## 10 2.55 27076 97.46
## 11 2.6 27075 97.45
## 12 2.61 27060 97.4
## 13 2.61 27058 97.39
## 14 2.62 27057 97.39
## 15 2.64 27055 97.38
## 16 3.58 27050 97.36
## 17 3.59 26788 96.42
## 18 3.6 26785 96.41
## 19 3.64 26783 96.4
## 20 5.59 26773 96.36
## 21 7.47 26229 94.41
## 22 7.48 25707 92.53
## 23 8.34 25705 92.52
## 24 8.5 25467 91.66
## 25 8.72 25422 91.5
## 26 8.74 25359 91.28
## 27 8.75 25354 91.26
## 28 9.11 25353 91.25
## 29 9.56 25253 90.89
## 30 9.56 25128 90.44
## 31 9.56 25127 90.44
## 32 9.58 25126 90.44
## 33 9.6 25122 90.42
## 34 9.64 25115 90.4
## 35 10.51 25105 90.36
## 36 10.6 24863 89.49
## 37 10.61 24837 89.4
## 38 10.63 24835 89.39
## 39 10.79 24830 89.37
## 40 10.83 24786 89.21
## 41 10.93 24774 89.17
## 42 10.93 24747 89.07
## 43 10.94 24745 89.07
## 44 10.96 24744 89.06
## 45 10.99 24739 89.04
## 46 10.99 24730 89.01
## 47 11.06 24729 89.01
## 48 11.14 24709 88.94
## 49 12.77 24689 88.86
## 50 12.81 24234 87.23
## 51 13.08 24223 87.19
## 52 13.08 24149 86.92
## 53 13.17 24148 86.92
## 54 13.82 24124 86.83
## 55 17.3 23943 86.18
## 56 17.31 22976 82.7
## 57 17.35 22975 82.69
## 58 17.64 22963 82.65
## 59 22.33 22881 82.36
## 60 22.45 21579 77.67
## 61 22.73 21545 77.55
## 62 23.88 21469 77.27
## 63 24.57 21149 76.12
## 64 24.6 20957 75.43
## 65 31.8 20947 75.4
## 66 31.81 18948 68.2
## 67 33.07 18946 68.19
## 68 33.08 18596 66.93
## 69 33.1 18593 66.92
## 70 33.11 18586 66.9
## 71 33.11 18584 66.89
## 72 33.14 18583 66.89
## 73 33.16 18575 66.86
## 74 33.26 18569 66.84
## 75 33.28 18541 66.74
## 76 33.33 18538 66.72
## 77 33.64 18523 66.67
## 78 33.88 18436 66.36
## 79 34.03 18370 66.12
## 80 35.26 18329 65.97
## 81 35.51 17987 64.74
## 82 35.51 17918 64.49
## 83 35.59 17917 64.49
## 84 36.43 17896 64.41
## 85 36.43 17663 63.57
## 86 38.06 17662 63.57
## 87 38.06 17209 61.94
## 88 38.63 17208 61.94
## 89 38.64 17050 61.37
## 90 38.7 17049 61.36
## 91 39.17 17030 61.3
## 92 43.63 16900 60.83
## 93 43.63 15662 56.37
## 94 43.65 15661 56.37
## 95 43.92 15655 56.35
## 96 44.22 15581 56.08
## 97 44.51 15497 55.78
## 98 44.55 15417 55.49
## 99 44.55 15406 55.45
## 100 44.7 15405 55.45
## 101 44.72 15363 55.3
## 102 44.74 15359 55.28
## 103 44.81 15354 55.26
## 104 45.59 15334 55.19
## 105 46.46 15116 54.41
## 106 46.59 14874 53.54
## 107 46.59 14839 53.41
## 108 46.83 14838 53.41
## 109 46.85 14772 53.17
## 110 46.87 14766 53.15
## 111 47.32 14762 53.13
## 112 48.21 14635 52.68
## 113 50.27 14389 51.79
## 114 52.36 13817 49.73
## 115 52.38 13236 47.64
## 116 53.5 13231 47.62
## 117 53.53 12920 46.5
## 118 53.54 12910 46.47
## 119 54.41 12909 46.46
## 120 54.79 12665 45.59
## 121 56.11 12561 45.21
## 122 56.12 12194 43.89
## 123 57.9 12192 43.88
## 124 57.96 11696 42.1
## 125 58.6 11679 42.04
## 126 58.65 11503 41.4
## 127 58.66 11489 41.35
## 128 58.68 11486 41.34
## 129 58.73 11479 41.32
## 130 59.72 11465 41.27
## 131 59.79 11191 40.28
## 132 59.81 11171 40.21
## 133 59.84 11166 40.19
## 134 64.54 11159 40.16
## 135 92.74 9851 35.46
## 136 92.77 2016 7.26
## 137 92.82 2010 7.23
## 138 98.78 1995 7.18
## 139 98.92 338 1.22
## 140 99.23 300 1.08
## 141 99.28 213 0.77
## 142 99.29 199 0.72
## 143 100 198 0.71
## 144 <NA> <NA> <NA># Tabla mejorada
TablaFrecuencias_DEVICE %>%
gt() %>%
tab_header(
title = md("**Tabla Nº1**"),
subtitle = md("Distribución de frecuencias de la variable DEVICE en depósitos marinos")
) %>%
tab_source_note(
source_note = md("Autor: Grupo 3")
) %>%
cols_label(
Device = "Categoría",
ni = "Frecuencia (ni)",
hi = "Porcentaje (%)",
Ni_asc = "Ni Asc",
Hi_asc = "Hi Asc (%)",
Ni_desc = "Ni Desc",
Hi_desc = "Hi Desc (%)"
)| Tabla Nº1 | ||||||
| Distribución de frecuencias de la variable DEVICE en depósitos marinos | ||||||
| Categoría | Frecuencia (ni) | Porcentaje (%) | Ni Asc | Hi Asc (%) | Ni Desc | Hi Desc (%) |
|---|---|---|---|---|---|---|
| 297 | 1.07 | 297 | 1.07 | 27783 | 100 | |
| 1-METER DREDGE | 58 | 0.21 | 355 | 1.28 | 27486 | 98.93 |
| 1 METER PLANKTON NET | 2 | 0.01 | 357 | 1.28 | 27428 | 98.72 |
| 3/4 METER PLANKTON NET | 26 | 0.09 | 383 | 1.38 | 27426 | 98.72 |
| 35MM STEREO CAMERA+DREDG | 1 | 0 | 384 | 1.38 | 27400 | 98.62 |
| ANCHOR DREDGE | 19 | 0.07 | 403 | 1.45 | 27399 | 98.62 |
| ANCHOR FLUKES | 1 | 0 | 404 | 1.45 | 27380 | 98.55 |
| ANCHOR SAMPLE | 1 | 0 | 405 | 1.46 | 27379 | 98.55 |
| BIG SEABOSS GRAB | 302 | 1.09 | 707 | 2.54 | 27378 | 98.54 |
| BLAKE TRAWL | 1 | 0 | 708 | 2.55 | 27076 | 97.46 |
| BOOMERANG CORER | 15 | 0.05 | 723 | 2.6 | 27075 | 97.45 |
| BOT DRIFTER SALINOMETER | 2 | 0.01 | 725 | 2.61 | 27060 | 97.4 |
| BOTTOM DRIFTER | 1 | 0 | 726 | 2.61 | 27058 | 97.39 |
| BOTTOM DRIFTER BUG | 2 | 0.01 | 728 | 2.62 | 27057 | 97.39 |
| BOTTOM SKIMMER | 5 | 0.02 | 733 | 2.64 | 27055 | 97.38 |
| BOX CORE | 262 | 0.94 | 995 | 3.58 | 27050 | 97.36 |
| BOX SAMPLER | 3 | 0.01 | 998 | 3.59 | 26788 | 96.42 |
| CAM GRAB W/O CAM+PLANK T | 2 | 0.01 | 1000 | 3.6 | 26785 | 96.41 |
| CAMERA SLED | 10 | 0.04 | 1010 | 3.64 | 26783 | 96.4 |
| CAMPBELL GRAB W/ CAMERA | 544 | 1.96 | 1554 | 5.59 | 26773 | 96.36 |
| CAMPBELL GRAB W/O CAMERA | 522 | 1.88 | 2076 | 7.47 | 26229 | 94.41 |
| CHAIN BAG | 2 | 0.01 | 2078 | 7.48 | 25707 | 92.53 |
| CHAIN BAG DREDGE | 238 | 0.86 | 2316 | 8.34 | 25705 | 92.52 |
| CHAIN BAG+PIPE DREDGE | 45 | 0.16 | 2361 | 8.5 | 25467 | 91.66 |
| CHAIN BAG+SM PIPE DREDGE | 63 | 0.23 | 2424 | 8.72 | 25422 | 91.5 |
| CHAIN DREDGE | 5 | 0.02 | 2429 | 8.74 | 25359 | 91.28 |
| CORING TUBE IN MECH ARM | 1 | 0 | 2430 | 8.75 | 25354 | 91.26 |
| Craib | 100 | 0.36 | 2530 | 9.11 | 25353 | 91.25 |
| CRAIB CORER | 125 | 0.45 | 2655 | 9.56 | 25253 | 90.89 |
| D-L SNAPPER | 1 | 0 | 2656 | 9.56 | 25128 | 90.44 |
| D-L SNAPPER + DREDGE | 1 | 0 | 2657 | 9.56 | 25127 | 90.44 |
| D-L SNAPPER + GRAV COR | 4 | 0.01 | 2661 | 9.58 | 25126 | 90.44 |
| DIETZ-LAFOND | 7 | 0.03 | 2668 | 9.6 | 25122 | 90.42 |
| DIETZ-LAFOND GRAB | 10 | 0.04 | 2678 | 9.64 | 25115 | 90.4 |
| DIETZ-LAFOND SNAPPER | 242 | 0.87 | 2920 | 10.51 | 25105 | 90.36 |
| DIGBY DREDGE | 26 | 0.09 | 2946 | 10.6 | 24863 | 89.49 |
| DIGBY DREDGE W/ CNVS BAG | 2 | 0.01 | 2948 | 10.61 | 24837 | 89.4 |
| DIVER | 5 | 0.02 | 2953 | 10.63 | 24835 | 89.39 |
| DIVER GRABS | 44 | 0.16 | 2997 | 10.79 | 24830 | 89.37 |
| DIVER PUSH CORE | 12 | 0.04 | 3009 | 10.83 | 24786 | 89.21 |
| diver, hand | 27 | 0.1 | 3036 | 10.93 | 24774 | 89.17 |
| DIVERS, BY HAND | 2 | 0.01 | 3038 | 10.93 | 24747 | 89.07 |
| DRAG DREDGE | 1 | 0 | 3039 | 10.94 | 24745 | 89.07 |
| DREDGE | 5 | 0.02 | 3044 | 10.96 | 24744 | 89.06 |
| DRILL CORE | 9 | 0.03 | 3053 | 10.99 | 24739 | 89.04 |
| DRILL RIG | 1 | 0 | 3054 | 10.99 | 24730 | 89.01 |
| DRILLED CORE | 20 | 0.07 | 3074 | 11.06 | 24729 | 89.01 |
| Drilled Sample | 20 | 0.07 | 3094 | 11.14 | 24709 | 88.94 |
| DRILLED SAMPLE | 455 | 1.64 | 3549 | 12.77 | 24689 | 88.86 |
| EDGERTON CAMERA | 11 | 0.04 | 3560 | 12.81 | 24234 | 87.23 |
| EPA VANVEEN | 74 | 0.27 | 3634 | 13.08 | 24223 | 87.19 |
| GOS ANCHOR CHAIN | 1 | 0 | 3635 | 13.08 | 24149 | 86.92 |
| Grab | 24 | 0.09 | 3659 | 13.17 | 24148 | 86.92 |
| GRAB | 181 | 0.65 | 3840 | 13.82 | 24124 | 86.83 |
| GRAB SAMPLER | 967 | 3.48 | 4807 | 17.3 | 23943 | 86.18 |
| GRAPPLING HOOK | 1 | 0 | 4808 | 17.31 | 22976 | 82.7 |
| Gravity Core | 12 | 0.04 | 4820 | 17.35 | 22975 | 82.69 |
| GRAVITY CORE | 82 | 0.3 | 4902 | 17.64 | 22963 | 82.65 |
| GRAVITY CORER | 1302 | 4.69 | 6204 | 22.33 | 22881 | 82.36 |
| hand | 34 | 0.12 | 6238 | 22.45 | 21579 | 77.67 |
| Hand Sample | 76 | 0.27 | 6314 | 22.73 | 21545 | 77.55 |
| HAND SAMPLE | 320 | 1.15 | 6634 | 23.88 | 21469 | 77.27 |
| HYDROSTATIC CORE | 192 | 0.69 | 6826 | 24.57 | 21149 | 76.12 |
| Hydrostatic CORER | 10 | 0.04 | 6836 | 24.6 | 20957 | 75.43 |
| HYDROSTATIC CORER | 1999 | 7.2 | 8835 | 31.8 | 20947 | 75.4 |
| IKU GRAB | 2 | 0.01 | 8837 | 31.81 | 18948 | 68.2 |
| InterOcean SEABOSS (Osprey Config) | 350 | 1.26 | 9187 | 33.07 | 18946 | 68.19 |
| JAPANESE DREDGE | 3 | 0.01 | 9190 | 33.08 | 18596 | 66.93 |
| M-VV GRAB + D-LF SNAPPER | 7 | 0.03 | 9197 | 33.1 | 18593 | 66.92 |
| M-VV GRAB + GRAVITY CORE | 2 | 0.01 | 9199 | 33.11 | 18586 | 66.9 |
| MECH ARM + CORE DRILL | 1 | 0 | 9200 | 33.11 | 18584 | 66.89 |
| MECH ARM W/ CORER | 8 | 0.03 | 9208 | 33.14 | 18583 | 66.89 |
| MECH ARM W/ PRY BAR | 6 | 0.02 | 9214 | 33.16 | 18575 | 66.86 |
| MECHANICAL ARM | 28 | 0.1 | 9242 | 33.26 | 18569 | 66.84 |
| metal scoop | 3 | 0.01 | 9245 | 33.28 | 18541 | 66.74 |
| METAL SCOOP | 15 | 0.05 | 9260 | 33.33 | 18538 | 66.72 |
| MicroSEABOSS (a.k.a SEABOSSpro, a.k.a. GoProSEABOSS) | 87 | 0.31 | 9347 | 33.64 | 18523 | 66.67 |
| MID-SIZED SEABOSS GRAB | 66 | 0.24 | 9413 | 33.88 | 18436 | 66.36 |
| MINI-SEABOSS | 41 | 0.15 | 9454 | 34.03 | 18370 | 66.12 |
| MINI SEABOSS | 342 | 1.23 | 9796 | 35.26 | 18329 | 65.97 |
| MINIATURE VAN VEEN | 69 | 0.25 | 9865 | 35.51 | 17987 | 64.74 |
| MINIATURE VAN VEEN W/O C. | 1 | 0 | 9866 | 35.51 | 17918 | 64.49 |
| MODIFIED PIERCE DREDGE | 21 | 0.08 | 9887 | 35.59 | 17917 | 64.49 |
| NATURALIST DREDGE | 233 | 0.84 | 10120 | 36.43 | 17896 | 64.41 |
| NISKIN SAMPLER | 1 | 0 | 10121 | 36.43 | 17663 | 63.57 |
| OTHER | 453 | 1.63 | 10574 | 38.06 | 17662 | 63.57 |
| PAUL CORER | 1 | 0 | 10575 | 38.06 | 17209 | 61.94 |
| PIPE DREDGE | 158 | 0.57 | 10733 | 38.63 | 17208 | 61.94 |
| PIPE DREDGE AND D-L SNAP | 1 | 0 | 10734 | 38.64 | 17050 | 61.37 |
| PIPE DREDGE, 12 INCH | 19 | 0.07 | 10753 | 38.7 | 17049 | 61.36 |
| PISTON CORE | 130 | 0.47 | 10883 | 39.17 | 17030 | 61.3 |
| PISTON CORER | 1238 | 4.46 | 12121 | 43.63 | 16900 | 60.83 |
| PISTON SAMPLER (HYDRAULIC) | 1 | 0 | 12122 | 43.63 | 15662 | 56.37 |
| PONAR GRAB | 6 | 0.02 | 12128 | 43.65 | 15661 | 56.37 |
| PONAR SAMPLER | 74 | 0.27 | 12202 | 43.92 | 15655 | 56.35 |
| Pulse Auger | 84 | 0.3 | 12286 | 44.22 | 15581 | 56.08 |
| PULSE AUGER | 80 | 0.29 | 12366 | 44.51 | 15497 | 55.78 |
| PUSH CORER | 11 | 0.04 | 12377 | 44.55 | 15417 | 55.49 |
| RAKED INTO BASKET W/ ARM | 1 | 0 | 12378 | 44.55 | 15406 | 55.45 |
| RING NET | 42 | 0.15 | 12420 | 44.7 | 15405 | 55.45 |
| ROCK DREDGE | 4 | 0.01 | 12424 | 44.72 | 15363 | 55.3 |
| ROCKER DREDGE | 5 | 0.02 | 12429 | 44.74 | 15359 | 55.28 |
| ROTARY CORER | 20 | 0.07 | 12449 | 44.81 | 15354 | 55.26 |
| ROTOSONIC CORE | 218 | 0.78 | 12667 | 45.59 | 15334 | 55.19 |
| ROTOSONIC CORER | 242 | 0.87 | 12909 | 46.46 | 15116 | 54.41 |
| ROV PUSH CORE | 35 | 0.13 | 12944 | 46.59 | 14874 | 53.54 |
| SALINOMETER,VANDORN BOTS | 1 | 0 | 12945 | 46.59 | 14839 | 53.41 |
| SCALLOP DREDGE | 66 | 0.24 | 13011 | 46.83 | 14838 | 53.41 |
| scoop | 6 | 0.02 | 13017 | 46.85 | 14772 | 53.17 |
| SCOOP FISH | 4 | 0.01 | 13021 | 46.87 | 14766 | 53.15 |
| SEABOSS | 127 | 0.46 | 13148 | 47.32 | 14762 | 53.13 |
| SEABOSS (BIG) | 246 | 0.89 | 13394 | 48.21 | 14635 | 52.68 |
| SEDIMENT TRAP | 572 | 2.06 | 13966 | 50.27 | 14389 | 51.79 |
| SHIPEK GRAB | 581 | 2.09 | 14547 | 52.36 | 13817 | 49.73 |
| SLOW CORE | 5 | 0.02 | 14552 | 52.38 | 13236 | 47.64 |
| SMALL SEABOSS GRAB | 311 | 1.12 | 14863 | 53.5 | 13231 | 47.62 |
| SMALL VAN VEEN | 10 | 0.04 | 14873 | 53.53 | 12920 | 46.5 |
| SMITH-MAC+MIN VV, CAMERA | 1 | 0 | 14874 | 53.54 | 12910 | 46.47 |
| SMITH-MACINTYRE GRAB | 244 | 0.88 | 15118 | 54.41 | 12909 | 46.46 |
| SMITH-MACINTYRE W/ CAMERA | 104 | 0.37 | 15222 | 54.79 | 12665 | 45.59 |
| SMITH-MACINTYRE W/O CAMERA | 367 | 1.32 | 15589 | 56.11 | 12561 | 45.21 |
| SMITH/MAC AND NISKIN SPL | 2 | 0.01 | 15591 | 56.12 | 12194 | 43.89 |
| SUBMERSIBLE ARM GRAB | 496 | 1.79 | 16087 | 57.9 | 12192 | 43.88 |
| Submersible Sample | 17 | 0.06 | 16104 | 57.96 | 11696 | 42.1 |
| SUBMERSIBLE SAMPLE | 176 | 0.63 | 16280 | 58.6 | 11679 | 42.04 |
| TEFLON SHOVEL | 14 | 0.05 | 16294 | 58.65 | 11503 | 41.4 |
| TRAWL | 3 | 0.01 | 16297 | 58.66 | 11489 | 41.35 |
| TRIGGER CORE | 7 | 0.03 | 16304 | 58.68 | 11486 | 41.34 |
| TROWEL | 14 | 0.05 | 16318 | 58.73 | 11479 | 41.32 |
| UNKNOWN | 274 | 0.99 | 16592 | 59.72 | 11465 | 41.27 |
| USGS Slow Corer | 20 | 0.07 | 16612 | 59.79 | 11191 | 40.28 |
| VAN VEEN AND CORE | 5 | 0.02 | 16617 | 59.81 | 11171 | 40.21 |
| Van Veen grab | 7 | 0.03 | 16624 | 59.84 | 11166 | 40.19 |
| Van Veen Grab | 1308 | 4.71 | 17932 | 64.54 | 11159 | 40.16 |
| VAN VEEN GRAB | 7835 | 28.2 | 25767 | 92.74 | 9851 | 35.46 |
| VANVEEN | 6 | 0.02 | 25773 | 92.77 | 2016 | 7.26 |
| Vibracore | 15 | 0.05 | 25788 | 92.82 | 2010 | 7.23 |
| VIBRACORE | 1657 | 5.96 | 27445 | 98.78 | 1995 | 7.18 |
| VIBRACORER | 38 | 0.14 | 27483 | 98.92 | 338 | 1.22 |
| VISUAL OBSERVATION | 87 | 0.31 | 27570 | 99.23 | 300 | 1.08 |
| VV GRAB + D-L SNAPPER | 14 | 0.05 | 27584 | 99.28 | 213 | 0.77 |
| WATER PUMP ONLY | 1 | 0 | 27585 | 99.29 | 199 | 0.72 |
| WHOI GIANT GRAVITY CORER | 198 | 0.71 | 27783 | 100 | 198 | 0.71 |
| TOTAL | 27783 | 100 | NA | NA | NA | NA |
| Autor: Grupo 3 | ||||||
TABLA DE DISTRIBUCIÓN DE FRECUENCIA AGRUPADA
Debido a que la tabla presenta numerosos registros de paises, se decidió agruparlos por continentes
TABLA DE DISTRIBUCION DE FRECUENCIA AGRUPADA
device_grupo <- ifelse(grepl("grab|van veen|seaboss|ponar|smith|craib", dispM, ignore.case = TRUE),
"Pinzas de Sedimento",
ifelse(grepl("core|corer|vibracore|piston|gravity|rotosonic", dispM, ignore.case = TRUE),
"Extracción de Núcleos",
ifelse(grepl("dredge", dispM, ignore.case = TRUE),
"Dragado",
ifelse(grepl("net|trawl", dispM, ignore.case = TRUE),
"Redes",
ifelse(grepl("drill|auger", dispM, ignore.case = TRUE),
"Perforación",
ifelse(grepl("submersible|rov|diver", dispM, ignore.case = TRUE),
"Sumergible",
ifelse(grepl("camera|visual", dispM, ignore.case = TRUE),
"Observación / Cámara",
ifelse(grepl("hand|scoop|shovel|trowel", dispM, ignore.case = TRUE),
"Muestreo Manual",
ifelse(grepl("pump|niskin|salinometer", dispM, ignore.case = TRUE),
"Muestreo Químico",
"Otros")))))))))
ni_device <- table(device_grupo)
hi_device <- round(prop.table(ni_device)*100,2)
tabla_device <- data.frame(
Device = names(ni_device),
ni = as.numeric(ni_device),
hi = as.numeric(hi_device)
)
tabla_device[nrow(tabla_device)+1,] <-
c("TOTAL",sum(tabla_device$ni),sum(tabla_device$hi))
tabla_device## Device ni hi
## 1 Dragado 973 3.5
## 2 Extracción de Núcleos 7760 27.93
## 3 Muestreo Manual 486 1.75
## 4 Muestreo Químico 5 0.02
## 5 Observación / Cámara 109 0.39
## 6 Otros 1983 7.14
## 7 Perforación 640 2.3
## 8 Pinzas de Sedimento 15526 55.88
## 9 Redes 74 0.27
## 10 Sumergible 227 0.82
## 11 TOTAL 27783 100# Mostrar tabla con formato mejorada
tabla_device %>%
gt() %>%
tab_header(
title = md("**Tabla Nº2**"),
subtitle = md("Distribución agrupada de dispositivos de muestreo")
) %>%
tab_source_note(
source_note = md("Autor: Grupo 3")
)| Tabla Nº2 | ||
| Distribución agrupada de dispositivos de muestreo | ||
| Device | ni | hi |
|---|---|---|
| Dragado | 973 | 3.5 |
| Extracción de Núcleos | 7760 | 27.93 |
| Muestreo Manual | 486 | 1.75 |
| Muestreo Químico | 5 | 0.02 |
| Observación / Cámara | 109 | 0.39 |
| Otros | 1983 | 7.14 |
| Perforación | 640 | 2.3 |
| Pinzas de Sedimento | 15526 | 55.88 |
| Redes | 74 | 0.27 |
| Sumergible | 227 | 0.82 |
| TOTAL | 27783 | 100 |
| Autor: Grupo 3 | ||
GRÁFICAS DE DISTRIBUCIÓN DE FRECUENCIA
par(mfrow = c(1, 1))
par(mar=c(10,4,4,2))
# Quitar la fila TOTAL para gráficos
tabla_graf <- tabla_device[tabla_device$Device != "TOTAL",]
# Convertir a numérico
tabla_graf$ni <- as.numeric(tabla_graf$ni)
tabla_graf$hi <- as.numeric(tabla_graf$hi)
# DIAGRAMA DE BARRAS LOCAL - FRECUENCIAS ABSOLUTAS
barplot(tabla_graf$ni,
names.arg = tabla_graf$Device,
las = 2,
col = "lightgreen",
main = "Grafica 1: Distribución de dispositivos de medición",
xlab = "Tipo de dispositivo",
ylab = "Cantidad",
ylim = c(0,max(tabla_graf$ni)*1.4))
abline(h=0,lwd=1)
par(mfrow = c(1, 1))
par(mar=c(10,4,4,2))
# DIAGRAMA DE BARRAS GLOBAL - FRECUENCIAS ABSOLUTAS
barplot(tabla_graf$ni,
names.arg = tabla_graf$Device,
las = 2,
col = "skyblue",
main = "Grafica 2:Distribucion de Cantidad de la dispositivos de Medición
de Depòsitos Marinos",
xlab = "Tipo de dispositivo",
ylab = "Cantidad",
ylim = c(0, max(tabla_graf$ni) * 1.4))
abline(h=0,lwd=1)
par(mfrow = c(1, 1))
par(mar=c(10,4,4,2))
# DIAGRAMA DE BARRAS LOCAL - FRECUENCIAS RELATIVAS
barplot(tabla_graf$hi,
names.arg = tabla_graf$Device,
las = 2,
col = "orchid",
main = "Grafica 3: Distribucion de Cantidad en Porcentaje de Dispositivos
de Medicion de Depositos Marinos",
xlab = "Tipo de dispositivo",
ylab = "Porcentaje (%)",
ylim = c(0, max(tabla_graf$hi) * 1.4))
abline(h = 0, lwd = 1)
par(mfrow = c(1, 1))
par(mar=c(10,4,4,2))
# DIAGRAMA DE BARRAS GLOBAL - FRECUENCIAS RELATIVAS
barplot(tabla_graf$hi,
names.arg = tabla_graf$Device,
las = 2,
col = "mediumpurple",
main = "Grafica 4: Distribucion de Cantidad en Porcentaje de los Dispositivos de Medicion de Depositos Marinos",
xlab = "Tipo de dispositivo",
ylab = "Porcentaje (%)",
ylim = c(0, max(tabla_graf$hi) * 1.4))
abline(h = 0, lwd = 1)
# DIAGRAMA CIRCULAR
par(mfrow = c(1,2))
par(mar=c(2,2,4,2))
cat("Generando Diagrama Circular de Frecuencias Relativas...\n")## Generando Diagrama Circular de Frecuencias Relativas...# Colores
colores <- rainbow(length(tabla_graf$hi))
# Crear gráfico circular
pie(tabla_graf$hi,
labels = paste0(round(tabla_graf$hi,2), "%"),
radius = 0.8,
col = colores,
main = "Grafica 5: Distribucion de cantidad en porcentaje de
los dispositivos de medicion de depositos marinos",
cex.main = 0.7,
cex = 0.7
)
# Crear leyenda
plot.new()
legend("center",
legend = tabla_graf$Device,
fill = colores,
title = "Dispositivo",
cex = 0.7,
bg = "white",
box.lwd = 0.7)
INDICADORES ESTADÍSTICOS
# Cálculo de indicadores
moda <- tabla_graf$Device[which.max(tabla_graf$ni)]
TablaIndicadores <- data.frame(
Indicador="Moda",
Categoria=moda
)
TablaIndicadores## Indicador Categoria
## 1 Moda Pinzas de SedimentoTablaIndicadores %>%
gt() %>%
tab_header(
title = md("**Tabla Nº3**"),
subtitle = md("Indicador de posición de la variable DEVICE")
) %>%
tab_source_note(
source_note = md("Autor: Grupo 3")
)| Tabla Nº3 | |
| Indicador de posición de la variable DEVICE | |
| Indicador | Categoria |
|---|---|
| Moda | Pinzas de Sedimento |
| Autor: Grupo 3 | |
CONCLUSIONES
La variable DEVICE tiene como valor más frecuente el dispositivo Pinzas de sedimento. Lo cual resulta favorable para el análisis de depósitos marinos, ya que este tipo de instrumento es unode los más utilizados para la recolección directa de sedimentos del fondo marino, permitiendo obtener muestras representativas del material sedimentario presente en las zonas estudiadas