自動的に数字と地図がR

Question

に自動的に付けられます。1948年以来、各選挙で民主党と共和党に投票した有権者の割合の地図を生成するためにRを使用しています。私は各選挙ごとに2つのマップを生成したい（各当事者に1つ）。私はGIStoolsとrgdalライブラリを使用していて、私の暫定的なコードは次のようである

：

variablelist = c("Dem1948", "Rep1948", ..., "Dem2012", "Rep2012") 

for (variable in variablelist) { 
    shades <- auto.shading(USA$variable, n = 5, cols = brewer.pal(5, "Blues")) 
    choropleth(USA, USA,variable, shades) 
    choro.legend(-91, 27, shades, fmt = "%g", title = "Voting Percentage") 
} 

問題は私のタイトルです（最後の行を参照）、すべてのマップのための非常に一般的です。 「Dem1948」のタイトルを自動的に「1948年に民主党に投票した割合」などにすることはできますか？あなたがあなたのコードに次を追加することができ

Answer 1

：

party_use <- ifelse(grepl("Dem",variable),"Democrats","Republicans") 
year_use <- substr(variable,4,7) 

choro.legend(-91, 27, shades, fmt = "%g", title = paste0("Percentage that voted for ", party_use," in ", year_use))