XX<-read.table("Seawater99.9Pc.txt")
attach(XX)
quartz()
barplot(Perc_of_sal, nam=chem_ion, main="Percent of Salinity")
quartz()
barplot(Perc_of_sal, nam=chem_ion, main="Weight Percent of Salinity")
detach(XX)