[R] How to add a geom_smooth() line

Jeff Reichman re|chm@nj @end|ng |rom @bcg|ob@|@net
Fri Aug 24 13:44:05 CEST 2018

Got it thank you


From: Riley Finn <rileyfinn3 using gmail.com> 
Sent: Thursday, August 23, 2018 10:24 PM
To: reichmanj using sbcglobal.net
Cc: R-help using r-project.org
Subject: Re: [R] How to add a geom_smooth() line




You need to reshape your data frame.  If you use ggplot, you will often have to present your data in "long format"


Use the reshape2 package.


I made a sample data frame because you didn't provide one.  I also change your x and y labels because they made no sense.  


data <- data.frame(
  timeline = 1:10,
  launches = sample(10:20, 10),
  deliveries = sample(10:20, 10)

dataNew <- melt(data = data, id.vars = 'timeline', 
                variable.name <http://variable.name>  = 'launchOrDelivery')

ggplot(data=dataNew, aes(x=timeline, y=value), color= launchOrDelivery) +
  geom_point(aes(color= launchOrDelivery)) + 
  geom_smooth(aes(group = launchOrDelivery, color= launchOrDelivery), se = FALSE) + 
  xlab("timeline") +
  ylab("Launches/Deliveries") +
  ggtitle("Scatterplot of Launches vs. Deliveries")


On Thu, Aug 23, 2018 at 9:39 PM Jeff Reichman <reichmanj using sbcglobalnet <mailto:reichmanj using sbcglobal.net> > wrote:


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")


        [[alternative HTML version deleted]]

R-help using r-project.org <mailto:R-help using r-project.org>  mailing list -- To UNSUBSCRIBE and more, see
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

	[[alternative HTML version deleted]]

More information about the R-help mailing list