Поскольку у нас нет никаких данных, трудно предоставить конкретное решение, соответствующее вашему сценарию.Но ниже приведен общий принцип того, что, я думаю, вы пытаетесь сделать.
Хитрость заключается в том, чтобы собрать ваши данные вместе и получить еще один столбец, который идентифицирует группу A и группу B. Затем он используется в aes()
аргумент в ggplot
.Помните, что объединение ваших фреймов данных может быть не таким простым, как то, что я сделал, поскольку у вас могут быть дополнительные столбцы и т. Д.
# generating some pseudo data from a poisson distribution
A <- data.frame(k = rpois(2000, 4))
B <- data.frame(k = rpois(1000, 7))
# Create identifier
A$id <- "A"
B$id <- "B"
A_B <- rbind(A, B)
g <- ggplot(data = A_B, aes(x = k,
group = id, colour = id, fill = id)) + # fill/colour aes is not required
geom_density(alpha = 0.6) # alpha for some special effects
g