data(WhiteCells)
ggtern(WhiteCells,aes(G,L,M)) +
geom_density_tern(aes(color=Experiment),bdl = 0) +
geom_point(aes(shape=Experiment)) +
scale_color_manual(values=c("red","blue")) +
scale_shape_manual(values=c(21,24)) +
facet_wrap(~Experiment,nrow=2)
Run the code above in your browser using DataLab