web-dev-qa-db-ja.com

Rのggplot2のgeom_textのフォント色を変更するにはどうすればよいですか？

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）

  2. それから私はこれを試しました：

    geom_text（aes（label = Count、color = c（ "＃000000"、 "＃FF5733"））、position = position_dodge（width = 0.9）、vjust = -0.40）

この調整で次のエラーが表示されます：エラー：美学は長さ1またはデータ（6）と同じでなければなりません：ラベル、色、x、y

これは、6本のバーが指定されているが2色しかないためだと思う。ただし、さらに4回で色を追加すると、望みどおりになります。

画像を投稿しようとしましたが、まだ十分なポイントがありません！ごめんなさい！

すべてのヘルプを提供してくれてありがとう。 RStudioを実行しています：

Rバージョン3.2.3（2015-12-10）
プラットフォーム：x86_64-Apple-darwin13.4.0（64ビット）
実行中：OS X 10.11.6（El Capitan）
[1] ggplot2_2.1.0

平和。

rggplot2geom-text
9
Jess

geom_text美的マッピングにcolourオプションを追加し、scale_colour_manualでTypeの2つの因子レベルにカスタム色を割り当ててみてください

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"))
9
Gui_struggling_with_R