r - 如何将图例值显示为百分比

Question

对于以下数据:

   RW GA Freq   percFreq
    0  0    9 0.13043478
    0  3    1 0.01449275
    0 14    1 0.01449275
    0 16    1 0.01449275
    0 23    1 0.01449275
    0 25    1 0.01449275
    0 29    2 0.02898551
    0 30    1 0.01449275
    2 30    1 0.01449275
   15 30    2 0.02898551
   19 30    1 0.01449275
   22 30    1 0.01449275
   24 30    1 0.01449275
   29 30    1 0.01449275
   30 29   16 0.23188406
   30 30   29 0.42028986

我想将下图中的图例值更改为以百分比显示:

生成绘图的脚本是:

ggplot(counts, aes(x=RW, y=GA, size=Freq, color=as.factor(percFreq))) + geom_point(alpha=0.7) +
    scale_size(range = c(1, 10), name="Freq", limits=c(1,30), breaks=lbreaks) +
    scale_color_discrete(name="Freq", breaks=lbreaks)

基本上，我不想在图例中显示 0.42028986，而是希望它显示为 42%。

我该怎么做？

Answer 1

使用“比例”库中的“百分比”。

加载scales库:

library(scales)

然后将 labels = percent 添加到您的离散量表中:

ggplot(counts, aes(x=RW, y=GA, size=Freq, color=as.factor(percFreq))) + 
  geom_point(alpha=0.7) +
  scale_size(range = c(1, 10), name="Freq", limits=c(1,30), breaks=lbreaks) +
  scale_color_discrete(name="Freq", breaks=lbreaks, labels = percent(lbreaks, accuracy = .01))

如果您想更改数字的舍入方式，请使用 accuracy 参数:

scales::percent(percFreq, accuracy = .001)

(这有 accuracy = .1)

希望这对您有所帮助。