ggplot(dummyc, aes(x = dummyc$Total.Value.of.Supplies,colour = dummyc$Tax.Period.Year)) +
geom_density()
library(reshape)
df.m = melt(dummyc)
ggplot(df.m) + geom_freqpoly(aes(x = dummyc$Total.Value.of.Supplies,
y=..density..))
Error: Aesthetics must be either length 1 or the same as the data (495): x