View round-analysis.R
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+")) |
View lifetime.R
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") |
View location.R
require(ggmap) | |
require(animation) | |
library(ggplot2) | |
library(ggthemes) | |
library(dplyr) | |
library(lubridate) | |
library(scales) | |
library(data.table) | |
library(reshape2) | |
options(scipen=999) |
View google-trends.R
library(ggplot2) | |
require(reshape2) | |
library(dplyr) | |
library(lubridate) | |
library(scales) | |
options(scipen=999) | |
options(stringsAsFactors = FALSE) | |
sales <- read.csv("quarterly-iphone-sales.csv") | |
ggplot(sales, aes(x=quarter, y=sales)) + geom_point() |
View region.R
library(ggplot2) | |
library(ggthemes) | |
library(dplyr) | |
library(lubridate) | |
library(scales) | |
library(data.table) | |
library(reshape2) | |
options(scipen=999) | |
options(stringsAsFactors = FALSE) |
View category.R
library(ggplot2) | |
library(ggthemes) | |
library(dplyr) | |
library(lubridate) | |
library(scales) | |
library(data.table) | |
library(reshape2) | |
options(scipen=999) | |
options(stringsAsFactors = FALSE) |
View year.R
library(ggplot2) | |
library(ggthemes) | |
library(dplyr) | |
library(lubridate) | |
library(scales) | |
library(data.table) | |
library(reshape2) | |
options(scipen=999) | |
options(stringsAsFactors = FALSE) |
View investors.R
library(ggplot2) | |
library(ggthemes) | |
library(plyr) | |
library(dplyr) | |
library(lubridate) | |
library(scales) | |
library(data.table) | |
library(reshape2) | |
options(scipen=999) | |
options(stringsAsFactors = FALSE) |
View exit-analysis.R
library(ggplot2) | |
library(ggthemes) | |
library(plyr) | |
library(dplyr) | |
library(lubridate) | |
library(scales) | |
library(data.table) | |
library(reshape2) | |
options(scipen=999) | |
options(stringsAsFactors = FALSE) |
View funding-trends.R
library(ggplot2) | |
library(ggthemes) | |
library(plyr) | |
library(dplyr) | |
library(lubridate) | |
library(scales) | |
library(data.table) | |
library(reshape2) | |
options(scipen=999) | |
options(stringsAsFactors = FALSE) |
OlderNewer