>library(gplots)
>library(RColorBrewer)
>all.data <- read.csv("C:/Users/Anil/Desktop/sam.csv")
>row.names(all.data) <- all.data$sample
>all.data <- all.data[, -1]
>data.prop <- all.data/rowSums(all.data)
>scaleyellowred <- colorRampPalette(c("lightyellow", "red"), space = "rgb")(100)
>heatmap(as.matrix(data.prop), Rowv = NA, Colv = NA, col = scaleyellowred)