.Rhistory

networkData <- data.frame(src, target)
simpleNetwork(networkData) + theme_xkcd()
simpleNetwork(networkData)
simpleNetwork(networkData) + theme (text = element_text(size = 16, family = "xkcd")
simpleNetwork(networkData) + theme (text = element_text(size = 16, family = "xkcd"))
netplot <- ggplot(networkData)
devtools::install_github("briatte/ggnet")
ggnet2(networkData)
library(ggnet)
ggnet2(networkData)
ggnet(networkData)
net = rgraph(10, mode = "graph", tprob = 0.5)
net = network(net, directed = FALSE)
network.vertex.names(net) = letters[1:10]
ggnet2(net)
networkData <- data.frame(src, target)
URL <- paste0(
"https://gist.githubusercontent.com/shawngraham/65a2c35f077605e7b99e/raw/32d4e55e272a69d6ff346f9609fb3a68cb4a7624",
"archaeogaming-map.json")
Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)
URL <- paste0(
"https://gist.githubusercontent.com/shawngraham/65a2c35f077605e7b99e/raw/32d4e55e272a69d6ff346f9609fb3a68cb4a7624",
"/archaeogaming-map.json")
Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)
Flare$children = Flare$children[1:3]
radialNetwork(List = Flare, fontSize = 10, opacity = 0.9)
URL <- paste0(
"https://gist.githubusercontent.com/shawngraham/65a2c35f077605e7b99e/raw/32d4e55e272a69d6ff346f9609fb3a68cb4a7624/archaeogaming-map.json")
Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)
Flare$children = Flare$children[1:3]
radialNetwork(List = Flare, fontSize = 10, opacity = 0.9)
diagonalNetwork(List = Flare, fontSize = 10, opacity = 0.9)
simpleNetwork(networkData)
simpleNetwork(List)
diagonalNetwork(List = Flare, fontSize = 10, opacity = 0.9)
simpleNetwork(List = Flare)
simpleNetwork(Flare)
simpleNetwork(URL)
archaeogamingmap <- data.frame(Flare)
simpleNetwork(archaeogamingmap)
diagonalNetwork(List = Flare, fontSize = 10, opacity = 0.9)
Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)
Flare$children = Flare$children[1:3]
diagonalNetwork(List = Flare, fontSize = 10, opacity = 0.9)
Flare$children = Flare$children[1:5]
diagonalNetwork(List = Flare, fontSize = 10, opacity = 0.9)
archaeogamingmap <- data.frame(Flare)
simpleNetwork(archaeogamingmap)
src <- c("Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Philosophy","Philosophy","Philosophy","Philosophy","Reception","Reception","Reception","Reception","Reception","Reception","Game Development","Game Development","Game Development","Game Development","Game Development","Game Development","Game Development","Game Development","Machine-created culture","Machine-created culture","The archaeology of ...game title...","The archaeology of ...game title...","The archaeology of ...game title...","The archaeology of ...game title...","The archaeology of ...game title...","The archaeology of ...game title...","Material culture","Material culture","Material culture","Material culture","Material culture")
target <- c("Real-world archaeology of video game hardware and software","Videogame or virtual world as archaeological site","Philosophy","Reception","Game Development","Machine-created culture","The archaeology of ...game title...","Material culture","Atari Burial Ground","History of use and object biography","Conservation and preservation","Establishing chronology and typology of games","Gaming spaces eg arcages","History of personal or commercial use","Archiving and Game History","Version control patches and damnatio memoriae","Tool definition and creation for in-world archaeology","Application of real-world methods to virtual spaces","Glitches as artifacts","Game as artifact or the space betwewen the hardware and the illusion of a world in game","In-world garbology","Survey Landscape Underwater Exoarchaeology","Quantum entanglement in video games","Perception","Complexity and chaos and algorithms","Deism and world-building","Archaeologists as playable characters","Archaeologists as non-playable characters or AI","In-world looting and or auctioning of in-game inventory","Public perception of archaeology and archaeologists","Developer perception and promotion of archaeology and archaeologists","In-game depictions or reenactments of real-world historical events","Archaeological consulting with studios","Archaeologists as game makers","Developer influence and design choices","Games as archaeology teaching tools","Augmented reality for play tourism or education","3d modeling and space-creation or recreations of antiquity both real or imagined","Lore and lore communities","Code and source as epigraphy and palaeography","Virtual ethnography","Procedurally generated environments and artifacts","Minecraft","Elder Scrolls","World of Warcraft","Fallout","Mass Effect","etc","Real and virtual commerce economics and numismatics","Real-world manifestation of virtual world artifacts","Cosplay and game-derived experimental archaeology","In-world museums","Real-world museums")
networkData <- data.frame(src, target)
simpleNetwork(networkData)
target <- c("Real-world archaeology of video game hardware and software","Videogame or virtual world as archaeological site","Philosophy","Reception","Game Development","Machine-created culture","The archaeology of ...game title...","Material culture","Atari Burial Ground","History of use and object biography","Conservation and preservation","Establishing chronology and typology of games","Gaming spaces eg arcages","History of personal or commercial use","Archiving and Game History","Version control patches and damnatio memoriae","Tool definition and creation for in-world archaeology","Application of real-world methods to virtual spaces","Glitches as artifacts","Game as artifact or the space betwewen the hardware and the illusion of a world in game","In-world garbology","Survey Landscape Underwater Exoarchaeology","Quantum entanglement in video games","Perception","Complexity and chaos and algorithms","Deism and world-building","Archaeologists as playable characters","Archaeologists as non-playable characters or AI","In-world looting and or auctioning of in-game inventory","Public perception of archaeology and archaeologists","Developer perception and promotion of archaeology and archaeologists","In-game depictions or reenactments of real-world historical events","Archaeological consulting with studios","Archaeologists as game makers","Developer influence and design choices","Games as archaeology teaching tools","Augmented reality for play tourism or education","3d modeling and space-creation or recreations of antiquity both real or imagined","Lore and lore communities","Code and source as epigraphy and palaeography","Virtual ethnography","Procedurally generated environments and artifacts","Minecraft","Elder Scrolls","World of Warcraft","Fallout","Mass Effect","etc","Real and virtual commerce economics and numismatics","Real-world manifestation of virtual world artifacts","Cosplay and game-derived experimental archaeology","In-world museums","Real-world museum")
archaeogamingmap <- data.frame(src, target)
Flare <- archaeogamingmap
Flare$children = Flare$children[1:5]
diagonalNetwork(List = Flare, fontSize = 10, opacity = 0.9)
simpleNetwork(networkData) + theme (text = element_text(size = 16, family = "xkcd"))
simpleNetwork(networkData)
diagonalNetwork(List = networkData, fontSize = 10, opacity = 0.9)
diagonalNetwork(networkData, fontSize = 10, opacity = 0.9)
p <- ggplot() + geom_point(aes(x=mpg, y=wt), data=mtcars) + theme (text = element_text(size = 16, family = "xkcd"))
p
simpleNetwork(networkData) + theme (text = element_text(size = 16, family = "xkcd"))
simpleNetwork(networkData) + theme ("xkcd")
URL <- paste0(
"https://cdn.rawgit.com/christophergandrud/networkD3/",
"master/JSONdata//flare.json")
Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)
Flare$children = Flare$children[1:3]
radialNetwork(List = Flare, fontSize = 10, opacity = 0.9)
URL <- paste0(
"https://gist.githubusercontent.com/shawngraham/5da8114b3e13cf36ceb6/raw/",
"b64a7cd4566164dcca7ca3ec2064f0108dda564a//archaeogamingmap2.json")
Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)
Flare$children = Flare$children[1:3]
radialNetwork(List = Flare, fontSize = 10, opacity = 0.9)
"https://gist.githubusercontent.com/shawngraham/2bfad0c10e7519a630a9/raw/",
URL <- paste0(
"https://gist.githubusercontent.com/shawngraham/2bfad0c10e7519a630a9/raw/",
"d230e753f8f164fdd2028dbdb485b62cecd97f84//archaeomap-flare.json")
Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)
Flare$children = Flare$children[1:3]
radialNetwork(List = Flare, fontSize = 10, opacity = 0.9)
Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)
radialNetwork(List = Flare, fontSize = 10, opacity = 0.9)
diagonalNetwork(List = Flare, fontSize = 10, opacity = 0.9)
URL <- paste0(
"https://gist.githubusercontent.com/shawngraham/2bfad0c10e7519a630a9/raw/",
"d230e753f8f164fdd2028dbdb485b62cecd97f84//archaeomap-flare.json")
Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)
radialNetwork(List = Flare, fontSize = 10, opacity = 0.9)
URL <- paste0(
"https://gist.githubusercontent.com/shawngraham/2bfad0c10e7519a630a9/raw/",
"7a7a2da8c4358a81e0dc05cc64405d7c9f975803/archaeomap-flare.json")
Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)
radialNetwork(List = Flare, fontSize = 10, opacity = 0.9)
diagonalNetwork(List = Flare, fontSize = 10, opacity = 0.9)
simpleNetwork(networkData)
diagonalNetwork(List = Flare, fontSize = 10, opacity = 0.9) + theme (text = element_text(size = 16, family = "xkcd"))
diagonalNetwork(List = Flare, fontSize = 10, opacity = 0.9 + theme (text = element_text(size = 16, family = "xkcd"))
diagonalNetwork(List = Flare, fontSize = 10, opacity = 0.9, theme (text = element_text(size = 16, family = "xkcd"))
diagonalNetwork(List = Flare, fontSize = 10, font = "xkcd" opacity = 0.9)
diagonalNetwork(List = Flare, fontSize = 10, font = "xkcd" opacity = 0.9)
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd" opacity = 0.9)
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9)
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, main= "Archaeogaming!")
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, label= "Archaeogaming!")
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, title= "Archaeogaming!")
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, label= "Archaeogaming!")
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, title(main= "Archaeogaming!")
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, title(main= "Archaeogaming!"))
p <- diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9)
p
plot(p)
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, label c())
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, label ="a")
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9)
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, width = 500)
ggnetw(archaeogamingmap)
ggnet2(archaeogamingmap)
ggnet2(archaeogamingmap)
volunteers <- data.frame(year=c(2007:2011),
number=c(56470, 56998,59686, 61783, 64251))
p <- ggplot() + xkcdrect(aes(xmin = year,
xmax= year +0.3,
ymin=number,
ymax = number + 3600),
volunteers,
fill="red", colour="black")
p
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, width = 500)
p <- diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, width = 500)
p <- diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, width = 500) + theme_xkcd()
p
p <- diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, width = 1200)
p
p <- diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, width = 500)
library(networkD3)
library(xkcd)
URL <- paste0(
"https://gist.githubusercontent.com/shawngraham/2bfad0c10e7519a630a9/raw/",
"7a7a2da8c4358a81e0dc05cc64405d7c9f975803/archaeomap-flare.json")
## Convert to list format
Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)
# Use subset of data for more readable diagram
radialNetwork(List = Flare, fontSize = 10, opacity = 0.9)
p <- diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, width = 500)
p
pdf("myfile.pdf")
pdf(p, "myfile.pdf")
pdf(p, "myfile.pdf")
pwd()
pwd()
getwd()
pdf(p, "myfile.pdf")
pdf()
install.packages("knitr")
library('knitr')
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, width = 500)
radialNetwork(List = Flare, fontSize = 10, opacity = 0.9, fontFamily = "xkcd")
URL <- paste0(
"https://gist.githubusercontent.com/shawngraham/2bfad0c10e7519a630a9/raw/",
"7a7a2da8c4358a81e0dc05cc64405d7c9f975803/archaeomap-flare.json")
Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, width = 500)
URL <- paste0(
"https://gist.githubusercontent.com/shawngraham/2bfad0c10e7519a630a9/raw/",
"f0b5086f35b5322b451668c2b34ebcade297ff30/archaeomap-flare.json")
## Convert to list format
Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, width = 500)
src <- c("Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Philosophy","Philosophy","Philosophy","Philosophy","Reception","Reception","Reception","Reception","Reception","Reception","Game Development","Game Development","Game Development","Game Development","Game Development","Game Development","Game Development","Game Development","Machine-created culture","Machine-created culture","The archaeology of ...game title...","The archaeology of ...game title...","The archaeology of ...game title...","The archaeology of ...game title...","The archaeology of ...game title...","The archaeology of ...game title...","Material culture","Material culture","Material culture","Material culture","Material culture")
target <- c("Real-world archaeology of video game hardware and software","Videogame or virtual world as archaeological site","Philosophy","Reception","Game Development","Machine-created culture","The archaeology of ...game title...","Material culture","Atari Burial Ground","History of use and object biography","Conservation and preservation","Establishing chronology and typology of games","Gaming spaces eg arcages","History of personal or commercial use","Archiving and Game History","Version control patches and damnatio memoriae","Tool definition and creation for in-world archaeology","Application of real-world methods to virtual spaces","Glitches as artifacts","Game as artifact or the space betwewen the hardware and the illusion of a world in game","In-world garbology","Survey Landscape Underwater Exoarchaeology","Quantum entanglement in video games","Perception","Complexity and chaos and algorithms","Deism and world-building","Archaeologists as playable characters","Archaeologists as non-playable characters or AI","In-world looting and or auctioning of in-game inventory","Public perception of archaeology and archaeologists","Developer perception and promotion of archaeology and archaeologists","In-game depictions or reenactments of real-world historical events","Archaeological consulting with studios","Archaeologists as game makers","Developer influence and design choices","Games as archaeology teaching tools","Augmented reality for play tourism or education","3d modeling and space-creation or recreations of antiquity both real or imagined","Lore and lore communities","Code and source as epigraphy and palaeography","Virtual ethnography","Procedurally generated environments and artifacts","Minecraft","Elder Scrolls","World of Warcraft","Fallout","Mass Effect","etc","Real and virtual commerce economics and numismatics","Real-world manifestation of virtual world artifacts","Cosplay and game-derived experimental archaeology","In-world museums","Real-world museum")
archaeogamingmap <- data.frame(src, target)
simpleNetwork(networkData)
library(networkD3)
simpleNetwork(networkData)
src <- c("Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Philosophy","Philosophy","Philosophy","Philosophy","Reception","Reception","Reception","Reception","Reception","Reception","Game Development","Game Development","Game Development","Game Development","Game Development","Game Development","Game Development","Game Development","Machine-created culture","Machine-created culture","The archaeology of ...game title...","The archaeology of ...game title...","The archaeology of ...game title...","The archaeology of ...game title...","The archaeology of ...game title...","The archaeology of ...game title...","Material culture","Material culture","Material culture","Material culture","Material culture")
target <- c("Real-world archaeology of video game hardware and software","Videogame or virtual world as archaeological site","Philosophy","Reception","Game Development","Machine-created culture","The archaeology of ...game title...","Material culture","Atari Burial Ground","History of use and object biography","Conservation and preservation","Establishing chronology and typology of games","Gaming spaces eg arcages","History of personal or commercial use","Archiving and Game History","Version control patches and damnatio memoriae","Tool definition and creation for in-world archaeology","Application of real-world methods to virtual spaces","Glitches as artifacts","Game as artifact or the space betwewen the hardware and the illusion of a world in game","In-world garbology","Survey Landscape Underwater Exoarchaeology","Quantum entanglement in video games","Perception","Complexity and chaos and algorithms","Deism and world-building","Archaeologists as playable characters","Archaeologists as non-playable characters or AI","In-world looting and or auctioning of in-game inventory","Public perception of archaeology and archaeologists","Developer perception and promotion of archaeology and archaeologists","In-game depictions or reenactments of real-world historical events","Archaeological consulting with studios","Archaeologists as game makers","Developer influence and design choices","Games as archaeology teaching tools","Augmented reality for play tourism or education","3d modeling and space-creation or recreations of antiquity both real or imagined","Lore and lore communities","Code and source as epigraphy and palaeography","Virtual ethnography","Procedurally generated environments and artifacts","Minecraft","Elder Scrolls","World of Warcraft","Fallout","Mass Effect","etc","Real and virtual commerce economics and numismatics","Real-world manifestation of virtual world artifacts","Cosplay and game-derived experimental archaeology","In-world museums","Real-world museum")
archaeogamingmap <- data.frame(src, target)
simpleNetwork(networkData)
if( 'xkcd' %in% fonts()) {
p <- ggplot() + geom_point(aes(x=mpg, y=wt), data=mtcars) + theme (text = element_text(size = 16, family = "xkcd"))
} else {
warning("Not xkcd fonts installed!")
p <- ggplot() + geom_point(aes(x=mpg, y=wt), data=mtcars)
}
p
src <- c("Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Archaeogaming","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Real-world archaeology of video game hardware and software","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Videogame or virtual world as archaeological site","Philosophy","Philosophy","Philosophy","Philosophy","Reception","Reception","Reception","Reception","Reception","Reception","Game Development","Game Development","Game Development","Game Development","Game Development","Game Development","Game Development","Game Development","Machine-created culture","Machine-created culture","The archaeology of ...game title...","The archaeology of ...game title...","The archaeology of ...game title...","The archaeology of ...game title...","The archaeology of ...game title...","The archaeology of ...game title...","Material culture","Material culture","Material culture","Material culture","Material culture")
target <- c("Real-world archaeology of video game hardware and software","Videogame or virtual world as archaeological site","Philosophy","Reception","Game Development","Machine-created culture","The archaeology of ...game title...","Material culture","Atari Burial Ground","History of use and object biography","Conservation and preservation","Establishing chronology and typology of games","Gaming spaces eg arcages","History of personal or commercial use","Archiving and Game History","Version control patches and damnatio memoriae","Tool definition and creation for in-world archaeology","Application of real-world methods to virtual spaces","Glitches as artifacts","Game as artifact or the space betwewen the hardware and the illusion of a world in game","In-world garbology","Survey Landscape Underwater Exoarchaeology","Quantum entanglement in video games","Perception","Complexity and chaos and algorithms","Deism and world-building","Archaeologists as playable characters","Archaeologists as non-playable characters or AI","In-world looting and or auctioning of in-game inventory","Public perception of archaeology and archaeologists","Developer perception and promotion of archaeology and archaeologists","In-game depictions or reenactments of real-world historical events","Archaeological consulting with studios","Archaeologists as game makers","Developer influence and design choices","Games as archaeology teaching tools","Augmented reality for play tourism or education","3d modeling and space-creation or recreations of antiquity both real or imagined","Lore and lore communities","Code and source as epigraphy and palaeography","Virtual ethnography","Procedurally generated environments and artifacts","Minecraft","Elder Scrolls","World of Warcraft","Fallout","Mass Effect","etc","Real and virtual commerce economics and numismatics","Real-world manifestation of virtual world artifacts","Cosplay and game-derived experimental archaeology","In-world museums","Real-world museum")
archaeogamingmap <- data.frame(src, target)
simpleNetwork(networkData)
simpleNetwork(archaeogamingmap)
Flare <- jsonlite::fromJSON(URL, simplifyDataFrame = FALSE)
radialNetwork(List = Flare, fontSize = 10, opacity = 0.9)
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, width = 500)
p
diagonalNetwork(List = Flare, fontSize = 10, fontFamily = "xkcd", opacity = 0.9, width = 500)
radialNetwork(List = Flare, fontSize = 10, opacity = 0.9)
options(java.parameters = "-Xmx5120m")
Needed <- c("tm", "SnowballCC", "RColorBrewer", "ggplot2", "wordcloud", "biclust",
"cluster", "igraph", "fpc")
cname <- file.path("/Users", "shawngraham", "atip", "tm")
cname
dir(cname)
library(tm)
docs <- Corpus(DirSource(cname))
## Preprocessing
docs <- tm_map(docs, removePunctuation)   # *Removing punctuation:*
docs <- tm_map(docs, removeNumbers)      # *Removing numbers:*
docs <- tm_map(docs, tolower)   # *Converting to lowercase:*
docs <- tm_map(docs, removeWords, stopwords("english"))   # *Removing "stopwords"
library(SnowballC)
docs <- tm_map(docs, stemDocument)   # *Removing common word endings* (e.g., "ing", "es")
docs <- tm_map(docs, stripWhitespace)   # *Stripping whitespace
docs <- tm_map(docs, PlainTextDocument)
## *This is the end of the preprocessing stage.*
### Stage the Data
dtm <- DocumentTermMatrix(docs)
tdm <- TermDocumentMatrix(docs)
### Explore your data
freq <- colSums(as.matrix(dtm))
length(freq)
ord <- order(freq)
m <- as.matrix(dtm)
dim(m)
write.csv(m, file="DocumentTermMatrix.csv")
### FOCUS - on just the interesting stuff...
#  Start by removing sparse terms:
dtms <- removeSparseTerms(dtm, 0.1) # This makes a matrix that is 10% empty space, maximum.
### Word Frequency
head(table(freq), 20)
# The above output is two rows of numbers. The top number is the frequency with which
# words appear and the bottom number reflects how many words appear that frequently.
#
tail(table(freq), 20)
# Considering only the 20 greatest frequencies
#
# **View a table of the terms after removing sparse terms, as above.
freq <- colSums(as.matrix(dtms))
freq
# The above matrix was created using a data transformation we made earlier.
# **An alternate view of term frequency:**
# This will identify all terms that appear frequently (in this case, 50 or more times).
findFreqTerms(dtm, lowfreq=50)   # Change "50" to whatever is most appropriate for your data.
#
library(ggplot2)
wf <- data.frame(word=names(freq), freq=freq)
p <- ggplot(subset(wf, freq>150), aes(word, freq))
p <- p + geom_bar(stat="identity")
p <- p + theme(axis.text.x=element_text(angle=45, hjust=1))
p
findAssocs(dtm, c("canada" , "canadian"), corlimit=0.98) # specifying a correlation limit of 0.98
library(fpc)
library(cluster)
dtms <- removeSparseTerms(dtm, 0.15) # Prepare the data (max 15% empty space)
d <- dist(t(dtms), method="euclidian")
kfit <- kmeans(d, 2)
library(timevis)
install.packages("timevis")
data <- data.frame(
id      = 1:4,
content = c("Item one", "Item two",
"Ranged item", "Item four"),
start   = c("2016-01-10", "2016-01-11",
"2016-01-20", "2016-02-14 15:00:00"),
end     = c(NA, NA, "2016-02-04", NA)
)
timevis(data)
library(timevis)
timevis(data)
data <- data.frame(
id      = 1:4,
content = c("Item one", "Item two",
"Ranged item", "Item four"),
start   = c("16-01-10", "16-01-11",
"16-01-20", "16-02-14 15:00:00"),
end     = c(NA, NA, "2016-02-04", NA)
)
timevis(data)
data <- data.frame(
id      = 1:10,
content = c("Small emissions", "Eruption",
"Pumice begins to rain down", "Ash cloud now rises 25 km above, blocking the sun",
"Superheated mudflows bury Herculaneum",
"Volcanic plume begins to collapse & pyroclastic flow covers Herculaneum",
"Earthquakes & second pyroclastic surge covers Herculaneum",
"Third pyroclastic surge hits Pompeii's northern wall",
"Series of surges finally buries Pompeii, killing all who remain",
"Another round of surges, storms, and eruption-induced lightening; buries or destroys the tallest buildings; surge reaches Stabiae"),
start   = c("79-08-24 08:00:00", "79-08-24 13:00:00",
"79-08-24 15:00:00", "79-08-24 17:00:00",
"79-08-25 01:00:00", "79-08-25 04:00:00",
"79-08-25 05:00:00", "79-08-25 06:30:00",
"79-08-25 06:30:00", "79-08-25 08:00:00"),
end     = c(NA, "79-08-27"", NA, NA)
)
timevis(data)
)
''
)
)))
data <- data.frame(
id      = 1:10,
content = c("Small emissions", "Eruption",
"Pumice begins to rain down", "Ash cloud now rises 25 km above, blocking the sun",
"Superheated mudflows bury Herculaneum",
"Volcanic plume begins to collapse & pyroclastic flow covers Herculaneum",
"Earthquakes & second pyroclastic surge covers Herculaneum",
"Third pyroclastic surge hits Pompeii's northern wall",
"Series of surges finally buries Pompeii, killing all who remain",
"Another round of surges, storms, and eruption-induced lightening; buries or destroys the tallest buildings; surge reaches Stabiae"),
start   = c("79-08-24 08:00:00", "79-08-24 13:00:00",
"79-08-24 15:00:00", "79-08-24 17:00:00",
"79-08-25 01:00:00", "79-08-25 04:00:00",
"79-08-25 05:00:00", "79-08-25 06:30:00",
"79-08-25 06:30:00", "79-08-25 08:00:00"),
end     = c(NA, "79-08-27"", NA, NA)
data <- data.frame(
id      = 1:10,
content = c("Small emissions", "Eruption",
"Pumice begins to rain down", "Ash cloud now rises 25 km above, blocking the sun",
"Superheated mudflows bury Herculaneum",
"Volcanic plume begins to collapse & pyroclastic flow covers Herculaneum",
"Earthquakes & second pyroclastic surge covers Herculaneum",
"Third pyroclastic surge hits Pompeii's northern wall",
"Series of surges finally buries Pompeii, killing all who remain",
"Another round of surges, storms, and eruption-induced lightening; buries or destroys the tallest buildings; surge reaches Stabiae"),
start   = c("79-08-24 08:00:00", "79-08-24 13:00:00",
"79-08-24 15:00:00", "79-08-24 17:00:00",
"79-08-25 01:00:00", "79-08-25 04:00:00",
"79-08-25 05:00:00", "79-08-25 06:30:00",
"79-08-25 06:30:00", "79-08-25 08:00:00"),
end     = c(NA, "79-08-27", NA, NA, NA, NA, NA, NA, NA)
)
data <- data.frame(
id      = 1:10,
content = c("Small emissions", "Eruption",
"Pumice begins to rain down", "Ash cloud now rises 25 km above, blocking the sun",
"Superheated mudflows bury Herculaneum",
"Volcanic plume begins to collapse & pyroclastic flow covers Herculaneum",
"Earthquakes & second pyroclastic surge covers Herculaneum",
"Third pyroclastic surge hits Pompeii's northern wall",
"Series of surges finally buries Pompeii, killing all who remain",
"Another round of surges, storms, and eruption-induced lightening; buries or destroys the tallest buildings; surge reaches Stabiae"),
start   = c("79-08-24 08:00:00", "79-08-24 13:00:00",
"79-08-24 15:00:00", "79-08-24 17:00:00",
"79-08-25 01:00:00", "79-08-25 04:00:00",
"79-08-25 05:00:00", "79-08-25 06:30:00",
"79-08-25 06:30:00", "79-08-25 08:00:00"),
end     = c(NA, "79-08-27", NA, NA, NA, NA, NA, NA, NA, NA)
)
timevis(data)
data <- data.frame(
id      = 1:10,
content = c("Small emissions", "Eruption",
"Pumice begins to rain down", "Ash cloud now rises 25 km above, blocking the sun",
"Superheated mudflows bury Herculaneum",
"Volcanic plume begins to collapse & pyroclastic flow covers Herculaneum",
"Earthquakes & second pyroclastic surge covers Herculaneum",
"Third pyroclastic surge hits Pompeii's northern wall",
"Series of surges finally buries Pompeii, killing all who remain",
"Another round of surges, storms, and eruption-induced lightening; buries or destroys the tallest buildings; surge reaches Stabiae"),
start   = c("0079-08-24 08:00:00", "0079-08-24 13:00:00",
"0079-08-24 15:00:00", "0079-08-24 17:00:00",
"0079-08-25 01:00:00", "0079-08-25 04:00:00",
"0079-08-25 05:00:00", "0079-08-25 06:30:00",
"0079-08-25 06:30:00", "0079-08-25 08:00:00"),
end     = c(NA, "0079-08-27", NA, NA, NA, NA, NA, NA, NA, NA)
)
timevis(data)
data <- data.frame(
id      = 1:10,
content = c("Small emissions",
"Pumice begins to rain down", "Ash cloud now rises 25 km above, blocking the sun",
"Superheated mudflows bury Herculaneum",
"Volcanic plume begins to collapse & pyroclastic flow covers Herculaneum",
"Earthquakes & second pyroclastic surge covers Herculaneum",
"Third pyroclastic surge hits Pompeii's northern wall",
"Series of surges finally buries Pompeii, killing all who remain",
"Another round of surges, storms, and eruption-induced lightening; buries or destroys the tallest buildings; surge reaches Stabiae"),
start   = c("0079-08-24 08:00:00", "0079-08-24 13:00:00",
"0079-08-24 15:00:00", "0079-08-24 17:00:00",
"0079-08-25 01:00:00", "0079-08-25 04:00:00",
"0079-08-25 05:00:00", "0079-08-25 06:30:00",
"0079-08-25 06:30:00", "0079-08-25 08:00:00"),
end     = c(NA, NA, NA, NA, NA, NA, NA, NA, NA)
)
timevis(data)
data <- data.frame(
id      = 1:10,
content = c("Small emissions",
"Pumice begins to rain down", "Ash cloud now rises 25 km above, blocking the sun",
"Superheated mudflows bury Herculaneum",
"Volcanic plume begins to collapse & pyroclastic flow covers Herculaneum",
"Earthquakes & second pyroclastic surge covers Herculaneum",
"Third pyroclastic surge hits Pompeii's northern wall",
"Series of surges finally buries Pompeii, killing all who remain",
"Another round of surges, storms, and eruption-induced lightening; buries or destroys the tallest buildings; surge reaches Stabiae"),
start   = c("0079-08-24 08:00:00",
"0079-08-24 15:00:00", "0079-08-24 17:00:00",
"0079-08-25 01:00:00", "0079-08-25 04:00:00",
"0079-08-25 05:00:00", "0079-08-25 06:30:00",
"0079-08-25 06:30:00", "0079-08-25 08:00:00"),
end     = c(NA, NA, NA, NA, NA, NA, NA, NA, NA)
)
data <- data.frame(
id      = 1:9,
content = c("Small emissions",
"Pumice begins to rain down", "Ash cloud now rises 25 km above, blocking the sun",
"Superheated mudflows bury Herculaneum",
"Volcanic plume begins to collapse & pyroclastic flow covers Herculaneum",
"Earthquakes & second pyroclastic surge covers Herculaneum",
"Third pyroclastic surge hits Pompeii's northern wall",
"Series of surges finally buries Pompeii, killing all who remain",
"Another round of surges, storms, and eruption-induced lightening; buries or destroys the tallest buildings; surge reaches Stabiae"),
start   = c("0079-08-24 08:00:00", "0079-08-24 13:00:00",
"0079-08-24 15:00:00", "0079-08-24 17:00:00",
"0079-08-25 01:00:00", "0079-08-25 04:00:00",
"0079-08-25 05:00:00", "0079-08-25 06:30:00",
"0079-08-25 06:30:00", "0079-08-25 08:00:00"),
end     = c(NA, NA, NA, NA, NA, NA, NA, NA, NA)
)
timevis(data)
rm(data)
data <- data.frame(
id      = 1:9,
content = c("Small emissions",
"Pumice begins to rain down", "Ash cloud now rises 25 km above, blocking the sun",
"Superheated mudflows bury Herculaneum",
"Volcanic plume begins to collapse & pyroclastic flow covers Herculaneum",
"Earthquakes & second pyroclastic surge covers Herculaneum",
"Third pyroclastic surge hits Pompeii's northern wall",
"Series of surges finally buries Pompeii, killing all who remain",
"Another round of surges, storms, and eruption-induced lightening; buries or destroys the tallest buildings; surge reaches Stabiae"),
start   = c("0079-08-24 08:00:00", "0079-08-24 13:00:00",
"0079-08-24 15:00:00", "0079-08-24 17:00:00",
"0079-08-25 01:00:00", "0079-08-25 04:00:00",
"0079-08-25 05:00:00", "0079-08-25 06:30:00",
"0079-08-25 06:30:00", "0079-08-25 08:00:00"),
end     = c(NA, NA, NA, NA, NA, NA, NA, NA, NA)
)
timevis(data)
data <- data.frame(
id      = 1:9,
content = c("Small emissions",
"Pumice begins to rain down", "Ash cloud now rises 25 km above, blocking the sun",
"Superheated mudflows bury Herculaneum",
"Volcanic plume begins to collapse & pyroclastic flow covers Herculaneum",
"Earthquakes & second pyroclastic surge covers Herculaneum",
"Third pyroclastic surge hits Pompeii's northern wall",
"Series of surges finally buries Pompeii, killing all who remain",
"Another round of surges, storms, and eruption-induced lightening; buries or destroys the tallest buildings; surge reaches Stabiae"),
start   = c("0079-08-24 08:00:00", "0079-08-24 13:00:00",
"0079-08-24 15:00:00", "0079-08-24 17:00:00",
"0079-08-25 01:00:00", "0079-08-25 04:00:00",
"0079-08-25 05:00:00", "0079-08-25 06:30:00",
"0079-08-25 06:30:00", "0079-08-25 08:00:00"),
end     = c(NA, NA, NA, NA, NA, NA, NA, NA, NA)
)
data <- data.frame(
id      = 1:9,
content = c("Small emissions",
"Pumice begins to rain down", "Ash cloud now rises 25 km above, blocking the sun",
"Superheated mudflows bury Herculaneum",
"Volcanic plume begins to collapse & pyroclastic flow covers Herculaneum",
"Earthquakes & second pyroclastic surge covers Herculaneum",
"Third pyroclastic surge hits Pompeii's northern wall",
"Series of surges finally buries Pompeii, killing all who remain",
"Another round of surges, storms, and eruption-induced lightening; buries or destroys the tallest buildings; surge reaches Stabiae"),
start   = c("0079-08-24 08:00:00",
"0079-08-24 15:00:00", "0079-08-24 17:00:00",
"0079-08-25 01:00:00", "0079-08-25 04:00:00",
"0079-08-25 05:00:00", "0079-08-25 06:30:00",
"0079-08-25 06:30:00", "0079-08-25 08:00:00"),
end     = c(NA, NA, NA, NA, NA, NA, NA, NA, NA)
)
timevis(data)
library(shiny)
data <- data.frame(
id      = 1:9,
content = c("Small emissions",
"Pumice begins to rain down", "Ash cloud now rises 25 km above, blocking the sun",
"Superheated mudflows bury Herculaneum",
"Volcanic plume begins to collapse & pyroclastic flow covers Herculaneum",
"Earthquakes & second pyroclastic surge covers Herculaneum",
"Third pyroclastic surge hits Pompeii's northern wall",
"Series of surges finally buries Pompeii, killing all who remain",
"Another round of surges, storms, and eruption-induced lightening; buries or destroys the tallest buildings; surge reaches Stabiae"),
start   = c("0079-08-24 08:00:00",
"0079-08-24 15:00:00", "0079-08-24 17:00:00",
"0079-08-25 01:00:00", "0079-08-25 04:00:00",
"0079-08-25 05:00:00", "0079-08-25 06:30:00",
"0079-08-25 06:30:00", "0079-08-25 08:00:00"),
end     = c(NA, NA, NA, NA, NA, NA, NA, NA, NA)
)
ui <- fluidPage(
timevisOutput("timeline")
)
server <- function(input, output, session) {
output$timeline <- renderTimevis({
timevis(data)
})
}
shinyApp(ui = ui, server = server)
devtools::install_github("wch/webshot"
)
install.packages("webshot::install_phantomjs()")
getwd()
setwd("github/presentations")
getwd()