Hi
I apologize for not providing reproducible codes more clearly, and I hope
this will be more understandable.
I have 14 lines (7 per facet that I would like to add). I will provide you
with six of the lines from the data as that should enough data to work
with, and also result in less plotting for all of us. These value are from a
previously conducted ancova, so not based on simple linear regression.
Line # Country Treatment Intercept Slope
1 Low A 81.47 47.267
2 Low B 31.809 20.234
3 Low C 69.892 33.717
4 High A 67.024 47.267
5 High B 17.357 20.234
6 High C 105.107 33.717
>From the help that I got here, i was able to make the plot I wanted.
ggplot(data = test, aes(x = year, y = total, colour = treatment)) +
geom_point(aes(shape = treatment)) +
facet_wrap(~country) +
scale_colour_grey(breaks=c('A','B','C','D','E','F','G'),
labels=c('label A','label B','label C','label D',
'label E','label F','label G')) +
scale_shape_manual(breaks=c('A','B','C','D','E','F','G'),
labels=c('label A','label B','label C','label D',
'label E','label F','label G'),
values = c(0, 1, 2, 3, 4, 5, 6)) +
scale_y_continuous("number of votes") +
scale_x_continuous("Years", breaks=1:4) +
theme_bw()+
And I added line #1 and # 4 using the abline command.
+geom_abline(intercept = 81.47, slope=47.267, colour = "black", size = 0.5,
subset = .(country == 'low'))+ geom_abline(intercept = 67.024, slope=47.267,
colour = " grey", size = 0.5, subset = .(country== 'high'))
How can I make the lines correspond with the descriptions on the right side
of the graph more clearly?
--
View this message in context:
http://r.789695.n4.nabble.com/grey-colored-lines-and-overwriting-labels-i-qqplot2-tp3657119p3677248.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
