Rstudio script

# Data frame
data_station_1 <- data.frame(Values = c(31.77, 32.67, 31.88, 35.49, 35.6, 32.47, 33.52, 32.78, 33.13, 33.2, 33.78))
data_station_2 <- data.frame(Values = c(33.99, 34.33, 34.8, 33.29, 36.25))
combined_data <- data.frame(
 Values = c(data_station_1$Values, data_station_2$Values),
 Group = factor(rep(c("Station 1", "Station 2"), c(nrow(data_station_1), nrow(data_station_2))))
)

# Boxplot
boxplot(Values ~ Group, data = combined_data, ylab = "CtValues", xlab="", ylim=c(30,37))

####
data_station<- data.frame(Values = c(31.77, 32.67, 31.88, 35.49, 35.6, 32.47, 33.52, 32.78, 33.13, 33.2, 33.78, 33.99, 34.33, 34.8, 33.29, 36.25))

boxplot(data_station, ylim=c(31,37), ylab="Ct value", main="Ct values in River Sandvikselva", xlab="All Stations")

#prikker
stripchart(data_station$Values, method = "stack", vertical = TRUE, add = TRUE, pch = 16, col = "black")