在密度和R/ggplot2小提琴图中突出个体观察

我试图突出一个人在密度图和小提琴图中的位置

ggplot(data=mtcars,aes(x=factor(cyl),y=drat, fill=factor(am)))+ 
  geom_violin() + geom_point(data = mtcars[rownames(mtcars) == "Mazda RX4",])

例如，在下面代码生成的图中，我想突出显示mtcars数据集中的马自达RX4。这可以通过在每个类别的单个观察值上添加一个点或条来实现

#density plot
ggplot(data=mtcars,aes(x=drat))+
  geom_density() + facet_grid(cyl ~ .)

#violin plot
library(ggplot2)
ggplot(data=mtcars,aes(x=factor(cyl),y=drat, fill=factor(am)))+
  geom_violin() 

编辑： 1基于@DatamineR answer bellow I，可以将所需的点代码bellow添加到小提琴图中

ggplot(data=mtcars,aes(x=factor(cyl),y=drat, fill=factor(am)))+ 
  geom_violin() + geom_point(data = mtcars[rownames(mtcars) == "Mazda RX4",])

然而，相同的+geom_点不适用于密度图。我如何为密度图的观察添加一个点

---

2另外，是否可以使用另一个标记，如垂直于分布基线的线段或条，而不是点？

尝试以下问题的第一部分添加到ggplot代码中：

geom_point(data = mtcars[rownames(mtcars) == "Mazda RX4",])

geom_point(data = mtcars[rownames(mtcars) == "Mazda RX4",], aes(y = 0))

对于问题的第二部分，您可以尝试添加到ggplot代码：

geom_point(data = mtcars[rownames(mtcars) == "Mazda RX4",])

geom_point(data = mtcars[rownames(mtcars) == "Mazda RX4",], aes(y = 0))

---

试试geom_pointdata=mtcars[rownamemtcars==Mazda RX4，]@DatamineR:tks，您的建议适用于给出的示例。但它对我的实际数据不起作用。我在do.calllayer，listmapping=mapping，data=data，stat=stat，：找不到对象“dist_fronteira”。如果我没有弄明白，我会编辑问题，发布真实的数据集。它现在对我的数据也适用于小提琴图。仍然不知道如何将单个标记添加到密度图。你是指不同的图吗？是的，编辑了问题。根据你的建议，我把小提琴的情节安排好了。我现在想复制一张类似的图表，但用密度代替小提琴图。