Hello,
The trick is to reshape your data from wide to long format.
There are many ways to do this, I will use package reshape2.
Make up a dataset:
library(ggplot2)
library(reshape2)
set.seed(9773)
n <- 20
data <- data.frame(timeline = 1:n,
deliveries = log(1:n) + runif(n),
launches = (1:n)/4 + runif(n))
# reformat it
long <- melt(data, id.vars = "timeline")
head(long)
# et voila!
ggplot(long, aes(timeline, value, colour = variable)) +
geom_point() +
stat_smooth() +
xlab("Deliveries") +
ylab("Launches") +
ggtitle("Scatterplot of Launches vs. Deliveries")
Use the smoothing function of your choice, I left it with the default loess.
Hope this helps,
Rui Barradas
On 24/08/2018 03:38, Jeff Reichman wrote:
R-help
I want to add two smooth lines (geom_smooth()) for each scatter plot. How
do I do that?
ggplot() +
geom_point(data=data, aes(x=timeline, y=deliveries), color="blue") +
geom_point(data=data, aes(x=timeline, y=launches), color="red") +
xlab("Deliveries") +
ylab("Launches") +
ggtitle("Scatterplot of Launches vs. Deliveries")
Jeff
[[alternative HTML version deleted]]
______________________________________________
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.
---
This email has been checked for viruses by AVG.
https://www.avg.com
______________________________________________
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.
