dsparks
/ tapered-intensity-curved_edges.R
Last active Aug 17, 2019
Beautiful tapered-intensity-curved edge network graph with ggplot2
View tapered-intensity-curved_edges.R
| doInstall <- TRUE # Change to FALSE if you don't want packages installed. | |
| toInstall <- c("sna", "ggplot2", "Hmisc", "reshape2") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| # Empty ggplot2 theme | |
| new_theme_empty <- theme_bw() | |
| new_theme_empty$line <- element_blank() | |
| new_theme_empty$rect <- element_blank() | |
| new_theme_empty$strip.text <- element_blank() |
dsparks
/ geocoded_Tweets.R
Created Dec 18, 2012
Gathering Tweets, geocoding users, and plotting them
View geocoded_Tweets.R
| doInstall <- TRUE | |
| toInstall <- c("twitteR", "dismo", "maps", "ggplot2") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| searchTerm <- "#rstats" | |
| searchResults <- searchTwitter(searchTerm, n = 1000) # Gather Tweets | |
| tweetFrame <- twListToDF(searchResults) # Convert to a nice dF | |
| userInfo <- lookupUsers(tweetFrame$screenName) # Batch lookup of user info |
View pretty_network.R
| doInstall <- TRUE | |
| toInstall <- c("sna", "igraph") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| adjacencyList <- read.csv("https://dl.dropbox.com/s/8wabcrtqxysp03u/Twitter_network.R.csv?dl=1") | |
| head(adjacencyList) | |
| adjacencyMatrix <- table(adjacencyList) | |
| as.matrix(sort(rowSums(adjacencyMatrix))) # Out-degree |
View Herfindahl–Hirschman_Index.R
| doInstall <- TRUE # Change to FALSE if you don't want packages installed. | |
| toInstall <- c("plyr", "ggplot2") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| ANES <- read.csv("http://www.oberlin.edu/faculty/cdesante/assets/downloads/ANES.csv") | |
| head(ANES) | |
| ANES$PID3 <- factor(ANES$pid7) # Convert to three-level Party ID: | |
| levels(ANES$PID3) <- c("Dem", "Dem", "Dem", "Ind", "Rep", "Rep", "Rep") |
View lme4_arm_example.R
| rm(list = ls()) | |
| doInstall <- TRUE # Change to FALSE if you don't want packages installed. | |
| toInstall <- c("zoo", "tm", "ggplot2", "lme4", "arm", "Snowball") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| # From: http://www.cnn.com/2012/10/03/politics/debate-transcript/index.html | |
| Transcript <- readLines("https://raw.github.com/dsparks/Test_image/master/Denver_Debate_Transcript.txt") | |
| head(Transcript, 20) |
View tm_example.R
| rm(list = ls()) | |
| doInstall <- TRUE # Change to FALSE if you don't want packages installed. | |
| toInstall <- c("zoo", "tm", "ggplot2", "Snowball") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| # From: http://www.cnn.com/2012/10/03/politics/debate-transcript/index.html | |
| Transcript <- readLines("https://raw.github.com/dsparks/Test_image/master/Denver_Debate_Transcript.txt") | |
| head(Transcript, 20) |
View sna_example.R
| # Drawing a scatter plot of raster images | |
| doInstall <- TRUE # Change to FALSE if you don't want packages installed. | |
| toInstall <- c("png", "sna") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| # Go to https://www.gosquared.com/resources/2400-flags, download the ZIP, | |
| # and put the 64 x 64 files into a directory of your choosing. | |
| # Then setwd() to that directory: | |
| setwd("C:/Dropbox/isDotR_Files/flagIcons") |
View fanny_example.R
| doInstall <- TRUE | |
| toInstall <- c("ggplot2", "cluster", "MASS", "smacof") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| # Generate a matrix of dissimilarities from pairwise correlations | |
| data(breakfast) # Preference orderings of breakfast items, from smacof | |
| corrMat <- cor(breakfast, use = "pair") | |
| distMat <- dist(corrMat) |
View advent_calendar
| library(ggplot2) | |
| new_theme_empty <- theme_bw() | |
| new_theme_empty$line <- element_blank() | |
| new_theme_empty$rect <- element_blank() | |
| new_theme_empty$strip.text <- element_blank() | |
| new_theme_empty$axis.text <- element_blank() | |
| #new_theme_empty$plot.title <- element_blank() | |
| new_theme_empty$axis.title <- element_blank() | |
| new_theme_empty$plot.margin <- structure(c(0, 0, -1, -1), unit = "lines", valid.unit = 3L, class = "unit") |
View SMACOF_MDS.R
| doInstall <- TRUE | |
| toInstall <- c("ggplot2", "smacof") | |
| if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")} | |
| lapply(toInstall, library, character.only = TRUE) | |
| ANES <- read.csv("https://raw.github.com/dsparks/Test_image/master/2008%20ANES%20Thermometers.csv") | |
| head(ANES) | |
| # Multidimensional scaling of a rectangular thermometer rating matrix | |
| thermometerFrame <- ANES[, -c(1:2)] |