在geom_text（）上编辑图例

Question

我用ggplot编辑图例时遇到了麻烦，但是使用geom_text我似乎遇到了麻烦。

i <- ggplot(threedusg, aes(x=DxRAPM, y=X3PAr, label=threedusg$Player)) i + geom_text(aes(size=threedusg$CS3,hjust=0,vjust=0)) + scale_x_continuous(limits=c(0,6))

以下是我的传奇内容 http://imgur.com/H6vZN2b

文本的大小来自具有百分比的数据。我希望将图例中的文本读作实际百分比。例如，它说.30而不是30％。任何帮助将不胜感激！

Answer 1

使用scales库（您需要显式加载），您可以使用percent贴标机。 （注意，您不应在ggplot调用中使用$引用数据集的列。

library(scales)

ggplot(threedusg, aes(x = DxRAPM, y = X3PAr, label = Player)) +
  geom_text(aes(size = CS3), hjust = 0, vjust = 0) +
  scale_x_continuous(limits = c(0,6)) +
  scale_size(label = percent)

在可重复的例子上

foo <- data.frame(x=1:5,y=1:5,player=letters[1:5],rate = c(0.2,0.5,0.7,0.1,0.8))
ggplot(foo, aes(x=x,y=y,label=player)) + 
  geom_text(aes(size=rate)) + 
  scale_size(label = percent)