У меня есть 3 кадра данных, показывающих размеры генетических последовательностей из 3 образцов.Вместо того, чтобы перечислять размер каждой последовательности, мои данные суммируются как число каждого размера.Фреймы данных выглядят так:
> head(df1)
Size Count
1 56 1
2 58 1
3 59 2
4 60 2
5 61 3
6 62 1
> head(df2)
Size Count
1 53 1
2 55 1
3 57 2
4 58 2
5 59 3
6 60 3
> head(df3)
Size Count
1 53 1
2 56 1
3 57 3
4 58 2
5 59 5
6 60 10
Я хотел бы нарисовать график плотности наложения этих трех образцов, например, такой:

Какя могу это сделать?Я понял, как создать новые фреймы данных с повторяющимся номером каждого размера, объединить эти 3 новых фрейма данных и затем использовать ggplot () + geom_density ().
new_df1 <- data.frame(size=rep(df1$Size, df1$Count), sample="No_1")
new_df2 <- data.frame(size=rep(df2$Size, df2$Count), sample="No_2")
new_df3 <- data.frame(size=rep(df3$Size, df3$Count), sample="No_3")
all_sample <- rbind(new_df1, new_df2, new_df3)
ggplot(data=all_sample, aes(x=size)) + geom_density(aes(colour=sample))
Был ли это правильный путьделать то, что я хотел бы сделать?Есть ли более аккуратный способ сделать это?
Любые мысли приветствуются!Спасибо.