我正在嘗試手動重新排序我的情節中的條形集群。這是整個相關資料集：
Season Set Density
Summer Full set 0.020065
Summer Set 2 0.017713
Summer Set 3 0.015170
Summer Set 4 0.018816
Autumn Full set 0.009459
Autumn Set 2 0.007937
Autumn Set 3 0.008498
Autumn Set 4 0.011544
Winter Full set 0.017685
Winter Set 2 0.015451
Winter Set 3 0.013294
Winter Set 4 0.016717
Spring Full set 0.021445
Spring Set 2 0.018672
Spring Set 3 0.016526
Spring Set 4 0.019715
和ggplot代碼：
plot <-
ggplot(arrange(data1day, Season), aes(x = Set, y = 100 * Density, fill = Season))
geom_col(position = 'dodge', color = 'black')
theme_classic()
labs(x = "Subset of sites surveyed", y = "Density (%)")
scale_x_discrete(limits = c("Full set", "Set 2", "Set 3", "Set 4"))
scale_fill_brewer(limits = c("Summer", "Autumn", "Winter", "Spring"), palette = "Set2")
theme(text = element_text(size = 14, family = "serif", colour = "black"))
theme(axis.text.x = element_text(colour = "black"))
theme(axis.text.y = element_text(colour = "black"))
圖例以正確的順序（夏季、秋季、冬季、春季）列出了季節，顏色和條形對應于正確的資料（秋季總是最低），但條形與圖例的順序不匹配。我似乎無法在其他任何地方找到如何做到這一點。
uj5u.com熱心網友回復：
您可以使用 fct_relevel
library(dplyr)
data1day %>%
arrange(Season) %>%
mutate(Season = as.factor(Season),
Season = fct_relevel(Season, "Summer", "Autumn", "Winter", "Spring")) %>%
ggplot( aes(x = Set, y = 100 * Density, fill = Season))
geom_col(position = 'dodge', color = 'black')
theme_classic()
labs(x = "Subset of sites surveyed", y = "Density (%)")
scale_x_discrete(limits = c("Full set", "Set 2", "Set 3", "Set 4"))
scale_fill_brewer(limits = c("Summer", "Autumn", "Winter", "Spring"), palette = "Set2")
theme(text = element_text(size = 14, family = "serif", colour = "black"))
theme(axis.text.x = element_text(colour = "black"))
theme(axis.text.y = element_text(colour = "black"))
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/354428.html