If you copy the following code and run it without any changes, does it work?
q_agua.active <- structure(
list(OD = c(6.4, 6.4, 6.4, 7.8, 7.9, 7.9, 6.8, 6.8,
6.6, 7.3, 7.3, 7.2, 5.3, 5.3, 5.4, 10.3, 10.4, 10.5, 7.4, 7.3,
7.1, 7.6, 7.5, 7.5, 5.9, 5.9, 6, 6.2, 6, 5.9, 6.9, 7, 7, 7.6,
7.5, 7.5, 7.2, 7.3, 7.3, 8.1, 8.2, 8.3, 7.4, 7.3, 7.3, 7.3, 7.4,
6.3, 6.2, 6.3, 7.9, 8, 8.1, 7.6, 7.9, 8, 8.1, 8),
DBO = c(3,
2.3, 2.7, 2.2, 3.5, 4.2, 1.9, 2.1, 1.2, 2.4, 2.6, 2.4, 4.1, 4.1,
4.6, 9.5, 9.8, 6.9, 6.3, 6.8, 5.9, 6.7, 6.5, 6.5, 1.3, 0.8, 1.7,
1.3, 2.4, 1.8, 4.7, 6.1, 5.5, 2.6, 2.4, 3.1, 1.7, 1.8, 2.7, 2.8,
2.9, 2.8, 1.3, 1.6, 1.5, 1.8, 0.7, 1, 0.8, 1.2, 1.7, 2.7, 3.2,
2.5, 3.1, 1.9, 1.5, 2),
TB = c(6.6, 6.8, 6.7, 5.5, 5.4, 5.5,
4, 3.7, 4.1, 4.7, 4.5, 4.1, 7.2, 7.4, 7.3, 12.6, 12.6, 12.7,
23, 23, 23, 9.4, 9.4, 9, 19.8, 19.9, 19.7, 14.6, 14.3, 14.5,
114, 112, 111, 11.9, 11.8, 12.1, 10.2, 12, 11.9, 11.4, 11, 11,
10.6, 11.1, 7.3, 7.7, 7.4, 11.7, 11.6, 11.7, 10.9, 10.8, 10.8,
22, 22, 11.1, 11.6, 11.3),
pH = c(7.48, 7.42, 7.35, 7.12, 7.14,
7.13, 6.95, 6.85, 6.84, 7.2, 7.36, 7.34, 7.78, 7.82, 7.85, 9.96,
6.86, 7.09, 7.15, 7.18, 7.24, 7.2, 7.43, 7.51, 7.57, 7.62, 7.61,
7.33, 7.3, 7.31, 7.05, 7.14, 7.09, 7.55, 7.54, 7.55, 7.56, 7.5,
7.49, 7.05, 7.1, 7.11, 6.83, 6.95, 7.66, 7.69, 7.63, 7.33, 7.24,
7.63, 7.15, 7.18, 7.15, 7.06, 7.02, 7.73, 7.64, 7.69),
PT = c(0.625,
0, 0.224, 1.29, 2.23, 1.83, 0.135, 0.199, 0.175, 0.38, 0.223,
0.21, 2.09, 0.625, 1.03, 1.83, 2.23, 1.43, 0.702, 0.734, 0.822,
0.421, 0.45, 0.543, 0.358, 1.69, 0.892, 0.892, 3.43, 1.69, 1.69,
1.71, 3.07, 0.284, 0.309, 0.281, 0.758, 0.625, 0.758, 0.892,
1.69, 3.16, 0.239, 0.287, 0.258, 0.274, 0.226, 0.625, 0.625,
0.358, 1.03, 1.83, 2.23, 0.59, 0.327, 0.268, 0.246, 0.284),
CTT = c(240,
36, 93, 3.5, 15, 14, 120, 460, 1100, 75, 27, 29, 120, 27, 15,
210, 1100, 15, 1100, 1100, 160, 120, 290, 290, 7.4, 36, 11, 21,
93, 3, 1100, 1100, 1100, 75, 29, 1100, 150, 11, 21, 28, 7.4,
11, 210, 1100, 460, 27, 36, 16, 43, 21, 20, 23, 93, 1100, 1100,
1100, 460, 290),
CE = c(24.5, 24.8, 24.7, 41, 39.6, 39.7, 25.2,
24.7, 24.7, 23.4, 18.2, 42.8, 204, 202, 204, 121, 121, 122, 84,
87.6, 86.5, 120, 121, 121, 86, 86.6, 85.6, 92.3, 89.1, 88.2,
54.5, 55.8, 55, 95.3, 93.9, 94.3, 38.6, 29.8, 32.9, 26, 24.9,
24.2, 31.7, 28.3, 39.8, 38.8, 38.5, 30.6, 30.3, 30.3, 29.4, 28.6,
28.4, 32.8, 33.2, 41.9, 41.8, 42.3),
ST = c(8, 16, 30, 60, 58,
68, 28, 48, 36, 12, 18, 24, 126, 138, 142, 116, 120, 100, 76,
84, 86, 100, 100, 78, 80, 86, 88, 116, 98, 124, 136, 106, 172,
64, 106, 88, 14, 20, 26, 72, 62, 82, 52, 38, 46, 82, 76, 26,
26, 30, 52, 68, 62, 72, 50, 30, 28, 40)),
class = "data.frame", row.names = c(NA, -58L))
par(mfrow = c(2, 4))
loop.vector <- colnames(q_agua.active)
for(i in loop.vector) {
x <- q_agua.active[,i]
hist(x,
main = paste("Histograma de", i))
}
If it does not work, please post the result I asked for previously, the output of
str(q_agua.active)