Add geom_segment to geom_point plot in ggplot

Question

How can I add a geom_segment to my geom_point plot so that there is line from x-axis to the point?

Here is my dummy code:

library(grid);library(gridExtra);library(dplyr);library(ggplot2)

## Data
group1 <- seq(1, 10, 2); group2 <-  seq(1, 20, 3)
x = c(group1, group2)
mydf <- data.frame (X =x , Y = rnorm (length (x),5,1), 
                    groups = c(rep(1, length (group1)), rep(2, length(group2))))

## Plots
p1 <- ggplot(data=mydf[mydf$groups==1,],aes(x=X,y=Y))+
  geom_point(size=2)+
  theme_bw()

p2 <- ggplot(data=mydf[mydf$groups==2,],aes(x=X,y=Y))+
  geom_point(size=2)+
  theme_bw()

## Facetting
summ <- mydf %>% group_by(groups) %>% summarize(len=diff(range(X)))
summ$p <- summ$len/max(summ$len)
summ$q <- 1-summ$p

ng <- nullGrob()
grid.arrange(arrangeGrob(p1,ng,widths=summ[1,3:4]),
             arrangeGrob(p2,ng,widths=summ[2,3:4]))

And my plot:

Thanks

Bade

tospig · Accepted Answer · 2016-01-31 07:15:54Z

2

From ?geom_segment we see the requried aesthetics are x, xend, y, yend, so we can use

ggplot(data=mydf[mydf$groups==1,],aes(x=X,y=Y))+
  geom_point(size=2)+
  theme_bw() +
  geom_segment(aes(x=X, y=-Inf, xend=X, yend = Y))

answered Jan 31, 2016 at 7:15

tospig

8,40715 gold badges47 silver badges82 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Bade Over a year ago

Thanks. I am not sure how I missed plotting them directly because I was using a "for" loop in past do that like this: for (i in abreaks){ p1 = p1+geom_segment(x=i,y=1,xend=i,yend=Inf,linetype = 3) }

Collectives™ on Stack Overflow

Add geom_segment to geom_point plot in ggplot

1 Answer 1

1 Comment

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Linked

Related