Differences

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

--- r:social_network_analysis [2019/12/03 16:10] – [triad_data1.csv] hkimscil
+++ r:social_network_analysis [2019/12/03 16:11] – [triad_data1.csv] hkimscil
@@ Line 136: / Line 136: @@
 ====== Triad Data Visualizations ======
 ===== triad_data1.csv =====
-<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=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>
 <file csv triad_data1.csv>
 ObsID,StartTime,EndTime,Triad1A,Triad1B,Triad1C,Triad2A,Triad2B,Triad2C,Triad3A,Triad3B,Triad3C,Diad1X,Diad1Y,Diad2X,Diad2Y,Diad3X,Diad3Y,Factor1,Factor2,Factor3,Landscape1XRight,Landscape1YTop