| ... | ... |
@@ -44,11 +44,6 @@ Summary_read <- summary(dat[,c('total','mapped','unmapped')])
|
| 44 | 44 |
|
| 45 | 45 |
|
| 46 | 46 |
|
| 47 |
- |
|
| 48 |
- |
|
| 49 |
-o <- order(dat$total,dat$sample) |
|
| 50 |
-sampleOrder <- dat$sample[o] |
|
| 51 |
- |
|
| 52 | 47 |
m <- reshape2::melt(dat[,c("sample","mapped","unmapped")], id.vars="sample",
|
| 53 | 48 |
variable.name="Mapping_status") |
| 54 | 49 |
m$sample <- factor(m$sample,levels=sampleOrder) |
