Skip to content

Instantly share code, notes, and snippets.

@jdavidson
jdavidson / round-analysis.R
Created January 6, 2014 18:55
Script to visualize Crunchbase funding rounds data
library(ggplot2)
library(plyr)
library(lubridate)
library(scales)
options(scipen=999)
options(stringsAsFactors = FALSE)
rounds <- read.csv("2013-11-04-crunchbase_monthly_export_rounds.csv")
# exclude non venture rounds (other, private equity, post-ipo)
rounds <- subset(rounds, funding_round_type %in% c("venture", "angel", "crowdfunding", "series-a", "series-b", "series-c+"))
@jdavidson
jdavidson / lifetime.R
Created January 13, 2014 19:25
An analysis of crunchbase data for start up financing timing.
library(ggplot2)
library(ggthemes)
library(plyr)
library(lubridate)
library(scales)
library(data.table)
options(scipen=999)
options(stringsAsFactors = FALSE)
rounds <- read.csv("2014-01-06-crunchbase_monthly_export_rounds.csv")
@jdavidson
jdavidson / location.R
Created January 24, 2014 03:01
geographic visualization of start up fund raising trends
require(ggmap)
require(animation)
library(ggplot2)
library(ggthemes)
library(dplyr)
library(lubridate)
library(scales)
library(data.table)
library(reshape2)
options(scipen=999)
@jdavidson
jdavidson / google-trends.R
Created January 27, 2014 18:45
Quick and dirty analysis of iPhone Sales and Google Trends
@jdavidson
jdavidson / region.R
Created February 3, 2014 16:19
Regional analysis of Crunchbase data
library(ggplot2)
library(ggthemes)
library(dplyr)
library(lubridate)
library(scales)
library(data.table)
library(reshape2)
options(scipen=999)
options(stringsAsFactors = FALSE)
@jdavidson
jdavidson / category.R
Created February 3, 2014 18:41
Analysis of start up category performance from crunchbase
library(ggplot2)
library(ggthemes)
library(dplyr)
library(lubridate)
library(scales)
library(data.table)
library(reshape2)
options(scipen=999)
options(stringsAsFactors = FALSE)
@jdavidson
jdavidson / year.R
Created February 9, 2014 23:43
Analysis of unicorns and crunchbase company status by founding year
library(ggplot2)
library(ggthemes)
library(dplyr)
library(lubridate)
library(scales)
library(data.table)
library(reshape2)
options(scipen=999)
options(stringsAsFactors = FALSE)
@jdavidson
jdavidson / investors.R
Created February 24, 2014 16:11
Analysis of follow on rates by investor class
library(ggplot2)
library(ggthemes)
library(plyr)
library(dplyr)
library(lubridate)
library(scales)
library(data.table)
library(reshape2)
options(scipen=999)
options(stringsAsFactors = FALSE)
@jdavidson
jdavidson / exit-analysis.R
Created April 1, 2014 00:35
Analysis of crunchbase acquisition data.
library(ggplot2)
library(ggthemes)
library(plyr)
library(dplyr)
library(lubridate)
library(scales)
library(data.table)
library(reshape2)
options(scipen=999)
options(stringsAsFactors = FALSE)
@jdavidson
jdavidson / funding-trends.R
Created April 21, 2014 02:35
Venture Funding Trends with Crunchbase Data