Error in <-: attribut 'names' [3] doit être de même longueur que le vecteur [2]
error in cutheatmap 'boxplot'
No id variables; using all as measure variables
Avis : Error in <-: attribut 'names' [3] doit être de même longueur que le vecteur [2]
123: colnames<-
121: function() { i <- i dataCentS = HCgroupsLabExrsCenterScaleMean[[i]] isplotable = apply(simplify2array(dataCentS), 1:2, sum, na.rm = TRUE) nProbes = nrow(dataCentS) footnote <- paste("Average expression Z-score over replicates; ", nProbes, " probes", sep = "") test <- footnote dataCentSm = melt(as.data.table(dataCentS)) colnames(dataCentSm) = c("Probe", "Group", "Expression") ggbplot = ggplot(dataCentSm, aes(x = Group, y = Expression)) + theme_bw() + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), panel.border = element_blank()) + theme(axis.line = element_line(colour = "#888888")) + scale_fill_manual(values = cl[(1:length(levels(groups)))]) + geom_jitter(position = position_jitter(0.16), colour = "#888888", alpha = 0.4, shape = 16, size = 3) + labs(title = paste("Cluster", i), subtitle = paste(caption = footnote)) + theme(plot.title = element_text(size = 20, hjust = 0.5), plot.caption = element_text(size = 10, hjust = 0.5), axis.title.x = element_text(size = 10), axis.title.y = element_text(size = 10), axis.text.x = element_text(size = 10, colour = "#888888", angle = 360, hjust = 0.5), axis.text.y = element_text(size = 12, colour = "#888888")) if (nProbes > 2) myplots[[i]] <<- (ggbplot + geom_violin(aes(fill = Group), alpha = 0.3, width = 0.3) + geom_boxplot(width = 0.1, aes(fill = Group), alpha = 0.3)) else myplots[[i]] <<- (ggbplot) }
120: cutHeatmaps
119: <reactive>
103: cutfinal
101: renderPlotly
100: func
97: shinyRenderWidget
96: func
83: renderFunc
82: output$cutheatmap
1: shiny::runApp