Hi,
May be this helps:
gg <- ggplot(plotdat, aes(x = Age, y = Probability, color = Level)) +
geom_line(size=2.5) + theme_bw() + xlim(10,80) + facet_grid(Sex ~ Treatment, #
scales = "free", labeller = function(x, y) sprintf("%s = %s", x, y) )
plotdat2 <- subset(plotdat,as.character(Improved)==as
Thanks, Dennis
Not quite. I need to have the same lines as in the original, using
plotdat, but then
add the points from your plotdat2
gg <- ggplot(plotdat, aes(x = Age, y = Probability, color = Level)) +
geom_line(size=2.5) + theme_bw() + xlim(10,80) +
#geom_point(color="black", size=
2 matches
Mail list logo