r - geom_rug でグラフに 3 番目の変数を追加できますか?

Question

チームの結果、引き分けまたは負けの勝ち、累積ゲーム数、リーグ順位を示すスポーツ データセットがあります。このようにして、プレイされたゲームによる位置の簡単なプロットが作成されます

df<- data.frame(played=c(1:5), 
        result=c("W","L","D","D","L"), 
        position=c(1,3,4,4,5))
ggplot() + 
     geom_line(data=df,aes(x=played,y=position)) + 
     scale_y_reverse()

W結果ごとに異なる色LのD敷物を x 軸にgeom_rug追加したいと思いgeom_barます。

Answer 1

これでうまくいくはずです：

##The data frame df is now inherited by
##the other geom's
ggplot(data=df,aes(x=played,y=position)) + 
  geom_line() +
  scale_y_reverse() +
  geom_rug(sides="b", aes(colour=result))

このgeom_rug関数では、底に敷物のみが必要であり、結果に応じて線に色を付ける必要があることを指定します。色を変更するには、scale_colour_*関数を見てください。特定の色については、次を試してください。

+ scale_colour_manual(values=c("blue","red", "green"))