r - Ggplot:如何以给定的顺序显示箱线图?
问题描述
在给定 x 轴的特定顺序的情况下,我在安排箱线图时遇到了一个特殊的问题,因为我在同一个图中添加了来自不同数据帧的两个箱线图,并且每次添加第二个 geom_boxplot 时,R 都会按字母顺序重新排列我的 x 轴,而不是按照顺序因子(x)的水平。所以,我有两个不同长度的数据框,看起来像这样:
df1:
id value
1 A 1
2 A 2
3 A 3
4 A 5
5 B 10
6 B 8
7 B 1
8 C 3
9 C 7
df2:
id value
1 A 4
2 A 5
3 B 6
4 B 8
df1 中每个 id 的观测值总是比 df2 中的多,并且 df1 中的某些 id 在 df2 中不可用。
我希望 df1 按中值(值)(升序)排序,并首先按该顺序为每个 id 绘制箱线图。然后我添加了第二层,其中包含来自 df2 的每个 id 的所有其他测量值的箱线图,它应该在 x 轴上保持相同的顺序。以下是我的处理方法:
vec <- df %>%
group_by(id) %>%
summarize(m = median(value)) %>%
arrange(m) %>%
pull(id)
p1 <- df1 %>%
ggplot(aes(x = factor(id, levels = vec), y = value)) +
geom_boxplot()
p1
p2 <- p1 +
geom_boxplot(data = df2, aes(x = factor(id, levels = vec), y = value))
p2
p1 显示了正确的顺序(id 是根据中位数升序排列的), p2 总是放弃我的顺序并返回按字母顺序绘制 id(我的 id 实际上是一个带有名称的字符列)。我尝试使用示例数据框,上面的代码实现了所需。因此,我不确定我的数据可能有什么特别错误,因此代码在应用于特定数据而不是上述模拟数据时会失败。有任何想法吗?
提前非常感谢!
解决方案
如果我理解正确,这应该有效。
library(tidyverse)
# Sample data
df1 <-
tibble(
id = c("A","A","A","A","B","B","B","C","C"),
value = c(1,2,3,5,10,8,1,3,7),
type = "df1"
)
df2 <-
tibble(
id = c("A","A","B","B"),
value = c(4,5,6,8),
type = "df2"
)
df <-
# Create single data.frame
df1 %>%
bind_rows(df2) %>%
# Reorder id by median(value)
mutate(id = fct_reorder(id,value,median))
df %>%
ggplot(aes(id, y = value, fill = type)) +
geom_boxplot()
推荐阅读
- python-3.x - 导入 cv2 dll 加载失败
- json - 根据键从 JSON 对象中获取值
- javascript - 使用 momentjs 将 IST 时区转换为 GMT
- javascript - 缺少脚本:构建 - firebase 部署
- node.js - 使用 amqp10 npm 模块获取 AWS MQ 的所有队列名称?
- java - 预计至少有 1 个 bean 有资格作为此依赖项的自动装配候选者,没有找到依赖项类型的合格 bean
- python - 如何使用 matplotlib 可视化每个数据框实例?
- angular - Angular 6 动态表单问题
- python - 如何找到重叠矩形的面积
- azure-data-factory - 映射时使用 adf 管道参数作为源来接收列