Mercurial > repos > artbio > gsc_high_dimensions_visualisation
comparison high_dim_visu.R @ 2:7e7a2a4cfce2 draft
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/gsc_high_dimension_visualization commit e15ae06208ef1d3d42c0576ed28eb6ba10a36671
| author | artbio |
|---|---|
| date | Tue, 25 Jun 2019 16:20:27 -0400 |
| parents | cad0001b9cfb |
| children | 8e44c9e18a56 |
comparison
equal
deleted
inserted
replaced
| 1:c756ab726a85 | 2:7e7a2a4cfce2 |
|---|---|
| 227 ) | 227 ) |
| 228 rownames(contrasting_factor) <- contrasting_factor[,1] | 228 rownames(contrasting_factor) <- contrasting_factor[,1] |
| 229 contrasting_factor <- contrasting_factor[colnames(data),] | 229 contrasting_factor <- contrasting_factor[colnames(data),] |
| 230 colnames(contrasting_factor) <- c("id","factor") | 230 colnames(contrasting_factor) <- c("id","factor") |
| 231 contrasting_factor$factor <- as.factor(contrasting_factor$factor) | 231 contrasting_factor$factor <- as.factor(contrasting_factor$factor) |
| 232 if(nlevels(contrasting_factor$factor) == 2){ | |
| 233 colors_labels <- c("#E41A1C", "#377EB8") | |
| 234 } else { | |
| 235 colors_labels <- brewer.pal(nlevels(contrasting_factor$factor), name = 'Paired') | |
| 236 } | |
| 232 factorColors <- | 237 factorColors <- |
| 233 with(contrasting_factor, | 238 with(contrasting_factor, |
| 234 data.frame(factor = levels(factor), | 239 data.frame(factor = levels(contrasting_factor$factor), |
| 235 data.frame(factor = levels(factor), | 240 color = I(colors_labels) |
| 236 color = I(brewer.pal(nlevels(factor), name = 'Paired')))) | 241 ) |
| 237 ) | 242 ) |
| 238 factor_cols <- factorColors$color[match(contrasting_factor$factor, | 243 factor_cols <- factorColors$color[match(contrasting_factor$factor, |
| 239 factorColors$factor)] | 244 factorColors$factor)] |
| 240 } else { | 245 } else { |
| 241 factor_cols <- rep("deepskyblue4", length(rownames(data))) | 246 factor_cols <- rep("deepskyblue4", length(rownames(data))) |