通过y轴值对ggplot的每个方面中的因子进行排序-Java 学习之路

可以说，在R中，我有一个数据框字母，数字和动物，我想以图形方式检查这三者之间的关系 . 我可以做点什么 .

library(dplyr)
library(ggplot2)
library(gridExtra)

set.seed(33)
my_df <- data.frame(
letters = c(letters[1:10], letters[6:15], letters[11:20]),
animals = c(rep('sheep', 10), rep('cow', 10), rep('horse', 10)),
numbers = rnorm(1:30)
    )

ggplot(my_df, aes(x = letters, y = numbers)) + geom_point() +
   facet_wrap(~animals, ncol = 1, scales = 'free_x')

我会得到一些看起来像的东西 .
unsorted letters

但是，我希望x轴的顺序取决于y轴的顺序 . 根据这个example，这很容易做到没有方面 . 我甚至可以为每只动物制作一个有序的图形，然后将它们与grid.arrange一起绑定在一起example

my_df_shp <- my_df %>% filter(animals == 'sheep')
my_df_cow <- my_df %>% filter(animals == 'cow')
my_df_horse <- my_df %>% filter(animals == 'horse')

my_df_shp1 <- my_df_shp %>% mutate(letters = reorder(letters, numbers))
my_df_cow1 <- my_df_cow %>% mutate(letters = reorder(letters, numbers))
my_df_horse1 <- my_df_horse %>% mutate(letters = reorder(letters, numbers))

p_shp <- ggplot(my_df_shp1, aes(x = letters, y = numbers)) + geom_point()
p_cow <- ggplot(my_df_cow1, aes(x = letters, y = numbers)) + geom_point()
p_horse <- ggplot(my_df_horse1, aes(x = letters, y = numbers)) + geom_point()

grid.arrange(p_shp, p_cow, p_horse, ncol = 1)

ordered animals figure

我不是特别喜欢这个解决方案，因为它不容易推广到有很多方面的情况 .

我宁愿做一些像ggplot（my_df，aes（x = y_ordered_by_facet（字母，by =数字），y =数字））geom_point（）facet_wrap（〜animals，ncol = 1，scales ='free_x'）

其中y_ordered是一些巧妙地命令字母因子与数字顺序相同的函数 .

接近这一点，但似乎不起作用的东西是

ggplot(my_df, aes(x = reorder(letters, numbers), y = numbers)) +
     geom_point() + facet_wrap(~animals, ncol = 1, scales = 'free_x')

这并不是很有效，因为订单最终会在之前生效，而不是在小平面包装之后生效，因此每个面板的标签排列不正确 .
almost ordered

任何聪明的想法？

1 回答

7
在处理每个组中的不同因子级别时，我对 group_by() 工作得非常好 . 因此，一种解决方法是考虑为每个动物字母组合创建一个独特的新因子并对其进行排序 . 首先，我们使用动物字母创建交互变量，并确定动物的每个字母的正确顺序
```
new_order <- my_df %>% 
  group_by(animals) %>% 
  do(data_frame(al=levels(reorder(interaction(.$animals, .$letters, drop=TRUE), .$numbers)))) %>% 
  pull(al)
```
现在我们在要绘制的数据中创建交互变量，使用这个新的排序，最后更改标签，使它们再次看起来像是字母
```
my_df %>% 
  mutate(al=factor(interaction(animals, letters), levels=new_order)) %>%
  ggplot(aes(x = al, y = numbers)) +
    geom_point() + facet_wrap(~animals, ncol = 1, scales = 'free_x') +
    scale_x_discrete(breaks= new_order, labels=gsub("^.*\\.", "", new_order))
```
回复于 2024-04-29T11:33:52+08:00

通过y轴值对ggplot的每个方面中的因子进行排序

1 回答

相关问题