UK data

UK <- 
read.table(
file = 
"https://coronavirus.data.gov.uk/downloads/csv/coronavirus-cases_latest.csv",
stringsAsFactors = FALSE,
header=T,
sep=","
)

UKorig <- UK

UK     <- UK[, c(1,4,5)]
Barnet <- UK[UK["Area.name"] == "Barnet", ]
Harrow <- UK[UK["Area.name"] == "Harrow", ]
Barnet <- Barnet[, c(2,3)]
Harrow <- Harrow[, c(2,3)]

plot(Harrow[,2])

plot(Barnet[,2])