position_dogev for points about ggplot2 HOT 2 CLOSED

Does geom_pointrange() work? Or do you have a more complex use case that requires a separate point geom?

library(ggplot2)

df <- data.frame(
  trt = c(1,1,2,2),
  resp = c(1, 5, 3, 4),
  group = factor(c(1, 2, 1, 2)),
  upper = c(1.1, 5.3, 3.3, 4.2),
  lower = c(0.8, 4.6, 2.4, 3.6)
)

ggplot(df, aes( resp,trt, colour = group))+
  geom_pointrange(
    aes(xmin = lower, xmax = upper),
    position = position_dodge(width = 0.2),
    orientation ="y"
  ) 

^{Created on 2024-03-26 with reprex v2.1.0}

from ggplot2.

Hi yes indeed my use case is more complex where I build a plot layer by layer and where user can add a point that should match the positon of a linerange. I tried to provide a minimum reprex above.
also applies to geom text

library(ggplot2)
library(patchwork)
library(ggstance)
df <- data.frame(
trt = c(1,1,2,2),
resp = c(1, 5, 3, 4),
group = factor(c(1, 2, 1, 2)),
upper = c(1.1, 5.3, 3.3, 4.2),
lower = c(0.8, 4.6, 2.4, 3.6)
)

ggplot(df, aes( resp,trt, colour = group))+
geom_linerange(aes(xmin = lower, xmax = upper),
position = position_dodge(width=0.2),orientation ="y")+
geom_text(aes(x=upper,group=interaction(group,trt),label=group),position = position_dodge(width=0.2)) |
ggplot(df, aes( resp,trt, colour = group))+
geom_linerange(aes(xmin = lower, xmax = upper),
position = position_dodge(width=0.2),orientation ="y")+
geom_text(aes(x=upper,group=interaction(group,trt),label=group),position = position_dodgev(height=0.2))

from ggplot2.