Skip to content
0

Where to focus a marketing campaign?

📖 Background

You are a data analyst at a crowdfunding site. For the next quarter, your company will be running a marketing campaign. The marketing manager wants to target those segments that have donated the most in the past year. She turned to you to help her with her upcoming meeting with the CEO.

💾 The data

You have access to the following information:

Historic crowdfunding donations

  • "category" - "Sports", "Fashion", "Technology", etc.
  • "device" - the type of device used.
  • "gender" - gender of the user.
  • "age range" - one of five age brackets.
  • "amount" - how much the user donated in Euros.

💪 Challenge

Create a single visualization that the marketing manager can use to explore the data. Include:

  1. What are the top three categories in terms of total donations?
  2. What device type has historically provided the most contributions?
  3. What age bracket should the campaign target?
library(ggplot2)
library(tidyverse)

suppressPackageStartupMessages(library(tidyverse))
df <- read_csv('data/crowdfunding.csv', show_col_types = FALSE)
head(df)

1. What are the top three categories in terms of total donations?

# 1. Top Three Categories in Terms of Total Donations (Bar Chart)
top_categories <- df %>%
  group_by(category) %>%
  summarise(total_donations = sum(amount)) %>%
  arrange(desc(total_donations)) %>%
  slice(1:3)

ggplot(top_categories, aes(x = category, y = total_donations, fill = category)) +
  geom_bar(stat = "identity") +
  labs(title = "Top Three Categories in Terms of Total Donations",
       x = "Category", y = "Total Donations") +
  theme_minimal()

The Top Three Categories in Terms of Total Donations are Games, Sports and Technology

2. What device type has historically provided the most contributions?

# 2. Device Type Contribution Over Time (Bar Chart)
device_contribution <- df%>%
  group_by(device) %>%
  summarise(total_contribution = sum(amount))

ggplot(device_contribution, aes(x = device, y = total_contribution, fill = device)) +
  geom_bar(stat = "identity") +
  labs(title = "Device Type Contribution",
       x = "Device", y = "Total Contribution") +
  theme_minimal()

iOS devices has historically provided the most contributions

3. What age bracket should the campaign target?

# 3. Age Bracket Contribution Distribution (Bar Chart)
age_contribution <- df %>%
  group_by(age) %>%
  summarise(total_contribution = sum(amount))

ggplot(age_contribution, aes(x = age, y = total_contribution, fill = age)) +
  geom_bar(stat = "identity") +
  labs(title = "Age Bracket Contribution Distribution",
       x = "Age Bracket", y = "Total Contribution") +
  theme_minimal()

The campaign should target age group 18-24 for the campaign