library(RColorBrewer)
library(ggplot2)
## Registered S3 methods overwritten by 'ggplot2':
##   method         from 
##   [.quosures     rlang
##   c.quosures     rlang
##   print.quosures rlang
library(ggthemes)
library(ggrepel)
kickstart <- read.csv("~/RStudio/A2_kickstart - Sheet1.csv")
kickstart <- kickstart[-c(14, 15),]
colnames(kickstart) <- c("categories", "launched", "successful", "money.pledged", "pledges", 
                         "success.rate", "average.pledge")
kickstart["success.rate"] <- kickstart["success.rate"]/100
kickstart["money.pledged.millions"] <- kickstart["money.pledged"]/1000000
head(kickstart)
##     categories launched successful money.pledged pledges success.rate
## 1        Games     2796        911      83144565 1378143        0.326
## 2 Film & Video     9600       3891      57951876  647361        0.405
## 3       Design     1882        759      50124041  536469        0.403
## 4        Music     9086       5067      34953600  522441        0.558
## 5   Technology      831        312      29003932  270912        0.375
## 6   Publishing     5634       1666      15311251  262738        0.296
##   average.pledge money.pledged.millions
## 1           60.3               83.14457
## 2           89.5               57.95188
## 3           93.4               50.12404
## 4           66.9               34.95360
## 5          107.1               29.00393
## 6           58.3               15.31125
summary(kickstart)
##         categories    launched      successful   money.pledged     
##  Art         :1    Min.   : 512   Min.   : 312   Min.   : 1773304  
##  Comics      :1    1st Qu.:1197   1st Qu.: 434   1st Qu.: 7084968  
##  Dance       :1    Median :1828   Median : 759   Median :11117486  
##  Design      :1    Mean   :3213   Mean   :1393   Mean   :24598971  
##  Fashion     :1    3rd Qu.:3783   3rd Qu.:1666   3rd Qu.:34953600  
##  Film & Video:1    Max.   :9600   Max.   :5067   Max.   :83144565  
##  (Other)     :7                                                    
##     pledges         success.rate    average.pledge  
##  Min.   :  23807   Min.   :0.2620   Min.   : 52.20  
##  1st Qu.:  95225   1st Qu.:0.3570   1st Qu.: 66.90  
##  Median : 177070   Median :0.4030   Median : 74.40  
##  Mean   : 333674   Mean   :0.4399   Mean   : 74.68  
##  3rd Qu.: 522441   3rd Qu.:0.4860   3rd Qu.: 80.40  
##  Max.   :1378143   Max.   :0.7440   Max.   :107.10  
##                                                     
##  money.pledged.millions
##  Min.   : 1.773        
##  1st Qu.: 7.085        
##  Median :11.117        
##  Mean   :24.599        
##  3rd Qu.:34.954        
##  Max.   :83.145        
## 
pallete <- colorRampPalette(brewer.pal(12, "Paired"))
ggplot(kickstart, aes(x=launched, y=money.pledged.millions, size=success.rate, color=factor(categories)))+
  geom_point(shape=16, alpha=0.7) + 
  geom_label_repel( aes(label=success.rate*100), box.padding= 0.35, point.padding = 0.5, segment.color = 'grey50', color="black", nudge_x = 600, size=3, force=5) +
  scale_x_continuous(name="Launched Projects", labels=scales::comma) +
  scale_y_continuous(name="Total Money Pledged (In millions)", labels=scales::dollar) + 
  scale_size_continuous(name="Success Rate", labels=scales::percent) +
  scale_color_manual(name="Category", values=pallete(13))+ 
  guides(color = guide_legend(override.aes = list(size = 3))) +
  ggtitle("Crowdfunded Projects on Kickstarter in 2012") + theme_stata() + theme(legend.position = "bottom", legend.box = "vertical")

Film &Video have over 10,000 projecs fellowed by Music at 8,000 projects, Publishing is 6,000 projects,Art is 4,000 projects, and the rest is 2,500 projects . The plot allows you to see how succeful the project is by Category . For instance dance is the highest at 0.744 , followed by Music at 0.558 the rest less than 0.5 and below.