変数をグルーピングしてggplotのヒストグラムの面を塗りつぶす

これは簡単なことだと思っていました。変数をグルーピングしてggplotのヒストグラムの面を塗りつぶす

私はファセットのヒストグラムのコードを持っています。彼らは標準的な色のテーマには問題はありませんが、色々なグループのドットを持つ単一の散布図ではうまく動作します。

そして、どこに赤が入っていますか？

library(ggplot2) 
library(ggthemes) 

ggplot(data = point_list, aes(x = lifetime, 
           y = ..density..)) + 
    geom_histogram() + 
    aes(fill = as.factor(cluster), 
     col = "black") + 
    scale_x_continuous(expand = c(0,0)) + 
    scale_y_continuous(expand = c(0,0)) + 
    coord_cartesian(xlim = c(-2.6,50), 
        ylim = c(0,0.16)) + 
    theme_tufte(base_size = 11, base_family = "Helvetica") + 
    theme(axis.text = element_text(color = "black"), 
      panel.border = element_rect(colour = "black", fill=NA, size=0.7), 
      legend.position = "none") + 
    facet_wrap(~cluster, scales = "free",) + 
    scale_color_brewer(palette = "Set1")

、セット1は次のようになります。あなたが黒に赤を変更したい場合だけにあなたのgeom_histogram行を変更

出典

2017-08-17 komodovaran_

'aes'ではcolではなく' color' – loki

あなたの 'fill'と' facet_wrap'変数は同じでなければなりません。 'cluster'と' as.factor（cluster） 'は異なるかもしれません。また、最後の行では、おそらく 'scale_fill_brewer'が必要です。 –

ああ、それは私を逃れた 'scale_fill_brewer'だ！突然すべてが意味をなさない。ルーキーミス。 –

バーの輪郭が赤である理由を説明します。他のものはすべて既にカバーされているからです。

あなたのコードでは、審美的なマッピング機能の内側にcol = "black"がありました。つまり、アウトラインに使用されている色が変数にマップされていました。この場合の「黒」は1レベルの要素として解釈されます。コードにはscale_color_brewer(palette = "Set1")も含まれているため、結果の色はSet1パレットの最初の色、つまり明るい赤です。

（実際の言葉は問題ではありませんでした;。あなたはcol = "white"またはそのような何かを持っていた場合、それはまったく違いはありませんでしょう）

あなたが別のパレットを選択した場合は、アウトラインの色があまりにも違うだろう。たとえば：

ggplot(data = point_list, aes(x = lifetime, 
           y = ..density..)) + 
    geom_histogram(size = 3) + # thicker outline to make the color more obvious 
    aes(fill = as.factor(cluster), 
     col = "black") + 
    scale_x_continuous(expand = c(0,0)) + 
    scale_y_continuous(expand = c(0,0)) + 
    coord_cartesian(xlim = c(-2.6,50), 
        ylim = c(0,0.16)) + 
    # theme_tufte(base_size = 11, base_family = "Helvetica") + #commenting this out since I don't have this theme 
    theme(axis.text = element_text(color = "black"), 
     panel.border = element_rect(colour = "black", fill=NA, size=0.7), 
     legend.position = "none") + 
    facet_wrap(~cluster, scales = "free",) + 
    scale_color_brewer(palette = "Set2")