merge ggplots into one with pipeline commands

Hi.

Thank you so much!
Excellent! It works wonderfully.
It will be very useful.

Should I abuse of your knowledge, take advantage of this example and 
ask if
you or anyone knows how to limit the map range to the area of the 
datasets
'dat', without saving xlim/ylim outside the plot?

i.e. making p1 automatically limited to the geographic range of dat, 
inside
the ggplot code (and not plotting always the complete country)?

like this, but automatically within the ggplot code (I have to make 
many
maps, each with different areas):

# this is what I would like to get:
ggplot(data = dat, aes(x=lon, y=lat)) +
    borders("world",fill="antiquewhite1",colour="antiquewhite4")+
  coord_fixed(ylim=c(min(dat$lat), max(dat$lat)),xlim=c(min(dat$lon) ,
max(dat$lon)))+
geom_point()

# however, with pipeline, I would need to set xlim and ylim outside the
plot code
ggplot(data = dat, aes(x=lon, y=lat)) +
    borders("world",fill="antiquewhite1",colour="antiquewhite4")+
  coord_fixed(ylim=c(min(.data[[lat]]), max(.data[[lat]])),xlim=c(min(.
data[[lon]]) , max(.data[[lon]])))+
geom_point()
#
https://stackoverflow.com/questions/4856849/looping-over-variables-in-ggplot

# this does not work either (if I use dat it refers to all dat, not 
only
when fac==1):
dat %>%
  filter(fac==1) %>%
  { p1 +
    geom_point(data=., aes(x=lon, y=lat))+
coord_fixed(ylim=c(min(data$y), max(data$y)),xlim=c(min(data$lon) , 
max(
data$lon)))+
geom_point()
  }
#
https://stackoverflow.com/questions/44889239/unable-to-pass-the-ylim-argument-to-ggplot-in-a-function

Thank you very much once again!
Best regards,
M.

Kent Johnson <kent3737 at gmail.com> escreveu no dia quinta, 4/02/2021 
?(s)
19:43:

On Thu, Feb 4, 2021 at 6:01 AM <r-sig-geo-request at r-project.org> wrote

Message: 3
Date: Wed, 3 Feb 2021 16:10:17 +0000
From: Marta Rufino <marta.m.rufino at gmail.com>
To: r-sig-geo <r-sig-geo at r-project.org>
Subject: [R-sig-Geo] merge ggplots into one with pipeline commands
Message-ID:
        <
CAKSASLDyVVWgDJ6VT1ZWUEBoh8KbXufa+bv1UePi0YUABOz9CQ at mail.gmail.com>
Content-Type: text/plain; charset="utf-8"

Hi,

I want to make one only ggplot by merging/joining a base ggplot and a
ggplot resulting from a pipeline command (ddplyr).

Here it is the reproducible example:

# my base plot, for example:
# https://rpubs.com/MRufino/Portugal
p1 <- ggplot() +
    borders("world",
            fill="antiquewhite1",
            colour="antiquewhite4")+
  coord_fixed(ylim=c(36.6, 42.0), xlim=c(-10 ,-7))+
  theme_minimal()+
  theme(panel.background = element_rect(fill = 'powderblue'),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank())+
  xlab("Longitude")+ ylab("Latitude")
 p1

# now, if I want to add this plot to another ggplot resulting from a
pipeline command, how can I do it?
dat <- data.frame(lat=c(40.3,38.4,39),
           lon = c(-10,-8,-9),
           fac = c(1,2,1))

# pipeline ggplot
dat %>%
  filter(fac==1) %>%
  ggplot()+
  geom_point(aes(x=lon, y=lat))

This will do it. Enclosing the pipe expression in { } lets you put the
piped-in variable where you need it using '.'.

dat %>%
  filter(fac==1) %>%
  { p1 +
    geom_point(data=., aes(x=lon, y=lat))
  }

Kent Johnson
Cambridge, MA

	[[alternative HTML version deleted]]