library(ggplot2)
ggplot(foo6, aes(x=area, y=fd, colour = id)) + geom_point()
id lon lat area fd tp rt
West -109.3906 48.57889 349.6484 5.500000e+01 5.00000000 50.0000000
West -109.3906 48.57889 349.6484 1.775000e+01 5.00000000 12.7500000
library(ggplot2)
ggplot(foo6, aes(x=area, y