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))