Question

我在名为dados的数据帧中有地理参考数据，并且正在使用forloop从中制作地图：

还有一个名为nomes的数据框，其中包含我要在列nomes中绘制的变量名称和变量标签

# A tibble: 18 x 3
index nomes                  label                                       
<dbl> <chr>                  <chr>                                       
1     1 v_a_s_emp_3112         Variação anual média: Total de empregados e~
2     2 v_a_s_emp_medio        Variação anual média: Soma do emprego medio~
3     3 v_a_emprego_total      Variação anual média: Emprego total (BNDES) 
4     4 v_a_h                  Variação anual média: Total de contratações 
5     5 v_a_s                  Variação anual média: Total de desligamentos
6     6 v_a_prop_emprego_3     Variação anual média: Proporção de estab. c~
7     7 v_a_estab              Variação anual média: Número de estabelecim~
8     8 v_a_emprego_medio      Variação anual média: Média de empregados n~
9     9 v_a_emprego_medio_ent~ Variação anual média: Média do emprego dos ~
10    10 v_a_nascimento_data    Variação anual média: Número de estab. entr~
11    11 v_a_nascimento_rais    Variação anual média: Número de estab. entr~
12    12 v_a_morte_rais         Variação anual média: Número de estab. ause~
13    13 v_a_tx_sobrev          Variação anual média: Taxa de sobrevivência~
14    14 v_a_n_solicitacao      Variação anual média: Número de estabelecim~
15    15 v_a_prop_idade_3       Variação anual média: Proporção de estab. c~
16    16 v_a_n_uso              Variação anual média: Número de estabelecim~
17    17 v_a_valorfinanc        Variação anual média: Valor financiado em R~
18    18 v_a_valor_invest       Variação anual média: Bens de investimento ~

生成和保存地图的代码就是这一行，它可以工作。

for (n in nomes$nomes) {

png(filename = paste("mapa_", n,".png", sep = ""), width = 1200,
height = 700, res = 200)

print(spplot(dados, c(n),
       col.regions = cores,
       at = intervalos,
       colorkey = list(at = c(-15, 0,20,40,60,80,100)),
       par.settings = my.settings,
       main = n) #title

)

dev.off()

}

问题在于地图的名称难以理解和呈现。

我希望地图的标题成为nomes$label中元素在同一行中nomes$nomes中的元素。

我尝试更改main参数并将其设置为等于nomes$label[n]，但出现以下错误消息：

Error in if (with(lab, is.null(label) || (is.character(label) && (label ==  : 
missing value where TRUE/FALSE needed

遗憾的是，由于它是管理性的，因此我无法为您提供完整再现地图的数据。任何帮助表示赞赏。

Answer 1

也许可行：按如下所示更改for调用：

for (n in seq_along(nomes$nomes))

，并将n的每个实例替换为nomes$nomes[n]。然后，您可以将main=n替换为

main = nomes$label[n]

R：使用来自forloop的数据帧中的一列元素命名映射，并使用来自另一列的元素命名其文件

1 个答案: