R语言做热图，想添加聚类颜色条，不能执行，怎么解决

本人使用R做聚类热图，想添加行和列的聚类颜色条，结果出错，请教各位老师，如何解决？代码如下：
> data<-read.csv("data.csv",header=T,sep=",",row.names=1)
> X<-data.frame(data)
> df<-as.matrix(scale(data))
> heatmap(df,scale="row")
> col<-colorRampPalette(c("red","white","blue"))(256)
> heatmap(scale(as.matrix(data)),scale="none",col=col)
> library(RColorBrewer)
> col<-colorRampPalette(brewer.pal(10,"RdYlBu"))(256)
> heatmap(df,scale="row",col=col,RowSideColors=rep(c("blue","pink"),each = 16),ColSideColors=c(rep("purple",5),rep("orange",6)))
错误于heatmap(df, scale = "row", col = col, RowSideColors = rep(c("blue",  :
  'ColSideColors'必需是长度为ncol(x)的字节矢量

楼主知道怎么解决了吗同样的问题、、、