Assignment 1 : Kickstarter

kickstarter <- read.xls("A2_kickstart.xls")

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

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

## Warning: package 'bindrcpp' was built under R version 3.4.4

kick <- ggplot(kickstarter, aes(x = reorder(Projects, -Dollars.Pledged.mm))) + 
        geom_bar(stat = "identity", aes(y = Dollars.Pledged.mm, fill = Dollars.Pledged.mm)) + 
        geom_text(aes(label=Dollars.Pledged.mm, y = Dollars.Pledged.mm),vjust=-0.2,color="black", size=4) +
        scale_y_continuous(sec.axis = sec_axis(~./1, name = "Success Rate (%)")) + 
        geom_point(col = "orange", size = 5, aes(y = Success.Rate)) + 
        geom_text(aes(label=Success.Rate, y = Success.Rate),vjust=2.2,color="black", size=3) +
        ggtitle("Crowdfunded Projects on Kickstarter in 2012") +
        xlab("Type of Project") +
        ylab("Dollars Pledged (in millions)")
print(kick)