ggplot：position_dodge结果重叠？

Question

我有以下工作流程：

rm(list=ls())

data(mtcars)
attach(mtcars)

library(ggplot2)
library(plyr)
library(dplyr)
library(scales)
library(reshape2)
library(lazyeval)

my_func <- function(x, y) {
  test<<-mtcars %>% group_by_(x, y) %>%
    summarise(Freq = n()) %>% 
    mutate(Freq = Freq/sum(Freq))
  test
  } 
my_func('gear', 'cyl')

ggplot(test, aes(x=gear, y=Freq))+
  geom_bar(stat="identity", aes(fill=cyl), position=position_dodge(width=0.1))+
  scale_y_continuous(labels=percent_format(), limits = c(0,1))

但是，生成的图并没有显示彼此相邻的条，而是一些条彼此重叠。 有什么用，我该如何解决？

Answer 1

您需要将cyl列转换为factor。

test$cyl <- as.factor(test$cyl)
ggplot(test, aes(x=gear, y=Freq))+
       geom_bar(stat="identity", aes(fill=cyl), position=position_dodge(width=1))+
       scale_y_continuous(labels=percent_format(), limits = c(0,1))