[英]How to change the order and color scheme of stacked bar charts using ggplot2?
我正在嘗試對這些進行排序,以便將空間堆疊在時間之上,然后按時間的升序對它們進行排序。 我還希望能夠為每個堆棧選擇 colors。 任何幫助將不勝感激!非常感謝!
數據如下:
structure(list(Beg = structure(c(20L, 19L, 18L, 15L, 1L, 3L,
6L, 10L, 13L, 8L, 5L, 11L, 9L, 7L, 2L, 4L, 17L, 16L, 14L, 12L,
20L, 19L, 18L, 15L, 1L, 3L, 6L, 10L, 13L, 8L, 5L, 11L, 9L, 7L,
2L, 4L, 17L, 16L, 14L, 12L), .Label = c("a", "b", "c", "d", "e",
"f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r",
"s", "t"), class = "factor"), Cat = structure(c(2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L), .Label = c("Time", "Space"), class = "factor"),
Count = c(7824.92, 1006.79, 3570.93, 1484.5, 2885.32, 4194.84,
4348.94, 3603.31, 4826.33, 2225.49, 3350.02, 3778.35, 2698.51,
2247.01, 1705.17, 4742.72, 15231.15, 14083.26, 4437.68, 3109.09,
18875.45, 25816.95, 20836.93, 25501.53, 23996.55, 19427.12,
21467.89, 22472.71, 9876.27, 9548.99, 22171.83, 21179.33,
23358.26, 24763.62, 24551.94, 16726.11, 10691.68, 10537.26,
18012.88, 21453.15)), row.names = c(NA, -40L), class = "data.frame")
基本上,您需要做的就是反轉Cat
中的因素。 這里我使用了forcats
package。 請注意,您的數據在此代碼中是df
:
library(forcats)
library(dplyr)
df %>%
mutate(Cat = forcats::fct_rev(Cat)) %>%
ggplot() +
geom_col(aes(Beg, Count, fill = Cat)) +
ggtitle("All Stuff") +
coord_flip() +
theme_classic()
要選擇 colors,請像添加任何其他 ggplot 層一樣使用它。 用您選擇的顏色替換"color1"
和"color2"
color2”:
scale_fill_manual(values = c("color1", "color2"))
添加到@NotThatKindODr 的答案中,您可以通過使用來自forcats
package 的fct_reorder
function 重新排序條形來按時間升序對條形進行排序:
library(dplyr)
library(forcats)
df <- df %>%
mutate(Cat = fct_rev(Cat),
Beg = fct_reorder(Beg, Count, max, .desc = T))
ggplot(df, aes(x = Beg, y = Count, fill = Cat)) +
geom_col() +
ggtitle("All Stuff") +
theme_classic() +
coord_flip()
這使:
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.