棒グラフに奇妙な塗りつぶしと誤った順序があるのはなぜですか？ （R）

Question

誰かが私の棒グラフにこれらの奇妙な見た目の線がある理由を指摘してもらえますか、内部で塗りつぶしていますが、ビューでカテゴリを並べ替えると機能しませんか？

マイデータは以下のとおりです。私は、ビューの合計（カテゴリではなく）と合計ビューの降順による順序の棒グラフを作成しました。

category views 
    1  100 
    2  12 
    1  5 
    10  98 
    .  . 
    .  . 
    .  . 

マイコード：x軸から

gplot(data=data, aes(x=reorder(category, views), y=views)) + 
geom_bar(colour="black", stat="identity") + 
coord_flip() 

Answer 1

、あなたが個別にたくさんの観測をプロットしている表示されます。これらの別々の観測の境界線であるため、あなたは奇妙な黒のバンディングをしています。

• 変更fillからcolourからAES引数：

  set.seed(123) 
  data <- data.frame(category = 1:15, views = sample(1:300), size = 3000, replace = T)) 
  
  # plot the graph 
  library(ggplot2) 
  ggplot(data=data, aes(x=reorder(category, views), y=views)) + 
      geom_bar(colour="black", stat="identity") + 
      coord_flip() 
  

  

  あなたはこれを修正するには、2つの方法があります。ここでの動作を確認した再現性の例があり、これが行いますバーブラック

• プロット前のデータをグループ化：私は

  # aggregate before plotting 
  data_sum <- aggregate(views ~ category, data = data, FUN = sum) 
  
  ggplot(data=data_sum, aes(x=reorder(category, views), y=views)) + 
      geom_bar(colour="black", stat="identity") + 
      coord_flip() 
  

  

  ：あなたが実際にバーの輪郭に色をしようとしている場合、あなたはそれが最高の

を作品プロットする前のグループにデータを集約することはここでは第二のアプローチであります提供されたデータセットで注文の問題を再現することができません。しかし、データを集約すると、私はこれを解決するはずです。