使用ggplot2，dplyr和forcats使用自定义函数绘制降频条形图

问题描述：

我有很多数据，需要按照降序排列创建条形图。如果我在功能之外执行此操作，则此post中显示的解决方案可以工作，但在功能内部使用时不适用。使用ggplot2，dplyr和forcats使用自定义函数绘制降频条形图

这是一个用例。

library(forcats) 
library(tidyverse) 

dat <- data.frame(
    x = rep(letters[1:5], times=c(3,11,8, 2, 7)) 
) 

plot_freq <- function(data, group, n=10){ 
    group <- enquo(group) 
    data %>% 
    count(!!group) %>% 
    top_n(n) %>% 
    mutate(group := fct_reorder(!!group, n)) %>% 
    ggplot(., aes_(group, quo(n))) + 
    geom_bar(stat = "identity") + 
    coord_flip() 
} 


plot_freq(dat, x, n=5)

我还能做些什么plot_freq可以给我想要的结果吗？

答

两种解决方案。

plot_freq <- function(data, group, n=10){ 
    group <- enquo(group) 
    data %>% 
    count(!!group) %>% 
    top_n(n) %>% 
    mutate(group := fct_reorder(!!group, n)) %>% 
    ggplot(., aes_(y=quo(n))) + 
    geom_bar(aes(group),stat = "identity") + 
    coord_flip() 
}

plot_freq <- function(data, group, n=10){ 
    group <- enquo(group) 
    data %>% 
    count(!!group) %>% 
    top_n(n) %>% 
    mutate(group := fct_reorder(!!group, n)) %>% 
    ggplot(., aes_(quo(group),quo(n))) + 
    geom_bar(stat = "identity") + 
    coord_flip() 
}

所以我只是缺少一个'现状（）'在'ggplot'的'group'。那里发生了什么，它使重新排序？ – hpesoj626

@ hpesoj626在我的R 3.4.2'aes（group，n）'在'plot_freq'函数内工作。我不明白为什么它不适合你。 –

嗯...我仍在调查它。但这是另一天的问题。现在我很高兴我的头痛已经结束。这只是因为“quo（）”。转向'tidyeval'让我的许多自定义功能搞砸了。谢谢您的帮助。 – hpesoj626

答

dat %>% count(x) %>% top_n(5) %>% mutate(x = fct_reorder(x, n)) %>% 
    ggplot(., aes(x, n)) + geom_bar(stat = 'identity') + coord_flip()

您可以将功能plot_freq相应

变化group改变quo(group)，类似y美学：

plot_freq <- function(data, group, n=10){ 
    group <- enquo(group) 
    data %>% 
     count(!!group) %>% 
     top_n(n) %>% 
     mutate(group := fct_reorder(!!group, n)) %>% 
     ggplot(., aes_(x=quo(group), y=quo(n))) + 
     geom_bar(stat = "identity") + 
     coord_flip() 
} 

plot_freq(dat, x, n=5)

使用ggplot2，dplyr和forcats使用自定义函数绘制降频条形图

相关推荐