Я хотел бы создать график с тремя графиками, метки оси которых совпадают.Я использовал следующий код и данные:
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")
С этим я получаю графику: введите описание изображения здесь
Это на самом деле выглядит неплохо, но я все ещехочу, чтобы это выглядело лучше сейчас.Поэтому я сортирую по размеру значений:
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")
И затем получаю графику: введите описание изображения здесь
Как я могу получить это прямо сейчас, когдаВсе оси X имеют такой же порядок маркировки, как на первом изображении, но все равно выглядят так же красиво, как на втором изображении?Спасибо за вашу помощь!