Can Mathematica produce Ternary Plots ?

Questions
1

Can Mathematica produce a Ternary Plots ?

2

Do you mean ternary plots like this?

8471uploadGraphic.png
8471uploadGraphic.png360×380 10.5 KB

That was produced with the Ternary Plots graphics in my Presentations package, which can be purchased through my web site. The various commands are:

TernaryScale, ToTernaryCoordinates, FromTernaryCoordinates, TernaryReplacementRules, DrawTernaryGrid, TernaryTriangle, TernaryPlotRange, TernaryPadding, TernaryPlot, TernaryLocator, TernaryContourDraw, TernaryRegionDraw, TernaryDraw3D.

The actual code for the above plot was:

<< Presentations`
Module[
 {data1, data2, temp1, temp2},
 data1 = Table[{temp1 = RandomReal[NormalDistribution[20, 2]], 
    temp2 = RandomReal[NormalDistribution[30, 4]], 
    TernaryScale - temp1 - temp2}, {40}];
 data2 = Table[{temp1 = RandomReal[NormalDistribution[25, 8]], 
    temp2 = RandomReal[NormalDistribution[50, 1]], 
    TernaryScale - temp1 - temp2}, {40}];
 
 plot1 = TernaryPlot[
   DrawTernaryGrid[5,
    TGBackground -> LightBlue,
    TGLabels -> {1.4, {"x", "y", "z"}, "side"}],
   CirclePoint[ToTernaryCoordinates[#], 3, Black, Orange] & /@ data1,
   CirclePoint[ToTernaryCoordinates[#], 3, Black, Green] & /@ data2]
 ]
3

Perfect!

4

Please also see this: How to plot ternary density plots?