R：スコアメーター/グラディエントアークを作成する

Question

Excelで作成したグラフを再作成しようとしています。これは、基本的にスコアメーターまたはグラディエントアークであり、特定の領域の欠乏デシールを示しています。したがって、それは10から1までの勾配メーター（赤から緑へ）であり、一定の値は剥奪デシールを示す。このイメージのようなもの。

Deprivation in area gradient arc

私はちょうど私が剥奪十分位を変更することができるようになるとグラフが現れますRで同様のグラフを作成する必要があります。 colorRampPaletteとplotで試してみましたが、これを行う方法が見つかりませんでした。私はグラフが円弧か平たんなのか本当に気にしません。

PS：この種のデータを視覚的に表現するには良い方法を見つけようとしましたが、実際には見つかりませんでした。より適切なものを考えるなら、それを私に指摘してください。私は、これはあなたが探しているものであり、もちろん、あなたの目的に合わせて変更することができますが、ここでは、コードの小さなビットは、あなたが始めるためにかどうexatclyわからない

おかげ

Answer 1

。 0〜100の水平メーターを作成し、値val（ここでは60）とテキストsText（ここではHarborough 003E）を選択するだけです。

library(ggplot2) 
val <- 60 ; sText <- "Harborough 003E" 

df <- data.frame(y = seq(0, 100, by = 1), x = 1) 
df.labs <- data.frame(y = c(0, 100, val), 
         lab = c("Most Deprived", 
           "Least Deprived", 
           sText)) 

ggplot(df, aes(x = x, y = y, fill = y)) + 
    geom_tile() + 
    geom_hline(yintercept = val, colour = "blue", size = 1) + 
    geom_text(data = df.labs, aes(x = 1, y = y, label = lab), hjust = c(0, 1, 0.5)) + 
    scale_fill_gradient(low = "red", high = "green", guide = FALSE) + 
    coord_flip() + 
    theme_void() + 
    theme(aspect.ratio = 0.1) 

もちろん、目立つように、目盛り、値、タイトルなどを追加して操作できます。

結果のプロットは、次のとおりです。

私はこのことができます願っています。