data(Fragments)
ggtern(Fragments,aes(Qm+Qp,Rf,M,color=Sample)) +
geom_point(aes(shape=Position,size=Relief)) +
scale_size_continuous(range = c(1, 5)) +
scale_shape_manual(values = c(21, 24)) +
scale_color_manual(values=c("red", "blue", "darkgreen")) +
theme_bw(base_size=8) +
theme_showarrows() +
custom_percent('%') +
labs(title = "Grantham and Valbel Rock Fragment Data",
x = "Q_{m+p}", xarrow = "Quartz (Multi + Poly)",
y = "R_f", yarrow = "Rock Fragments",
z = "M", zarrow = "Mica") +
theme_latex() +
facet_wrap(~Sample,nrow=2)
Run the code above in your browser using DataLab