Este tipo de problema geralmente está relacionado à reformatação dos dados. O formato deve ser longo e os dados estão em formato largo. Veja esta postagem sobre como reformatar os dados do formato largo para o longo.
R base
suppressPackageStartupMessages({
library(dplyr)
library(tidyr)
})
dados %>%
pivot_longer(-Lat, names_to = "Coleta") %>%
mutate(Lat = factor(Lat)) %>%
barplot(value ~ Coleta + Lat, ., beside = TRUE, ylab = "",
col = c(Cr = "#2e8b57", Cu = "#9acd32", Mn = "#4eee94"))
legend("top", legend = c("Cr", "Cu", "Mn"),
fill = c(Cr = "#2e8b57", Cu = "#9acd32", Mn = "#4eee94"),
box.col = NA, horiz = TRUE)

Created on 2023-01-11 with reprex v2.0.2
Pacote ggplot2
suppressPackageStartupMessages({
library(dplyr)
library(tidyr)
library(ggplot2)
})
dados %>%
pivot_longer(-Lat, names_to = "Coleta") %>%
mutate(Lat = factor(Lat)) %>%
ggplot(aes(Lat, value, fill = Coleta)) +
geom_col(position = position_dodge()) +
ylab("") +
scale_fill_manual(values = c(Cr = "#2e8b57", Cu = "#9acd32", Mn = "#4eee94")) +
theme_bw() +
theme(legend.position = "top")

Created on 2023-01-11 with reprex v2.0.2
Dados
dados <- "Lat Cu Cr Mn
15 -0,86 2,85 1,25
14 5,16 19,51 14,60
13 2,51 10,59 6,87
12 1,87 8,23 6,92
11 2,05 9,66 -0,51
10 5,26 8,46 2,79
9 -0,37 2,78 0,94
8 2,37 8,85 7,07
7 3,68 9,31 5,70
6 3,64 13,42 9,19
5 -0,75 2,23 -0,97
4 -0,05 3,48 0,70
3 -0,37 2,92 0,24
2 -0,84 2,67 -0,50
1 -0,73 2,94 0,61
0 1,32 6,72 2,69
-1 2,50 8,53 53,70"
dados <- read.table(text = dados, header = TRUE,
dec = ",", colClasses = "numeric")
Created on 2023-01-11 with reprex v2.0.2