ggplot2で地図上にフランスの鉛筆に名前を付けるさまざまな方法をプロットしようとしています。フランスの96の学科のそれぞれについて、私は1つのアイテムとこのアイテムに関連付けられたスコアを持っています。私は、部門上のアイテムを地図上にプロットするのに問題はありませんが、関連するスコアに応じて各ポリゴンの色を変える方法を見つけることはできません。私のデータはhereです。マップを生成するためのコードは、以下である:ggplot2でマップ上にポリゴンの色を塗りつぶし
library(ggplot2)
library(scales)
library(Cairo)
#open data
plotDatafr = read.table("plotDatafr.txt", header=T, sep="\t", quote="", dec=".")
g <- ggplot() +
geom_polygon(data = plotDatafr, aes(x=long, y = lat, group = group, fill=item), alpha=0.8, colour = "black") +
scale_fill_manual(values = c("#009E73", "#F0E442", "#0072B2", "#D55E00"), na.value=NA) +
theme_nothing(legend = TRUE) +
coord_map() #avoid distorsion
ggsave(g, filename = "crayon_euro.png", scale=1) #save for futher use
Iが「scale_fill_distiller」コマンドを使用しようとしたが、そのようなコマンドを使用して私は、単一のアイテムの特性をプロットすることができ、私は彼らの与えられた色を失う、例えば:
g <- ggplot() +
geom_polygon(data = plotDatafr, aes(x = long, y = lat, group = group, fill = score), colour = "black", alpha = 0.8) +
scale_fill_distiller(palette = "Purples", breaks = pretty_breaks(n = 9), labels = percent, direction = 1, "", guide=FALSE) +
guides(fill = guide_legend(reverse = TRUE, override.aes = list(alpha = 1))) +
theme_nothing(legend = TRUE) +
coord_map() #avoid distorsion
ggsave(g, filename = "crayon_euro.png", scale=1) #save for futher use
私の多角形の色合いを数値で変える方法はありますか?私はscale_fill_distillerとscale_fill_manualを同時に組み合わせる方法を考え出すことはできません。
あなたがあなたの問題のために、最小限の再現性の例を作ることができますか?複数のファイルをダウンロードして複数のパッケージをインストールするように尋ねると 'geom_polygon(aes(fill =)) 'の問題が残っているようですが、' dput(plotDatafr) 'の結果を追加することがあります – Nate
' alpha = score'を追加することは、スコアの異なる値。 – Haboryme
ありがとう@NathanDay - 私は質問を編集し、データセットを提供し、コードを短縮しました。 –