heatmap.R

heatmap.R

library(ggplot2)
library(reshape2)

df_expression <- read.csv("expression.csv")
df_molten <- melt(df_expression)
ggplot(data = df_molten,
       aes(x = variable, y = MouseID, fill = value)) + 
    geom_raster() +
    xlab("Protein") + 
    scale_fill_distiller(palette = "RdYlBu", trans = "log10") +
    theme(axis.text.x = element_text(angle = 90, hjust = 1),
          axis.text.y = element_blank()) + 
    ggtitle("ggplot heatmap")

Hi, Thanks for the nice sharing of the heatmap generation. I am reproducing your commands using my own datasets and found the output. In your heatmap, in the y-axis (mouse id), you did not show all labeling of mouse id [(e.g., axis.text.y = element_blank())]. would you please improve this section for how to show all samples id in y-axes . Thanks ....