How do I write that? Below is how I separated into county data frames and then plotted.
But you are suggesting that I can plot it from the original data frame?
AustraliaDataMapMobilityTransit <- subset(transitData, region =="Australia")
BelgiumDataMapMobilityTransit <- subset(transitData, region == "Belgium")
BrazilDataMapMobilityTransit <- subset(transitData, region == "Brazil")
CanadaDataMapMobilityTransit <- subset(transitData, region == "Canada")
CzechRepublicDataMapMobilityTransit <- subset(transitData, region == "Czech Republic")
ggplot()+
geom_line(data = AustraliaDataMapMobilityTransit, aes(x = Dates, y= frequency), colour = "red")+
geom_line(data=BelgiumDataMapMobilityTransit, aes(x= Dates, y = frequency), colour = "blue")+
geom_line(data=BrazilDataMapMobilityTransit, aes(x= Dates, y = frequency), colour = "yellow")+
geom_line(data=CanadaDataMapMobilityTransit, aes(x= Dates, y = frequency), colour = "black")+
geom_line(data=CzechRepublicDataMapMobilityTransit, aes(x= Dates, y = frequency), colour = "orange")