0

単純化されたデータフレームがあります

library(ggplot2)
df <- data.frame(wins=c(1,1,3,1,1,2,1,2,1,1,1,3))
ggplot(df,aes(x=wins))+geom_histogram(binwidth=0.5,fill="red")

異なる塗りつぶしまたはアルファで表示される、シーケンスの最終値 3 を取得したいと思います。その値を識別する 1 つの方法は、

tail(df,1)$wins

さらに、数値の中央に配置されるようにヒストグラム バーをシフトしたいと考えています。勝利値からの減算に失敗しました

4

2 に答える 2

1

geom_histogram()1）サブセットに使用できるさまざまな色でビンを描画するには。

2) x 軸の数値に沿ってバーを中央に配置するには、呼び出すことができますscale_x_continuous(breaks=..., labels=...)

だから、このコード

library(ggplot2)
df <- data.frame(wins=c(1,1,3,1,1,2,11,2,11,15,1,1,3))
cond <- df$wins == tail(df,1)$wins

ggplot(df, aes(x=wins)) +
  geom_histogram(data=subset(df,cond==FALSE), binwidth=0.5, fill="red") +
  geom_histogram(data=subset(df,cond==TRUE), binwidth=0.5, fill="blue") +
  scale_x_continuous(breaks=df$wins+0.25, labels=df$wins)

プロットを生成します：

ここに画像の説明を入力

于 2012-11-14T12:16:55.487 に答える