data(Fragments)
ggtern(Fragments,aes(Qm+Qp,Rf,M,colour=Sample)) +
geom_density_tern(h=2,aes(fill=..level..),expand=0.75,alpha=0.5) +
geom_point(aes(shape=Position,size=Relief)) +
theme_bw() + theme_showarrows() + custom_percent('%') +
labs(title = "Grantham and Valbel Rock Fragment Data",
x = "Q_m+Q_p", xarrow = "Quartz (Multi + Poly)",
y = "R_f", yarrow = "Rock Fragments",
z = "M", zarrow = "Mica") +
facet_wrap(~Sample,nrow=2)
Run the code above in your browser using DataLab