Como produzir geom_vline diferente em diferentes facetas no R?

Estou tentando produzir 2 geom_vlines diferentes com cores diferentes em 2 facetas diferentes de um conjunto de dados. Estou fazendo isso para destacar meios de 2 facetas diferentes. Aqui está o conjunto de dados: Pclass Sex Age SibSp Parch ...