我希望创建一个函数，该函数基于数据集的group_by特征来显示图形，该函数应与fill函数一样工作。代码确实可以工作，但看起来并不理想。有人能看一下并给予一些反馈吗，特别是实现.group参数？是否有使用.groups的解决方法？
bar_plot <- function(.data, x) {
ggplot(data = .data, aes({{x}}, fill = as.factor(.group)
)) +
geom_bar()+
labs(colour = group_vars(.data))
}
mtcars %>%
group_by(am) %>% bar_plot(cyl)
1条答案
按热度按时间vql8enpb1#
我认为你的解决方案很好，我唯一要改变的是
应该是这样的：
我认为这个解决方案在一个变量下工作得很好。如果你的想法是使用两个变量，那么我会选择不同类型的图。