Sorting of patterns and their representation with R
0
0
Entering edit mode
2.1 years ago
drenz ▴ 20

I would like to create a plot with three graphics whose axis labels are the same. I have used the following code and data:

p1 <- apply(tabelle_fertig1, 2, mean)
p1 <- p1[sort(names(p1))]
p2 <- apply(tabelle_fertig2, 2, mean)
p2 <- p2[sort(names(p2))]
p3 <- apply(tabelle_fertig3, 2, mean)
p3 <- p3[sort(names(p3))]

par(mfrow=c(1,3))
barplot(p1, xlab = "PATTERN",log="y")
barplot(p2, xlab = "PATTERN",log="y")
barplot(p3, xlab = "PATTERN",log="y")


With this I get the graphic: enter image description here

That actually looks quite good, but I still want it to look nicer now. So I sort by the size of the values:

par(mfrow=c(1,3))
barplot(sort(p1, decreasing = T), xlab = "PATTERN",log="y")
barplot(sort(p2, decreasing = T), xlab = "PATTERN",log="y")
barplot(sort(p3, decreasing = T), xlab = "PATTERN",log="y")


And then get the graphics: enter image description here

How do I get it right now that the x-axes all have the same order of labeling, as in the first image but still look as beautiful as in the second image? Thank you for your help!

R sequence • 411 views
1
Entering edit mode

It looks to me like you're trying to do something similar to sequence logos. Check these options:
- Bioconductor seqLogo package
- ggseqlogo package
- this blog