I'm exploring different campaigns and I have to tell which campaign is the best. I have created a ggplot for each campaign. e.g., ggplot campaign 1, ggplot campaign 2 etc. However, I don't know how to put all my plots in a single one.
For example, one of my class mate managed to do it. see next photo
A screenshot is not particularly usufull.
A reproducible example (reprex)
would be much more helpful.
Hi,
it's not letting me uploading the dataset in here. I will try to provide as much information as possible. The brief is I have been asked to looked at The Company X campaigns and decide which campaign is the best and for each department.
This is my script
#>>>>>>>>>>>>>>>>>>Company X Script>>>>>>>>>>>>>>>
#start script with this to clear variables in the environment >>>>>
rm(list = ls())
library(tidyverse)
#to check if it has been set correctly
getwd()
#Load Company X data
campaign <- read_csv("campaign_data.csv")
customer <- read_csv("customer_data.csv")
purchase <- read_csv("purchase_data.csv")
#making the data ready for analysis
#Merge the datasets (campaign, customer and purchase)
merged <- campaign %>%
full_join(customer) %>%
full_join(purchase)
glimpse(merged)
#Changing the format of the campaigns
merged <- merged %>%
mutate(Camp_1= as.factor(Camp_1),
Camp_2= as.factor(Camp_2),
Camp_3= as.factor(Camp_3),
Camp_4= as.factor(Camp_4),
Camp_5= as.factor(Camp_5),
Camp_6= as.factor(Camp_6))
#New datasets for overall sales in all campaigns
campaign_1 <- filter(merged, Camp_1 == 1)
campaign_2 <- filter(merged, Camp_2 == 1)
campaign_3 <- filter(merged, Camp_3 == 1)
campaign_4 <- filter(merged, Camp_4 == 1)
campaign_5 <- filter(merged, Camp_5 == 1)
campaign_6 <- filter(merged, Camp_6 == 1)
#Overall sales in Campaign 1
overall_sales <- campaign_1 %>%
mutate(Overall = Deal + Web + Catalogue + Store)
#Visuals for Overall Sales from Campaign 1
ggplot(overall_sales, aes(x= Camp_1, y= Overall))+
geom_col(fill = "blue")+
labs(x= "Campaign 1",
y= "Overall Sales",
title = "Overall Sales of Campaign 1",
subtitle = "Overall Sales includes purchases from Deal, Web, Catalogue and Store",
caption = "Created by Group 6") +
theme_bw() +
theme(plot.title = element_text(color = "black", size = 20, face = "bold"),
plot.subtitle = element_text(color= "black", size = 10, face = "italic"),
plot.caption = element_text(color = "black", face = "italic"),
axis.text.x = element_text(face = "bold", size = 10),
axis.text.y = element_text(face = "bold", size = 10))
#Overall sales in Campaign 2
overall_sales <- campaign_2 %>%
mutate(Overall = Deal + Web + Catalogue + Store)
#Visuals for Overall Sales from Campaign 2
ggplot(overall_sales, aes(x= Camp_2, y= Overall))+
geom_col(fill = "red")+
labs(x= "Campaign 2",
y= "Overall Sales",
title = "Overall Sales of Campaign 2",
subtitle = "Overall Sales includes purchases from Deal, Web, Catalogue and Store",
caption = "Created by Group 6") +
theme_bw() +
theme(plot.title = element_text(color = "black", size = 20, face = "bold"),
plot.subtitle = element_text(color= "black", size = 10, face = "italic"),
plot.caption = element_text(color = "black", face = "italic"),
axis.text.x = element_text(face = "bold", size = 10),
axis.text.y = element_text(face = "bold", size = 10))
I managed to create to create some plots but I don't know how to plotting results from different datasets in one graph. For example, having in the same graph the overall sales of each campaign in one graph. apparently, To achieve what you want you need to change the data structure but we never seen that in lectures. Someone suggested me to The easiest way is to create separate box plots for each campaign, and then arrange them on one slide. However, it means having 6 separate box plots in one slide to respond which campaign is the best.
Thanks for the code.
If I a reading it correctly the data.frame/tibble of interest is merged?
Can you supply original merged or a subset of it before any data transformations? A handy way to supply sample data is to use the dput() function. See ?dput. If merged is a very large data set then something like head(dput(myfile), 100) will likely supply enough data for us to work with.
Am I correct that you are simply trying to produce barcharts at the moment? I cannot be sure but I suspect that some of those new data.frames/tibbles (campaign_1 , etc.,) are adding unnecessary complications.
Morning,
Thanks for your reply. Yes, the database is "merged". I have merged the "campaign", "customers" and "purchase" and called it "merged" (this is the process we have seen in lecture). Yes, I'm trying to produce a graph with e.g. on x= Overall Sales, y= Campaign_1, Campaign_2, Campaign_3, Campaign_4, Campaign_5 and Campaign_6. At the minute, I managed to only create plots with x= Overall Sales, y= Campaign_1. I struggled to add it in one single graph. I used geom_col because I thought it was the best option but maybe I was wrong.
I will try the process you suggested to send the database. when you mean the dput(). is it in RStudio?
dput() is a function in base R so it is available in RStudio.
Just do dput(merged) and paste the output here. As mentioned above, if you have a really large data set try something like
dput(head(merged, 100))
which will give us the first 100 rows of the data.frame. head(0) is another base function that is handy if you want a quick look at data layouts.
This topic was automatically closed 21 days after the last reply. New replies are no longer allowed.
If you have a query related to it or one of the replies, start a new topic and refer back with a link.