英文:
How to arrange the bars of the "fill" variable in ggplot together?
问题
如何根据填充变量将柱形图分组？将不同颜色的柱形条分组在一起，而不是分开。这两个变量都是因子。
这是我的代码：
sur %>%
select(circumstances_bite, circumstances_bite_broad) %>%
drop_na() %>%
ggplot(aes(y = fct_infreq(circumstances_bite), fill = circumstances_bite_broad)) +
geom_bar(position = "dodge") +
xlab("No of people") +
ylab("circumstance of bite") +
ggtitle("circumstance of bite by a pet dog")
英文:
This is my code:
sur %>%select(circumstances_bite, circumstances_bite_broad) %>%drop_na() %>%ggplot(aes(y=fct_infreq(circumstances_bite), fill = circumstances_bite_broad))+geom_bar()+xlab("No of people")+ylab("circumstance of bite")+ggtitle ("circumstance of bite by a pet dog")
How do I group the bars according to the fill variable? Groping the different colour bars together and not seperately. Both the variables are factors.
答案1
得分: 0
一个简单的解决方案是在ggplot之外手动计算计数，然后按照所需的顺序对数据进行排序，即通过 circumstances_bite_broad 并通过 forecast::fct_inorder 来修复顺序。
使用一些假随机示例数据：
set.seed(123)library(tidyverse)sur <- data.frame(circumstances_bite = sample(LETTERS[1:26], 100, replace = TRUE)) %>%mutate(circumstances_bite_broad = case_when(circumstances_bite %in% LETTERS[1:9] ~ "a",circumstances_bite %in% LETTERS[10:18] ~ "b",circumstances_bite %in% LETTERS[19:26] ~ "c"))sur %>%select(circumstances_bite, circumstances_bite_broad) %>%drop_na() %>%count(circumstances_bite, circumstances_bite_broad) %>%arrange(circumstances_bite_broad, desc(n)) %>%mutate(circumstances_bite = fct_inorder(circumstances_bite)) %>%ggplot(aes(x = n, y = circumstances_bite, fill = circumstances_bite_broad)) +geom_col() +xlab("No of people") +ylab("circumstance of bite") +ggtitle("circumstance of bite by a pet dog")
英文:
A simple solution would be to compute the counts manually outside of ggplot, then order you data in your desired order, i.e. by circumstances_bite_broad and fix the order via forecast::fct_inorder.
Using some fake random example data:
set.seed(123)library(tidyverse)sur <- data.frame(circumstances_bite = sample(LETTERS[1:26], 100, replace = TRUE)) |>mutate(circumstances_bite_broad = case_when(circumstances_bite %in% LETTERS[1:9] ~ "a",circumstances_bite %in% LETTERS[10:18] ~ "b",circumstances_bite %in% LETTERS[19:26] ~ "c"))sur %>%select(circumstances_bite, circumstances_bite_broad) %>%drop_na() %>%count(circumstances_bite, circumstances_bite_broad) |>arrange(circumstances_bite_broad, desc(n)) |>mutate(circumstances_bite = fct_inorder(circumstances_bite)) |>ggplot(aes(x = n, y = circumstances_bite, fill = circumstances_bite_broad)) +geom_col() +xlab("No of people") +ylab("circumstance of bite") +ggtitle("circumstance of bite by a pet dog")
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论