R - ggplot2 geom_line dodge

Question

"ドッジ"を "ドッジド"に描くのに問題がありますstacked barsです。私が望む何

dt = mtcars %>% group_by(am, cyl) %>% summarise(m = mean(disp)) 
dt0 = dt[dt$am == 0, ] 
dt1 = dt[dt$am == 1, ] 

dt0 %>% ggplot(aes(factor(cyl), m, fill = factor(cyl))) + geom_bar(stat = 'identity', position = 'dodge') + 
    geom_point(data = dt1, aes(factor(cyl), m, colour = factor(cyl)), position=position_dodge(width=0.9), colour = 'black') 

は黒ポイント各cylのに積み重ねられたバーの上部からラインを描くことです。

dt0 %>% ggplot(aes(factor(cyl), m, fill = factor(cyl))) + geom_bar(stat = 'identity', position = 'dodge') + 
    geom_point(data = dt1, aes(factor(cyl), m, colour = factor(cyl)), position=position_dodge(width=0.9), colour = 'black') + 
    geom_line(data = dt1, aes(factor(cyl), m, colour = factor(cyl), group = 1), position=position_dodge(width=0.9), colour = 'black') 

ただし、position=position_dodge(width=0.9)ドッジはここでは機能しません。

Answer 1

これはあなたの要約データを作り直す場合達成するためにはるかに簡単です：

dt <- mtcars %>% 
    group_by(am, cyl) %>% 
    summarise(m = mean(disp)) %>% 
    spread(am, m) 

    cyl  0  1 
* <dbl> <dbl> <dbl> 
1  4 135.8667 93.6125 
2  6 204.5500 155.0000 
3  8 357.6167 326.0000 

「0」と「1」が悪いの列名ですが、あなたがバッククォートでそれらを引用するならば、彼らはまだaes()で使用することができます。 position_dodge()への呼び出しも不要になる：

dt %>% ggplot(aes(x = factor(cyl), y = `0`, fill = factor(cyl))) + 
    geom_bar(stat = 'identity') + 
    geom_point(aes(x = factor(cyl), y = `1`), colour = 'black') + 
    geom_segment(aes(x = factor(cyl), xend = factor(cyl), y = `0`, yend = `1`))