我是R的新手,非常感谢您对我的代码的帮助。
我正在使用此代码绘制基因的热图
#Load required packages
library("ggplot2")
library("dplyr")
library("reshape2")
#Load files
cellcycle1 <- read.csv("heatmap_log_4Fold_Above50.csv")
#Melt
cellcycle1.m <- melt(cellcycle1)
#arrange heat plot
order <- arrange(cellcycle1, X0, X30, X60, X90, X120, X150, X180, X210, X240)
#This changes the order of the Y axis based on the sort order
cellcycle1.m$Gene_ID <- factor(cellcycle1.m$Gene_ID, levels =
order$Gene_ID, labels = order$Gene_ID)
#Draw Heat plot
(e <- ggplot(cellcycle1.m, aes(variable, Gene_ID)) + geom_tile(aes(fill =
value), colour = "white")
+ scale_fill_gradient(low = "white", high = "steelblue"))
+ theme(axis.ticks.y = element_blank(),axis.text.y = element_blank(),
axis.text.x = element_text(angle=50, size = 15, vjust=0.5))
+ labs(x= "Time", y = "Gene")
当我尝试重新命名x轴上的刻度时,我的麻烦来了,这个功能被添加到我的热图的末尾。
+ scale_x_continuous(label=function(x){return(paste(x, "Minutes"))})
我收到错误“错误:提供给连续比例的离散值”
提前感谢您提供任何帮助或指导。