如何跨ggplot2函数传递数据和美学

Question

我必须使用ggplot2创建一个大致具有此结构的图形：

p <- ggplot() +
        geom_rect(data = regions,aes(xmin = xmin, xmax = xmax, ymin = -Inf, ymax = Inf), 
                  fill = "yellow",alpha = 0.1) + 
    geom_line(data = data, aes(x=dt, y = y, color = case))  +
    geom_point(data = data, aes(x=dt, y = y, color = case)) +
    facet_grid(groups ~ ., scale="free_y")
    geom_vline(x=as.numeric(dates_start), color = "orange3",linetype="dashed") + 
    geom_vline(x=as.numeric(dates_end), color = "orange3",linetype="dashed")

p

无论如何，我可以避免传递geom_point中的所有细节吗？因为它们与geom_line中使用的相同？