data(ACNK,package='geostats')
ternary(ACNK,type='p',labels=c(expression('Al'[2]*'O'[3]),
expression('CaO+Na'[2]*'O'),
expression('K'[2]*'O')))
Run the code above in your browser using DataLab