叠加的全细胞流式细胞仪密度图

Question

我从流式细胞仪数据的正常和癌细胞系创建了密度图。我想覆盖来自不同.fcs文件的这两个密度图drwan。我使用的代码是

p <- read.FCS(filename = "CD31-tumor", 
 path="/Users/mangalahegde/Desktop")
p
m <- read.FCS(filename = "cd31-normal", 
path="/Users/mangalahegde/Desktop")

p1 <- ggcyto(p, aes(x='FSC-H')) + geom_density(data=p, fill="goldenrod", 
alpha=0.3) 
p1
p2 <- p1 + geom_density(data = m, fill="lightseagreen", alpha=0.3) 
p2

代码无法覆盖p1和p2。它给出了两个分别具有不同x轴和y轴但具有单个图例的密度图。