如何按升序設定此圖？提前謝謝了。
library(ggplot2)
library(reshape2)
iris2 <- melt(iris, id.vars="Species"); iris2
ggplot(data=iris2, aes(x=Species, y=value, fill=variable))
geom_bar(stat="identity", position="dodge")
uj5u.com熱心網友回復：
您可以使用reorder以整體升序設定條形：
iris2$variable <- reorder(iris2$variable, iris2$value)
ggplot(data=iris2, aes(x=Species, y=value, fill=variable))
geom_bar(stat="identity", position="dodge")
請注意，所有 3 個組的順序都是相同的，這意味著 setosa 有一個條“不合適”。
為每個物種按升序排列條形圖是可能的，但要復雜得多。
library(tidyverse)
iris2 %>%
group_by(variable, Species) %>%
summarise(value = max(value)) %>%
mutate(xval = as.numeric(as.factor(Species))) %>%
group_by(Species) %>%
mutate(xval = 0.2 * order(value) - 0.5 xval) %>%
ggplot(aes(x=xval, y=value, fill=variable))
geom_col(position="dodge", width = 0.2)
scale_x_continuous(breaks = 1:3, labels = unique(iris2$Species),
name = "Species")
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/474388.html