这里是新的 R 用户。 我正在尝试向我使用 ggplot2 创建的热图添加树状图。我怎样才能做到这一点？我已将我的代码添加到下面的热图中。
#Mtcars using ggplots and reshape2
install.packages("ggplot2")
library(ggplot2)
intall.packages("reshape2")
library(reshape2)
data(mtcars)
Cars <- mtcars[c(1:7)] #subset to 6 genres
cor(Cars) # 6x6 cor matrix
#ggplot likes the data 'melted' one value per row
m <-melt(cor(Cars))
p <- ggplot(data=m, aes(x=Var1, y=Var2, fill=value)) + geom_tile()
p
#set up a coloring scheme using colorRampPalette
red=rgb(1,0,0); green=rgb(0,1,0); blue=rgb(0,0,1); black=rgb(0,0,0)
RtoBrange<-colorRampPalette(c(red, black ) )
BtoGrange<-colorRampPalette(c(black, green) )
p <- p + scale_fill_gradient2(low=RtoBrange(100), mid="black", high=BtoGrange(100))
p
感谢您的帮助，
夏洛特
最佳答案
使用 gplots 包 ( https://cran.r-project.org/web/packages/gplots/gplots.pdf ) 中的 heatmap.2 函数，它会自动将树状图添加到您的热图中。使用您的示例:
install.packages("gplots")
library(gplots)
data(mtcars)
Cars <- mtcars[c(1:7)]
mycolors <- colorRampPalette(c("red", "black", "green"))
heatmap.2(cor(Cars), trace = "none", col = mycolors)
关于r - 将树状图添加到 ggplot2 热图，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/38727324/