Rui: Thank you very much for your help! It works the way you do. My problem was with the time I declare the control group:
My code: p <- ggplot(data, aes(Pretrend, Outcome)) + geom_point(aes(colour=factor(Control)) Your solution: p <- ggplot(data, aes(Pretrend, Outcome, colour = factor(Control))) + geom_point() I believe that the time you are declaring the control group (inside the ggplot() function instead the geom_point()) makes your code do the right way and that my code links the last observation of group zero with the first observation of group one. Thank you Rui, and thanks all of you guys for take the time to read and answer my post. Regards Norberto El mar., 12 feb. 2019 a las 16:22, Rui Barradas (<ruipbarra...@sapo.pt>) escribió: > > Hello, > > I am not understanding the problem. > With a made up dataset everything seems right. > > set.seed(1234) # make the results reproducible > n <- 10 > data <- data.frame(Pretrend = rep(1:10, 2), > Outcome = 1:10 + rnorm(2*n), > Control = rep(1:2, each = n)) > > > library(ggplot2) > > p <- ggplot(data, aes(Pretrend, Outcome, colour = factor(Control))) + > geom_point() + > geom_path() + > labs(x = "Date", y = "Cases", title = "Intoxication Cases") > > p > > > I have changed the plot name because 'plot' is the name of a base R > function. > > What is the problem with the graph above? Is that what you were looking > for? (Or similar.) > > > Hope this helps, > > Rui Barradas > > > > Às 20:09 de 12/02/2019, Norberto Hernandez escreveu: > > Hi! I am trying to make a scatter/path graph in one variable that is > > divided in two groups (variable Control), but when I use the > > geom_path() option, the line continues from the group one to the group > > two, and I wasn't able to avoid it.I need the path draws over the > > group one and then draws over the group two avoiding the connection > > between the last value of group one and the first value of group two. > > > > This is my code > > > > library(ggplot2) > > plot <- ggplot(data, aes(Pretrend, Outcome)) + geom_point() > > plot + geom_point(aes(colour=factor(Control)))+labs(x="Date", > > y="Cases", title="Intoxication Cases")+geom_path() > > > > Could you please bring be some advice. > > Regards > > Norberto Francisco Hernández > > ______________________________________________ > > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > > 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. > > ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see 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.
