Read in file and plot

bsaDF <- read.csv('A1_UndigestedBSA_power130_0001_A1_26-07-17_13-13_0002.csv')
bsaDF <- bsaDF[,1:2]
names(bsaDF) <- c('m_z','int')
bsaDF <- bsaDF[bsaDF$m_z>20000,]
bsaDF <- cbind(sample='bsa',bsaDF)
p<-ggplot(bsaDF, aes(x = m_z,y=int))+
  geom_col(aes(colour = sample ,fill=sample))+
  xlab("m/z ratio") + ylab("Millivolts")
p