r - geom_text 中每个标签的字体大小不同

Question

我有一个使用 ggplot2 制作的条形图.我想使用 geom_text 为每个条添加标签使得标签的文本大小与标签相对应。为此，我使用了以下代码:

a <- aggregate(mpg ~ vs + am , mtcars, function(i) round(mean(i)))
p <- ggplot(mtcars, aes(factor(vs), y=mpg, fill=factor(am))) + 
      geom_bar(stat="identity",position="dodge") + 
      geom_text(data = a, aes(label = mpg, size = mpg), 
                position = position_dodge(width=0.9))

这给了我一个看起来像这样的情节:


如您所见，标签大小正在发生变化，但文本字体大小与标签大小不符。对于第一个条形，标签是 15，它几乎不可见。当我用固定文本大小为 15 绘制相同的条形图时，标签并不像上面看到的那么小。以下是使用固定文本大小生成的代码和绘图:

 a <- aggregate(mpg ~ vs + am , mtcars, function(i) round(mean(i)))

 p <- ggplot(mtcars, aes(factor(vs), y=mpg, fill=factor(am))) + 
      geom_bar(stat="identity",position="dodge") + 
      geom_text(data = a, aes(label = mpg), 
                position = position_dodge(width=0.9), size = 15)  

当每个标签给出不同的尺寸时，有没有办法使标签的尺寸保持一致？

Answer 1

将大小设置为 sort(a$mpg)有诀窍

p <- ggplot(mtcars, aes(factor(vs), y=mpg, fill=factor(am))) + 
    geom_bar(stat="identity",position="dodge") + 
    geom_text(data = a, aes(label = mpg), 
              position = position_dodge(width=0.9), size = sort(a$mpg))