MBA 677 Assignment 1

Katrina Pooler

June 24, 2018

kickstarter = read.csv("MBA 677 Assignment 1.csv")

colnames(kickstarter) <- c("Projects", "Launched", "Successful", "Amount_Pledged", "Total_Pledges", "Success_Rate", "Average_Pledge")
kickstarter <- kickstarter %>%
  filter(Amount_Pledged >1) %>%
  mutate(Amount_Pledged_Millions = round((Amount_Pledged / 1000000), digits=1)) %>%
  arrange(Amount_Pledged_Millions)

ggplot(kickstarter, aes(Projects, Amount_Pledged_Millions, fill= Total_Pledges)) +
  geom_bar(stat = "identity")  +
  geom_point(aes(y= Success_Rate, size= Success_Rate), color= "yellow", alpha= .6) +
  geom_text(aes(label= Success_Rate, y= Success_Rate, size= 1)) +
  theme(text = element_text(size=7),
        axis.text.x = element_text(angle=75, hjust=1)) +
  scale_y_continuous(sec.axis = sec_axis(~.*1, name = "Success Rate %")) +
  ggtitle("Crowdfunded Projects on Kickstarter: 2012") +
  ylab("Amount Pledged (in millions)" )