[解決済み】geom_pointでポイントにラベルを付ける。

質問

私が扱っているデータは、以下のインターネット上のソースから取得したものです。

nba <- read.csv("http://datasets.flowingdata.com/ppg2008.csv", sep=",")

私がやりたいことは、この表から2つの指標を比較する2次元ポイントグラフを作成することです。次のようなコードです。

nbaplot <- ggplot(nba, aes(x= MIN, y= PTS, colour="green", label=Name)) + 
                  geom_point() 

これで、次のようになります。

私が欲しいのは、ドットのすぐ隣にあるプレイヤー名のラベルです。ggplotのestheticsにあるlabel関数がこれをやってくれると思ったのですが、そうではありませんでした。

また text() 関数と textxy() 関数から library(calibrate) どちらもggplotでは動作しないようです。

これらの点に名前ラベルを付けるにはどうしたらよいでしょうか？

解決方法は？

使用方法 geom_text と共に aes ラベルを使用します。で遊べます。 hjust, vjust でテキストの位置を調整します。

ggplot(nba, aes(x= MIN, y= PTS, colour="green", label=Name))+
  geom_point() +geom_text(hjust=0, vjust=0)

<イグ

EDIT：ある閾値以上の値のみをラベル化する。

  ggplot(nba, aes(x= MIN, y= PTS, colour="green", label=Name))+
  geom_point() +
  geom_text(aes(label=ifelse(PTS>24,as.character(Name),'')),hjust=0,vjust=0)

<イグ