r:social_network_analysis
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revisionNext revisionBoth sides next revision | ||
r:social_network_analysis [2019/12/03 16:08] – [triad_data1.csv] hkimscil | r:social_network_analysis [2019/12/03 16:10] – [triad_data1.csv] hkimscil | ||
---|---|---|---|
Line 136: | Line 136: | ||
====== Triad Data Visualizations ====== | ====== Triad Data Visualizations ====== | ||
===== triad_data1.csv ===== | ===== triad_data1.csv ===== | ||
+ | < | ||
+ | library(ggplot2) | ||
+ | library(ggtern) | ||
+ | |||
+ | demodata1 <- read.csv(" | ||
+ | str(demodata1) | ||
+ | </ | ||
+ | |||
+ | < | ||
+ | demodata1$ObsID <- as.factor(demodata1$ObsID) | ||
+ | demodata1$StartTime <- as.POSIXct(as.character(demodata1$StartTime), | ||
+ | demodata1$EndTime <- as.POSIXct(as.character(demodata1$EndTime), | ||
+ | |||
+ | ggtern(data=demodata1, | ||
+ | geom_point() | ||
+ | </ | ||
+ | |||
+ | < | ||
+ | ggtern(data=demodata1, | ||
+ | geom_point() + #define data geometry | ||
+ | + | ||
+ | + | ||
+ | + | ||
+ | + | ||
+ | + | ||
+ | </ | ||
+ | |||
+ | < | ||
+ | ggtern(data=demodata1, | ||
+ | geom_point() + #define first data geometry | ||
+ | geom_density_tern() | ||
+ | </ | ||
+ | |||
+ | < | ||
+ | ggtern(data=demodata1, | ||
+ | geom_density_tern() | ||
+ | |||
+ | ggtern(data=demodata1, | ||
+ | geom_density_tern(aes(fill=..level.., | ||
+ | </ | ||
+ | |||
+ | < | ||
+ | #Or you can apply a color gradient to space between the contour lines | ||
+ | ggtern(data=demodata1, | ||
+ | stat_density_tern(aes(fill=..level.., | ||
+ | scale_fill_gradient2(high = " | ||
+ | guides(color = " | ||
+ | </ | ||
+ | |||
<file csv triad_data1.csv> | <file csv triad_data1.csv> | ||
ObsID, | ObsID, | ||
Line 202: | Line 251: | ||
</ | </ | ||
- | < | ||
- | library(ggplot2) | ||
- | library(ggtern) | ||
- | |||
- | demodata1 <- read.csv(" | ||
- | str(demodata1) | ||
- | </ | ||
- | < | ||
- | demodata1$ObsID <- as.factor(demodata1$ObsID) | ||
- | demodata1$StartTime <- as.POSIXct(as.character(demodata1$StartTime), | ||
- | demodata1$EndTime <- as.POSIXct(as.character(demodata1$EndTime), | ||
- | |||
- | ggtern(data=demodata1, | ||
- | geom_point() | ||
- | </ | ||
- | |||
- | < | ||
- | ggtern(data=demodata1, | ||
- | geom_point() + #define data geometry | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | + | ||
- | </ | ||
- | |||
- | < | ||
- | ggtern(data=demodata1, | ||
- | geom_point() + #define first data geometry | ||
- | geom_density_tern() | ||
- | </ | ||
===== triad_data2.csv ===== | ===== triad_data2.csv ===== | ||
r/social_network_analysis.txt · Last modified: 2023/11/22 22:02 by hkimscil