Differences

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

--- r:social_network_analysis [2019/12/03 16:11] – [triad_data1.csv] hkimscil
+++ r:social_network_analysis [2019/12/03 16:14] – [Analysis (vis)] hkimscil
@@ Line 135: / Line 135: @@
 ====== Triad Data Visualizations ======
+===== Analysis (vis) =====
+<code>
+library(ggplot2)
+library(ggtern)
+demodata1 <- read.csv("http://commres.net/wiki/_export/code/r/social_network_analysis?codeblock=6")
+str(demodata1)
+</code>
+<code>
+demodata1$ObsID <- as.factor(demodata1$ObsID)
+demodata1$StartTime <- as.POSIXct(as.character(demodata1$StartTime), format="%m/%d/%Y %H:%M")
+demodata1$EndTime <- as.POSIXct(as.character(demodata1$EndTime), format="%m/%d/%Y %H:%M")
+ggtern(data=demodata1, aes(x=Triad1A, y=Triad1B, z=Triad1C)) +
+    geom_point()
+</code>
+<code>
+ggtern(data=demodata1, aes(x=Triad1A, y=Triad1B, z=Triad1C)) + #define data sources
+geom_point() +          #define data geometry
++     theme_showarrows() +    #draw labeled arrows beside axes
++     ggtitle("My Favorite Color") +      #add title
++     xlab("Red") +                       #replace default axis labels
++     ylab("Yellow") +
++     zlab("Blue")
+</code>
+<code>
+ggtern(data=demodata1, aes(x=Triad1A, y=Triad1B, z=Triad1C)) + #define data sources
+    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=Triad1A, y=Triad1B, z=Triad1C)) +              #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=Triad1A, y=Triad1B, z=Triad1C)) +               #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>
+<code>
+ggtern(data=demodata1, aes(x=Triad1A, y=Triad1B, z=Triad1C)) +
+    stat_density_tern(aes(fill=..level.., alpha=..level..), geom='polygon') +
+    scale_fill_gradient2(high = "blue") +
+    geom_point() +
+    theme_showarrows() +
+    ggtitle("My Favorite Color") +
+    xlab("Red") +
+    ylab("Yellow") +
+    zlab("Blue") +
+    guides(color = "none", fill = "none", alpha = "none")
+</code>
 ===== triad_data1.csv =====
 <file csv triad_data1.csv>