Hands-On Data Science for Marketing

Engagement rates by sales channel and vehicle size

In this section, we will take a look at whether customers with various vehicle sizes respond differently to different sales channels. Take a look at the following code to compute the engagement rates per sales channel and vehicle size:

## - Sales Channel & Vehicle Size ##engagementRateBySalesChannelVehicleSize <- df %>%   group_by(Sales.Channel, Vehicle.Size) %>%  summarise(NumEngaged=sum(Engaged)) %>%  left_join(engagementRateBySalesChannel[,c("Sales.Channel", "Count")], by="Sales.Channel") %>%  mutate(EngagementRate=NumEngaged/Count*100.0)

The result looks as in the following:

As before, we ...