r - How to differentiate Bars in geom_bar without color: ggplot -

note: similar question present @ link, posed separate question due to: 1) hack provided previos question thought make code unnecessary complex 2) thought after 2013 fix might have been suggested this

i using following code draw bars/stacks

  ggplot(finaldataframe,aes(day,score))+     geom_bar(aes(fill=identify),stat="identity",position = "dodge",width = .7, show.legend = true)+     labs(x= "day of month", y="anomaly score") +     scale_fill_discrete(name="method", labels=c("mean","maximum","cumulative \n sum"))+   theme(axis.text= element_text(color="black"))+ scale_x_continuous(breaks=seq(1,31,5)) 

a portion of output as

the problem figure once print via black , white printer gets hard differentiate between different stacks. there way make stacks differentiable on black , white print. looking this:

for reproduction, here dput of dataframe:

> dput(finaldataframe) finaldataframe = structure(list(day = c(1l, 2l, 3l, 4l, 5l, 6l, 7l, 8l, 9l, 10l,  11l, 12l, 13l, 14l, 15l, 16l, 17l, 18l, 19l, 20l, 21l, 22l, 23l,  24l, 25l, 26l, 27l, 28l, 29l, 30l, 31l, 1l, 2l, 3l, 4l, 5l, 6l,  7l, 8l, 9l, 10l, 11l, 12l, 13l, 14l, 15l, 16l, 17l, 18l, 19l,  20l, 21l, 22l, 23l, 24l, 25l, 26l, 27l, 28l, 29l, 30l, 31l, 1l,  2l, 3l, 4l, 5l, 6l, 7l, 8l, 9l, 10l, 11l, 12l, 13l, 14l, 15l,  16l, 17l, 18l, 19l, 20l, 21l, 22l, 23l, 24l, 25l, 26l, 27l, 28l,  29l, 30l, 31l), score = c(0, 0.02, 0.01, 0, 0.02, 0.01, 0.01,  0.02, 0.02, 0.28, 0.24, 0.01, 0.94, 0.22, 0.25, 0.01, 0.31, 0.22,  0.24, 0.83, 0.4, 0.44, 0.06, 0.02, 0.37, 0.07, 0.12, 0.06, 0.1,  0.06, 0.1, 0, 0.05, 0.04, 0.02, 0.05, 0.01, 0.02, 0.03, 0.04,  0.37, 0.36, 0.04, 1, 0.28, 0.34, 0.03, 0.55, 0.35, 0.32, 1, 0.71,  1, 0.13, 0.04, 0.47, 0.12, 0.17, 0.1, 0.18, 0.1, 0.14, 0, 0.02,  0.01, 0, 0.02, 0.01, 0.01, 0.02, 0.02, 0.3, 0.25, 0.01, 1, 0.23,  0.27, 0, 0.33, 0.24, 0.26, 0.89, 0.42, 0.47, 0.06, 0.02, 0.4,  0.07, 0.13, 0.06, 0.11, 0.06, 0.1), identify = structure(c(1l,  1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l,  1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 1l, 2l, 2l,  2l, 2l, 2l, 2l, 2l, 2l, 2l, 2l, 2l, 2l, 2l, 2l, 2l, 2l, 2l, 2l,  2l, 2l, 2l, 2l, 2l, 2l, 2l, 2l, 2l, 2l, 2l, 2l, 2l, 3l, 3l, 3l,  3l, 3l, 3l, 3l, 3l, 3l, 3l, 3l, 3l, 3l, 3l, 3l, 3l, 3l, 3l, 3l,  3l, 3l, 3l, 3l, 3l, 3l, 3l, 3l, 3l, 3l, 3l, 3l), .label = c("mean",  "maximum", "cummulative sum"), class = "factor")), .names = c("day",  "score", "identify"), row.names = c(na, 93l), class = "data.frame")