r - Rggplot2の連続軸上の文字値

Question

ggplot2で連続データをプロットするときに軸に文字値を含める方法はありますか？次のようなデータを打ち切りました。

   x  y Freq
1 -3 16    3
2 -2 12    4
3  0 10    6
4  2  7    7
5  2  4    3

データの最後の行は右打ち切りです。次のプロットを作成するために、以下のコードでこれをプロットしています。

a1 = data.frame(x=c(-3,-2,0,2,2), y=c(16,12,10,7,4), Freq=c(3,4,6,7,3))
fit = ggplot(a1, aes(x,y)) + geom_text(aes(label=Freq), size=5)+
  theme_bw() +
  scale_x_continuous(breaks = seq(min(a1$x)-1,max(a1$x)+1,by=1),
                     labels = seq(min(a1$x)-1,max(a1$x)+1,by=1),
                     limits = c(min(a1$x)-1,max(a1$x)+1))+
  scale_y_continuous(breaks = seq(min(a1$y),max(a1$y),by=2))

（2,4）の3点は右打ち切りです。3ではなく対応するx軸の目盛り「>=2」を使用して、1単位右にプロットしてほしい。これが可能であれば、何かアイデアはありますか？

Answer 1

それはかなり可能です。データをハッキングしたので2,4、3,4です。次に、ブレークと同じ長さである限り、ラベルを変更しました。

ggplot(a1, aes(x,y)) + geom_text(aes(label=Freq), size=5)+
theme_bw() +
scale_x_continuous(breaks = seq(min(a1$x)-1,max(a1$x),by=1),
                   labels = c(seq(min(a1$x)-1,max(a1$x)-1,by=1), ">=2"),
                   limits = c(min(a1$x)-1,max(a1$x)))+
scale_y_continuous(breaks = seq(min(a1$y),max(a1$y),by=2))