r - 如何更改 R 中 ggplot2 中 geom_text 的字体颜色？

Question

我正在使用geom_bar在ggplot2中生成一些基本条形图。我希望数字在每个条形上方以相同的颜色列出，并且我使用的是 geom_text。我使用 scale_fill_manual(values = alpha(c("#000000", "#FF5733"))) 填充条形。我遇到的问题是条形上方的文本没有更改为自定义颜色。保留默认的 R 颜色。

library(ggplot2)
Area <- c("Option1", "Option2", "Option3")
Count <- c(193, 56, 4,240, 10, 25)
Type <- c("car", "car", "car", "bike", "bike", "bike")
p <- data.frame(Area, Count, Type)

ggplot(p, aes(x=Area, y=Count, color=Type)) + 
        geom_bar(stat="identity", position="dodge", aes(fill=Type), color="black")  +
        scale_fill_manual(values = alpha(c("#000000", "#FF5733"))) +
        geom_text(aes(label=Count), position=position_dodge(width = 0.9), vjust=-0.40)

我尝试了以下方法，但没有成功:

1. 有一次，我决定如果我可以将文本设置为黑色，我会接受它并继续，但当我这样做时，定位失败并将两个文本居中为一个“选项”，而不是保留文本在各自的栏上。

     geom_text(aes(label=Count), color="black", position=position_dodge(width = 0.9), vjust=-0.40)

然后我尝试了这个:

    geom_text(aes(label=Count, color=c("#000000", "#FF5733")), position=position_dodge(width = 0.9), vjust=-0.40)

此调整后出现以下错误:

Error: Aesthetics must be either length 1 or the same as the data (6): label, colour, x, y

我认为这是因为有 6 个条形，但只指定了 2 种颜色。然而，当我再添加 4 次颜色时，它就离我想要的越来越远了。

我尝试发布图片，但积分还不够!抱歉!

感谢您提供的所有帮助。我正在运行 RStudio:

R version 3.2.3 (2015-12-10)  
Platform: x86_64-apple-darwin13.4.0 (64-bit)  
Running under: OS X 10.11.6 (El Capitan)  
[1] ggplot2_2.1.0

和平。

Answer 1

尝试将 colour 选项添加到 geom_text 美学映射中，并使用 将自定义颜色分配给 Type 的两个因子级别比例颜色手册

ggplot(p, aes(x=Area, y=Count, color=Type)) + 
        geom_bar(stat="identity", position="dodge", aes(fill=Type), color="black")  +
    scale_fill_manual(values = alpha(c("#000000", "#FF5733"))) +
    geom_text(aes(label=Count, colour=Type), 
             position=position_dodge(width = 0.9), 
             vjust=-0.40) +
    scale_colour_manual(values=c("#000000", "#FF5733"))