library(ggplot2)
data<- tibble::tribble(
~Fight.Number, ~Pair, ~`Fight.Duration.(s)`,
1L, "PLOL", 316L,
1L, "PLPL", 339L,
2L, "PLOL", 252L,
2L, "PLPL", 161L,
3L, "PLOL", 128L,
3L, "PLPL", 43L
)
ggplot(data, aes(Pair, `Fight.Duration.(s)`, fill = Pair)) +
stat_summary(geom = "bar", fun = mean, position = "dodge") +
stat_summary(geom = "errorbar", fun.data = mean_se, position = "dodge") +
labs(title = "BarPlot showing the average fight duration with error bars",
x = "Pair",
y = "Mean fight time",
fill = "Pair") +
scale_fill_manual(values=c("blue", "red")) +
scale_y_continuous(breaks=seq(0, 350, 50))

Created on 2020-05-03 by the reprex package (v0.3.0)