r - カスタム垂直線ジョイプロットを追加

Question

を使用してジョイプロットに行ごとに垂直線を追加したいと思いますggridges。

# toy example
ggplot(iris, aes(x=Sepal.Length, y=Species, fill=..x..)) +
geom_density_ridges_gradient(jittered_points = FALSE, quantile_lines = 
FALSE, quantiles = 2, scale=0.9, color='white') +
scale_y_discrete(expand = c(0.01, 0)) +
theme_ridges(grid = FALSE, center = TRUE)

virginica の場合は 7、versicolor の場合は 4、setosa の場合は 5 に垂直線を追加したいと考えています。それを行う方法についてのアイデアはありますか？