ggplot:防止为一级或二级添加 CI-region

ggplot: Prevent adding CI-region for one level of two

我有一个数据集,其因子具有两个水平,一个连续变量和一个连续结果。我想显示两条平滑曲线,但只有一条曲线应该有置信区域。这是数据集:

# Data             
xdf <- data.frame(x = rep(1:10,2)
                 , y = c(rpois(10,10),rpois(10,20))
                 , g = rep(c("A","B"), each=10)
                 )

这是情节

# Plot             
windows(width=12, height=20)             
ggplot(xdf, aes(x,y,linetype=g)) +
          geom_smooth(se=TRUE) +
          geom_point()

知道如何防止一个 CI 区域吗?
感谢您的帮助。

我看到的最简单的方法是重写 data 参数,如下所示:

ggplot(xdf, aes(x,y,linetype=g)) +
  geom_smooth(se = F) +
  geom_point() + 
  geom_smooth(data = xdf[xdf$g == "A", ], se = T)