The reason why there is no legend say by default is because the color argument is set out of aes:

geom_line(data=Sandusky8, aes(x=ProperDateTime, y=TKN, color='grey54'))

That being said, you would usually 'plug' it on some variable and tune the color using one of the scale* function.

Here is an example output (with dummy data)