r - Rを使用したggplot2のカスタムgeomテキストの色

Question

ggplot を使用してテニス データを視覚化したいと考えています。これまでのところ、勝者/敗者のデータに基づいてデータを視覚化できました。

2015    Flavia Pennetta 81
2014    Serena Williams 65
2013    Serena Williams 109
2012    Serena Williams 94
2011    Samantha Stosur 61
2010    Kim Clijsters   58
2009    Kim Clijsters   82
2008    Serena Williams 89
2007    Justine Henin   70
2006    Maria Sharapova 66
2015    Roberta Vinci   47
2014    Caroline Wozniacki  49
2013    Victoria Azarenka   91
2012    Victoria Azarenka   87
2011    Serena Williams 41
2010    Vera Zvonareva  31
2009    Caroline Wozniacki  66
2008    Jelena Jankovic 79
2007    Svetlana Kuznetsova 54
2006    Justine Henin   58

コードは次のとおりです。

ggplot(data=f_data, aes(x=year, y=winner_totalPointWon, fill=output)) +
  geom_bar(stat="identity", position=position_dodge())+geom_text(aes(label=winner), position = position_dodge(0.9),vjust=0,angle=90)

各プレイヤーを異なる色で表すことができるように、プレイヤー名でグループ化された名前のテキストの色を変更するにはどうすればよいですか?

Answer 1

これはどうですか（名前のみを使用しました）：

ggplot(data=f_data, aes(x=year, y=winner_totalPointWon, fill=output)) +
      geom_bar(stat="identity", position=position_dodge())+
geom_text(aes(label=winner, colour=winner, size=5), position = position_dodge(0.9),vjust=0,angle=90)

出力あり

Answer 2

次のコードは私にとってはうまく機能します：

ggplot(data=f_data, aes(x=year, y=winner_totalPointWon, fill=output)) + 
geom_bar(stat="identity", position=position_dodge()) + 
geom_text(aes(label=winner, colour=winner), size=5, position = position_dodge(0.9),vjust=0,angle=90)