Add ternary plot for He-Ar-N

[guillecg]

Check PER22 data

[alebastianoni]

Guille,
This is the code I have to reproduce to the best of my limited capabilities the ternary plot! hehehehe

ggtern::ggtern(data=data_gas,aes(x=He10,y=N2/100, z=Ar)) +
geom_point(aes(fill=time), alpha=0.5, shape=21, size=6, stroke=0.3)+
geom_point(data = subset(data_gas, sampling %in% c("ASW")),fill="red",size=6,
shape=21,alpha=.5,stroke=0.3) +
geom_point(data = subset(data_gas, sampling %in% c("AIR")),fill="black",size=6,
shape=21,alpha=.5,stroke=0.3) +
geom_point(data = subset(data_gas, sampling %in% c("Arc_type1")),fill="grey",size=6,
shape=21,alpha=.5,stroke=0.3) +
geom_point(data = subset(data_gas, sampling %in% c("Arc_type2")),fill="grey",size=6,
shape=21,alpha=.5,stroke=0.3) +
scale_fill_viridis_d(direction = -1)+
labs( x = expression(He%%10),
y = expression(N[2]/100),
z = "Ar",
fill="Sampling date")+
theme_hidemask()+
theme_bw(base_size = 16) +
theme_hidegrid_major()+
theme_nogrid_minor()+
theme_nomask()

The end result after adding the connecting lines on Inkscape is this...