setwd("/cloud/project")
# Cargar datos
datos <- read.csv("Depositos_Sulfuro.csv", header = TRUE, sep = ";", dec = ".")
datos2 <- read.csv2("Clasificacion depage.csv", header = TRUE, sep = ";", dec = ".")
#Extraer variable
edad <- datos$depage
# Frecuencia absoluta
ni <- table(edad)
# Frecuencia relativa en %
hi <- prop.table(ni) * 100
# Tabla principal
tabla_final <- data.frame( edad = names(ni),
ni = as.numeric(ni),
hi = as.numeric(hi))
# Fila TOTAL
fila_total <- data.frame( edad = "TOTAL",
ni = sum(tabla_final$ni),
hi = sum(tabla_final$hi) )
# Unir al final
tabla_final <- rbind(tabla_final, fila_total)
# Mostrar tabla
tabla_final
## edad ni hi
## 1 Archean 114 10.45871560
## 2 Archean-Mid Proterozoic 1 0.09174312
## 3 Archean-Proterozoic 1 0.09174312
## 4 Cambrian 31 2.84403670
## 5 Cambrian-Ordovician 13 1.19266055
## 6 Cambrian-Silurian 3 0.27522936
## 7 Cambrian(?) 2 0.18348624
## 8 Carboniferous 35 3.21100917
## 9 Cretaceous 27 2.47706422
## 10 Cretaceous or Paleocene-Eocene 1 0.09174312
## 11 Cretaceous-Eocene 1 0.09174312
## 12 Devonian 27 2.47706422
## 13 Devonian-Carboniferous 6 0.55045872
## 14 Devonian-Mississippian 7 0.64220183
## 15 Devonian-Pennsylvanian 1 0.09174312
## 16 Devonian-Permian 1 0.09174312
## 17 Early Cambrian 9 0.82568807
## 18 Early Carboniferous 1 0.09174312
## 19 Early Carboniferous (Visean-Namurian?) 1 0.09174312
## 20 Early Carboniferous (Visean-Namurian) 4 0.36697248
## 21 Early Cretaceous 6 0.55045872
## 22 Early Devonian 5 0.45871560
## 23 Early Devonian (Emsian) 8 0.73394495
## 24 Early Ordovician 1 0.09174312
## 25 Early Proterozoic 1 0.09174312
## 26 Early Silurian 1 0.09174312
## 27 Early Silurian (Llandovery) 2 0.18348624
## 28 Early Silurian(Llandovery) 1 0.09174312
## 29 Early to Middle Cretaceous 1 0.09174312
## 30 Early- Middle Devonian (Emsian-Eifelian) 1 0.09174312
## 31 Early-Middle Devonian 2 0.18348624
## 32 Early-Middle Devonian (Emsian-Eifelian) 1 0.09174312
## 33 Early-Middle Devonian(Emsian-Eifelian) 1 0.09174312
## 34 Eocene 8 0.73394495
## 35 Eocene-Middle Miocene 1 0.09174312
## 36 Eocene-Pliocene 8 0.73394495
## 37 Jurassic 22 2.01834862
## 38 Jurassic or Cretaceous 1 0.09174312
## 39 Jurassic-Early Cretaceous 1 0.09174312
## 40 Jurassic-Lower Cretaceous 4 0.36697248
## 41 Late Ordovician 1 0.09174312
## 42 Late Archean 27 2.47706422
## 43 Late Cambrian-Early Ordovician 1 0.09174312
## 44 Late Carboniferous 2 0.18348624
## 45 Late Cretaceous 1 0.09174312
## 46 Late Cretaceous (Turonian) 4 0.36697248
## 47 Late Devonian 3 0.27522936
## 48 Late Devonian (Frasnian) 3 0.27522936
## 49 Late Jurassic 1 0.09174312
## 50 Late Jurassic-Lower Cretaceous 4 0.36697248
## 51 Late Ordovician 6 0.55045872
## 52 Late Permian 2 0.18348624
## 53 Late Permian-Early Triassic 1 0.09174312
## 54 Late Precambrian 1 0.09174312
## 55 Late Proterozoic 1 0.09174312
## 56 Late Silurian 1 0.09174312
## 57 Late Silurian-Early Devonian 2 0.18348624
## 58 Late Silurian-Lower Devonian 1 0.09174312
## 59 Late Triassic 1 0.09174312
## 60 Late Triassic-Late Jurassic 1 0.09174312
## 61 Late-Middle Triassic 1 0.09174312
## 62 Lower Cretaceous 14 1.28440367
## 63 Lower Devonian 1 0.09174312
## 64 Lower Devonian (407, U-Pb) 1 0.09174312
## 65 Lower Devonian (Emsian) 2 0.18348624
## 66 Lower Devonian (late Emsian) 2 0.18348624
## 67 Lower Jurassic 2 0.18348624
## 68 Lower or mid-Cretaceous 1 0.09174312
## 69 Lower Ordovician 7 0.64220183
## 70 Lower Paleocene-Upper Eocene 2 0.18348624
## 71 Lower Permian 1 0.09174312
## 72 Lower Permian-Late Carboniferous (292-283) 1 0.09174312
## 73 Lower Proterozoic 16 1.46788991
## 74 Lower Tertiary 5 0.45871560
## 75 Lower-Middle Carboniferous 1 0.09174312
## 76 Lower-Middle Devonian (Emsian-early Eifelian) 1 0.09174312
## 77 Lower-Middle Devonian (Emsian-Eifelian) 2 0.18348624
## 78 Lower-Middle Jurassic 1 0.09174312
## 79 Meso-Neoproterozoic 1 0.09174312
## 80 Mesoproterozoic 3 0.27522936
## 81 Mesoproterozoic (1216-1026, Sm-Nd) 1 0.09174312
## 82 Mesoproterozoic? (Riphean?) 1 0.09174312
## 83 Mesozoic 2 0.18348624
## 84 Mid Cretaceous 1 0.09174312
## 85 Middle Cambrian 5 0.45871560
## 86 Middle Devonian 23 2.11009174
## 87 Middle Devonian (Eifelian to early Givetian) 1 0.09174312
## 88 Middle Devonian (Eifelian-Givetian) 12 1.10091743
## 89 Middle Devonian (Eifelian) 13 1.19266055
## 90 Middle Devonian (Emsian-Eifelian) 1 0.09174312
## 91 Middle Devonian (Givetian) 4 0.36697248
## 92 Middle Devonian (Late Givetian) 1 0.09174312
## 93 Middle Devonian (lower Givetian) 1 0.09174312
## 94 Middle Devonian(Givetian) 2 0.18348624
## 95 Middle Jurassic (late Bajocian) 3 0.27522936
## 96 Middle Miocene 1 0.09174312
## 97 Middle Ordovician 2 0.18348624
## 98 Middle Proterozoic 2 0.18348624
## 99 Middle Proterozoic? 1 0.09174312
## 100 Middle-Late Devonian (Givetian-Frasnian) 1 0.09174312
## 101 Middle-Upper Devonian 3 0.27522936
## 102 Middle-Upper Devonian (Givetian-Frasnian) 6 0.55045872
## 103 Middle-Upper Jurassic 1 0.09174312
## 104 Miocene 39 3.57798165
## 105 Miocene-Pliocene (14\xb12 - 2.2) 1 0.09174312
## 106 Miocene? 1 0.09174312
## 107 Mississippian 4 0.36697248
## 108 Neoarchean-Paleoproterozoic (2.8-2.6 Ga) 1 0.09174312
## 109 Neoproterozoic 3 0.27522936
## 110 Neoproterozoic (976.4-802.3) 1 0.09174312
## 111 Neoproterozoic (Early Paleozoic?) 1 0.09174312
## 112 Neoproterozoic, Sinian 1 0.09174312
## 113 Oligocene 1 0.09174312
## 114 Ordovician 108 9.90825688
## 115 Ordovician to Precambrian 1 0.09174312
## 116 Ordovician-Silurian 5 0.45871560
## 117 Orodivician 1 0.09174312
## 118 Paleoproterozoic 2 0.18348624
## 119 Paleoproterozoic (1700-2000) 2 0.18348624
## 120 Paleozoic 29 2.66055046
## 121 Paleozoic-Mid Mesozoic 1 0.09174312
## 122 Paleozoic-Triassic 1 0.09174312
## 123 Pennsylvanian-Permian 1 0.09174312
## 124 Permian 9 0.82568807
## 125 Permian-Cretaceous 1 0.09174312
## 126 Permian-Triassic 2 0.18348624
## 127 Pliocene 1 0.09174312
## 128 pre-Eocene 1 0.09174312
## 129 Pre-Tertiary 1 0.09174312
## 130 Precambrian 2 0.18348624
## 131 Precambrian Z (570-800 Ma) 1 0.09174312
## 132 Precambrian-Late Cambrian 2 0.18348624
## 133 Proterozoic 154 14.12844037
## 134 Proterozoic or Ordovician 2 0.18348624
## 135 Silurian 39 3.57798165
## 136 Silurian to Carboniferous 1 0.09174312
## 137 Silurian-Devonian 2 0.18348624
## 138 Sin registro 3 0.27522936
## 139 Tertiary 1 0.09174312
## 140 Triassic 5 0.45871560
## 141 Triassic or Jurassic 1 0.09174312
## 142 Triassic-Jurassic 1 0.09174312
## 143 Upper Carboniferous 1 0.09174312
## 144 Upper Cretaceous 29 2.66055046
## 145 Upper Devonian 2 0.18348624
## 146 Upper Devonian (373\xb115) 1 0.09174312
## 147 Upper Devonian (378.3\xb139 - 364\xb115) 1 0.09174312
## 148 Upper Devonian (Famennian) 2 0.18348624
## 149 Upper Devonian (Frasnian) 1 0.09174312
## 150 Upper Devonian- Lower Carboniferous 1 0.09174312
## 151 Upper Devonian-Lower Carboniferou 2 0.18348624
## 152 Upper Devonian-Lower Carboniferous 27 2.47706422
## 153 Upper Jurassic 1 0.09174312
## 154 Upper Jurassic-Lower Cretaceous 4 0.36697248
## 155 Upper Proterozoic 2 0.18348624
## 156 Upper Silurian 1 0.09174312
## 157 Upper Triassic 1 0.09174312
## 158 Upper Triassic (217\xb128, Re-Os) 1 0.09174312
## 159 Upper-Devonian-Lower Carboniferous 1 0.09174312
## 160 TOTAL 1090 100.00000000
#----Clasificacion por era---------
#Extraer la variable
Era <- datos2$Classificacion
#Frecuencia absoluta
ni <- table(Era)
#Frecuencia Relativa
hi <- prop.table(ni) * 100
#Crear la Tabla
tabla_era <- data.frame( Era = names(ni),
ni = as.numeric(ni),
hi = as.numeric(hi) )
#Fila total
fila_total2 <- data.frame( Era = "TOTAL",
ni = sum(tabla_era$ni),
hi = sum(tabla_era$hi) )
#Unir tablas
tabla_era <- rbind(tabla_era, fila_total2)
tabla_era
## Era ni hi
## 1 Cenozoico 73 6.6972477
## 2 Mesozoico 149 13.6697248
## 3 Paleozoico 522 47.8899083
## 4 Precámbrico 343 31.4678899
## 5 Sin registro 3 0.2752294
## 6 TOTAL 1090 100.0000000