Differences

This shows you the differences between two versions of the page.

--- r:social_network_analysis [2019/12/03 16:09] – [triad_data1.csv] hkimscil
+++ r:social_network_analysis [2019/12/03 16:10] – [triad_data1.csv] hkimscil
@@ Line 167: / Line 167: @@
     geom_point() +          #define first data geometry
     geom_density_tern()     #define second data geometery
+</code>
+<code>
+ggtern(data=demodata1, aes(x=Triad1A, y=Triad1B, z=Triad1C)) +      #define data sources
+    geom_density_tern()                                 #define a data geometery
+ggtern(data=demodata1, aes(x=T1A, y=T1B, z=T1C)) +              #define data sources
+    geom_density_tern(aes(fill=..level.., alpha=..level..))     #define a data geometery with an aesthetic
+</code>
+<code>
+#Or you can apply a color gradient to space between the contour lines
+ggtern(data=demodata1, aes(x=T1A, y=T1B, z=T1C)) +                          #define data sources
+    stat_density_tern(aes(fill=..level.., alpha=..level..),geom='polygon') +#now you need to use stat_density_tern
+    scale_fill_gradient2(high = "red") +                                    #define the fill color
+    guides(color = "none", fill = "none", alpha = "none")                   #we don't want to display legend items
 </code>