powered by
piper.text(ca,mg,so4,cl,ions=data.frame(ca=ca,mg=mg,so4=so4,cl=cl),ptext, ppm=TRUE,cex=1,col=1,plot.sep=0.15,pos=4)