Try subsetting the data.
dat1 <- subset(Allsites_data, Site == "Brownstown")
Then graph dat1
Rince and repeat for each value of Site
There are other ways and probably better ones but this should work in base R
For future reference, here are some hints on asking questions in the forum.
1 Like