我看过example1和如何在 R 中叠加密度图？和ggplot2 中关于如何制作密度图的重叠密度图。我可以使用第二个链接中的代码制作密度图。但是我想知道如何在ggplot或 中制作这样的图表plotly？我已经查看了所有示例，但无法解决我的问题。我有一个带有基因表达白血病数据描述的玩具数据框，其中的哪些列指的是两组个体
leukemia_big <- read.csv("http://web.stanford.edu/~hastie/CASI_files/DATA/leukemia_big.csv")
df <- data.frame(class= ifelse(grepl("^ALL", colnames(leukemia_big),
fixed = FALSE), "ALL", "AML"), row.names = colnames(leukemia_big))
plot(density(as.matrix(leukemia_big[,df$class=="ALL"])),
lwd=2, col="red")
lines(density(as.matrix(leukemia_big[,df$class=="AML"])),
lwd=2, col="darkgreen")