带有R的ggplot2中的自定义geom文本颜色答案

【问题标题】：custom geom text colors in ggplot2 with R带有R的ggplot2中的自定义geom文本颜色
【发布时间】：2017-01-20 17:44:05
【问题描述】：

我想使用 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)

如何更改按玩家名称分组的名称的文本颜色，以便每个玩家都可以用不同的颜色表示？

【问题讨论】：

你试过使用主题吗？ docs.ggplot2.org/0.9.2.1/theme.html
@Eddie 你能举个例子吗

标签： r ggplot2 geom-text

【解决方案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)

【讨论】：

【解决方案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)

有输出

【讨论】：