library(ggplot2)
library(tidyverse)
library(dplyr)
library(stringr)
fluor_data <- Kopie_van_Overzicht_Fluoride_11202_
Kopie_van_Overzicht_Fluoride_11202_
df<- as.data.frame(Kopie_van_Overzicht_Fluoride_11202_)
colnames (Kopie_van_Overzicht_Fluoride_11202_) <-c("Sample", "Recovery", "Standard_deviation", "Technique")
ggplot( data = df, aes( x = Sample
, y = Recovery
) ) +
geom_col( aes( fill = Technique
), position = position_dodge(1)) +
labs(title = "Fluorine results", x = "sample", y = "Recovery", fill= "Technique")+
geom_errorbar(aes( x= Sample,ymin = Recovery - Standard_deviation, ymax = Recovery + Standard_deviation),width=0.25, size= 1,alpha=0.9, position = position_dodge(5))
How can this?