MBA Kickstarter Assignment

kickstarter <- read.csv("A2_kickstart.csv", header = TRUE)
kickstarter <- na.omit(kickstarter)
str(kickstarter)

## 'data.frame':    13 obs. of  7 variables:
##  $ Crowdfunded.projects.on.Kickstarter..2012: Factor w/ 15 levels "","Art","Comics",..: 9 7 5 10 14 12 8 2 3 15 ...
##  $ Launched                                 : int  2796 9600 1882 9086 831 5634 1828 3783 1170 1787 ...
##  $ Successful                               : int  911 3891 759 5067 312 1666 688 1837 542 1194 ...
##  $ Money.pledged...                         : int  83144565 57951876 50124041 34953600 29003932 15311251 11117486 10477939 9242233 7084968 ...
##  $ Pledges                                  : int  1378143 647361 536469 522441 270912 262738 138204 155782 177070 95225 ...
##  $ Success.rate...                          : num  32.6 40.5 40.3 55.8 37.5 29.6 37.6 48.6 46.3 66.8 ...
##  $ Average.pledge...                        : num  60.3 89.5 93.4 66.9 107.1 ...
##  - attr(*, "na.action")=Class 'omit'  Named int [1:2] 14 15
##   .. ..- attr(*, "names")= chr [1:2] "14" "15"

colnames(kickstarter) <- c("Projects", "Launched", "Successful", "Amount.Pledged", "Pledges", "Success.Rate", "Average.Pledge")

kickstarter <- kickstarter %>%
  filter(Amount.Pledged >1) %>%
  mutate(Amount.Pledged = round((Amount.Pledged / 1000000), digits=1))

head(kickstarter)

##       Projects Launched Successful Amount.Pledged Pledges Success.Rate
## 1        Games     2796        911           83.1 1378143         32.6
## 2 Film & Video     9600       3891           58.0  647361         40.5
## 3       Design     1882        759           50.1  536469         40.3
## 4        Music     9086       5067           35.0  522441         55.8
## 5   Technology      831        312           29.0  270912         37.5
## 6   Publishing     5634       1666           15.3  262738         29.6
##   Average.Pledge
## 1           60.3
## 2           89.5
## 3           93.4
## 4           66.9
## 5          107.1
## 6           58.3

ks <- ggplot(kickstarter, aes(x = reorder(Projects, +Success.Rate))) + 
              geom_bar(stat="identity", aes(y = Amount.Pledged, fill = Amount.Pledged)) +
              geom_text(aes(label=Amount.Pledged, y = Amount.Pledged),vjust=-0.1,color="black", size=3) +
              geom_point(col = "deeppink4", size = 3, shape = 15, aes(y = Success.Rate)) +
              theme(axis.text.x=element_text(angle=90,hjust=4,vjust=0.5)) +
              geom_text(aes(label=Success.Rate, y = Success.Rate),vjust=2.2,color="blue", size=3) +
              theme(legend.position = "bottom") +
              ggtitle("2012 Kickstarter Projects") +
              xlab("Category") +
              ylab("Dollars Pledged (Millions)")

ks2 <- ks + scale_fill_distiller(palette = "Spectral")

ks2 + coord_flip() +
  labs(fill = "Dollars Pledged (Millions)")