I'm not sure I understand what you want, but here's an attempt:
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
library(ggplot2)
dataset = read.csv(file = "https://raw.githubusercontent.com/jbrownlee/Datasets/master/shampoo.csv",
stringsAsFactors = FALSE)
dataset %>%
transmute(Dates = as.Date(x = Month,
format = "%d-%m"),
Months = factor(x = months(x = Dates),
levels = month.name),
Weekdays = factor(x = weekdays(x = Dates),
levels = c("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday")),
is_weekend = (Weekdays %in% c("Saturday", "Sunday")),
sales = Sales) %>%
ggplot(mapping = aes(x = Dates,
y = sales)) +
geom_point(mapping = aes(colour = is_weekend)) +
facet_grid(rows = vars(Weekdays),
cols = vars(Months)) +
theme(axis.text.x = element_blank())

Created on 2019-08-30 by the reprex package (v0.3.0)