View rPackages
#In R 3.6, run: | |
.libPaths()[1] | |
#Copy this directory path and paste it on the line below; | |
#Then run all lines below in R 4.0: | |
PASTED <- "C:/Users/.../R/win-library/3.6" | |
currentPackages <- list.dirs(path = PASTED , recursive = FALSE) | |
currentPackages | |
trimmed <- stringr::str_replace_all(currentPackages, paste(PASTED , "/", sep = ""), "") | |
toInstall <- dput(trimmed) | |
doInstall <- TRUE |
View newVersion.R
install.packages("tidyr", dependencies = TRUE) | |
install.packages("ggplot2", dependencies = TRUE) | |
install.packages("survey", dependencies = TRUE) | |
install.packages("gridExtra", dependencies = TRUE) | |
install.packages("dplyr", dependencies = TRUE) | |
install.packages("stringr", dependencies = TRUE) | |
install.packages("tidytext", dependencies = TRUE) | |
install.packages("mvtnorm", dependencies = TRUE) | |
install.packages("foreign", dependencies = TRUE) | |
install.packages("Zelig", dependencies = TRUE) |
View turkey2016.r
library(ggplot2) | |
theme_set(theme_bw()) | |
Turkey <- read.csv("http://pages.iu.edu/~cdesante/turkey.csv") | |
ggplot(data = Turkey) + geom_tile(aes(x = Happy, y = Thanksgiving, fill=Turkey.Colors | |
)) + scale_fill_identity() + theme_bw() + labs(title = "Happy Thanksgiving 2016 from is.R()!\n", | |
x = "", y = "") + scale_x_continuous(breaks = NULL)+ scale_y_continuous(breaks = NULL) |
View Rwords.r
My.Words <- read.csv("http://www.oberlin.edu/faculty/cdesante/assets/downloads/Randwords.csv") | |
My.Words$RANDOM.WORDS <- as.character(My.Words$RANDOM.WORDS) | |
#Step 1: Split Character Vectors into Sub-strings: | |
strsplit(My.Words$RANDOM.WORDS, "") | |
Split.List <- strsplit(My.Words$RANDOM.WORDS, "") | |
#Step 2: Assign a numeric value to each of the 26 letters: | |
LETTERS |
View basicmap.r
doInstall <- TRUE | |
toInstall <- c("maps", "ggplot2") | |
if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")} | |
lapply(toInstall, library, character.only = TRUE) | |
library(ggplot2) | |
library(maps) | |
Prison <- read.csv("http://www.oberlin.edu/faculty/cdesante/assets/downloads/prison.csv") | |
head(Prison) |
View apsrtable.r
doInstall <- TRUE | |
toInstall <- c("apsrtable") | |
if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")} | |
lapply(toInstall, library, character.only = TRUE) | |
#http://cran.r-project.org/web/packages/apsrtable/apsrtable.pdf | |
library(apsrtable) |
View apsrtable.r
doInstall <- TRUE | |
toInstall <- c("apsrtable") | |
if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")} | |
lapply(toInstall, library, character.only = TRUE) | |
#http://cran.r-project.org/web/packages/apsrtable/apsrtable.pdf | |
library(apsrtable) |
View foreign.r
doInstall <- TRUE | |
toInstall <- c("foreign") | |
if(doInstall){install.packages(toInstall, repos = "http://cran.us.r-project.org")} | |
lapply(toInstall, library, character.only = TRUE) | |
#http://cran.r-project.org/web/packages/foreign/foreign.pdf | |
#setwd("your working directory here") | |
library(foreign) |
View happythanksgiving.r
toInstall <- c("ggplot2") | |
if(doInstall){install.packages(toInstall, repos = "http://cran.r-project.org")} | |
lapply(toInstall, library, character.only = TRUE) | |
library(ggplot2) | |
Turkey <- read.csv("http://www.oberlin.edu/faculty/cdesante/assets/downloads/turkey.csv") | |
ggplot(data = Turkey) + geom_tile(aes(x = Happy, y = Thanksgiving, fill=Turkey.Colors, | |
width=1))+ scale_fill_identity() + theme_bw() |
View hjustvjust.r
hjustvjust <- expand.grid( | |
hjust=c(0, 0.5, 1), | |
vjust=c(0, 0.5, 1), | |
angle=c(0, 45, 90), | |
text="is-R" | |
) | |
hv <- ggplot(hjustvjust, aes(x=hjust, y=vjust)) + | |
geom_point() + |
NewerOlder