install.packages("ggtern")#安装ggtern包
library(ggtern)#加载包
library(ggplot2)#需要加载ggplot包
data(Feldspar)#加载示例数据集
head(Feldspar)#查看数据集
图为示例数据结构
#绘制图形
ggtern(data=Feldspar,aes(x=An,y=Ab,z=Or)) +
geom_point()
#图形美化
ggtern(Feldspar,aes(Ab,An,Or)) +
geom_point(size=2,aes(shape=Feldspar,fill=Feldspar),color='black