data(Feldspar)
plot <- ggtern(data=Feldspar,aes(An,Ab,Or)) + geom_point() +
scale_T_continuous(breaks=seq(0,1,0.2),minor_breaks=seq(0,1,0.1)) +
scale_L_continuous(breaks=seq(0,1,0.2),minor_breaks=seq(0,1,0.1))
plot
Run the code above in your browser using DataLab