James Thomson jamesthomson
jamesthomson
/ bpi_plotly.R
Created
August 30, 2014 15:42
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| bpi_genre_sales_perc <- read.csv("http://myinspirationinformation.com/wp-content/uploads/2014/08/bpi_genre_sales_perc.csv") | |
| bpi_sales_revenue <- read.csv("http://myinspirationinformation.com/wp-content/uploads/2014/08/bpi_sales_revenue.csv") | |
| library(ggplot2) | |
| library(reshape2) | |
| library(ggthemes) | |
| library(plotly) | |
| sales_perc_melt<-melt(bpi_genre_sales_perc) | |
| sales_perc_albums<-sales_perc_melt[sales_perc_melt$Type=="Albums",] |
jamesthomson
/ r2d3 demo.R
Created
August 16, 2014 11:08
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| data(counties) | |
| JSON<-jsonNestedData(structure=counties[,1:3], values=counties[,4], top_label="UK") | |
| D3Tree(JSON, file_out="Tree.html") | |
| hc.ave <- hclust(dist(USArrests), "ave") | |
| hc.single <- hclust(dist(USArrests), "single") | |
| hc.ward <- hclust(dist(USArrests), "ward.D") | |
| cut.ave<-cutree(hc.ave, k=6) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(SpotifyAPI) | |
| out<-visDiscography(artist="Shuggie Otis", output_file="Shuggie Disco.html") |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| install.packages("devtools") | |
| library("devtools") | |
| install_github("jamesthomson/R2D3") |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(rjson) | |
| #convert output from hclust into a nested JSON file | |
| HCtoJSON<-function(hc){ | |
| labels<-hc$labels | |
| merge<-data.frame(hc$merge) | |
| for (i in (1:nrow(merge))) { |
NewerOlder