I would like to create a new column, transforming Tab1612SojaRend$Nível.Territorial
the levels "Great Region" and "Federation Unit" into columns. The Federation Unit has to be in the same column of the cities according to the state. Another point that needed to be to eliminate the state variable "Municipality, Great Region and Federation Unit".
library(sidrar)
Tab1612SojaRend <-get_sidra(1612,variable = 112, period = c("last" = 22),
geo = c("Region","State","City"),
geo.filter = list("Region" = 3,"Region" = 3,"Region" = 3),
classific = 'c81',
category = list(2713))
Tab1612SojaRend$Nível.Territorial <-
as.factor(Tab1612SojaRend$Nível.Territorial)
dput(Tab1612SojaRendsudeste[c(1:10, 101:110, 24001:24010), ])
structure(list('Nível Territorial (Código)' = c("6", "6", "6",
"6", "6", "6", "6", "6", "6", "6", "6", "6", "6", "6", "6", "6",
"6", "6", "6", "6", "6", "6", "6", "6", "6", "6", "6", "6", "6",
"6"), 'Nível Territorial' = c("Município", "Município", "Município",
"Município", "Município", "Município", "Município", "Município",
"Município", "Município", "Município", "Município", "Município",
"Município", "Município", "Município", "Município", "Município",
"Município", "Município", "Município", "Município", "Município",
"Município", "Município", "Município", "Município", "Município",
"Município", "Município"), 'Município, Grande Região e Unidade da Federação
(Código)' = c("3100104",
"3100104", "3100104", "3100104", "3100104", "3100104", "3100104",
"3100104", "3100104", "3100104", "3100500", "3100500", "3100500",
"3100500", "3100500", "3100500", "3100500", "3100500", "3100500",
"3100500", "3506300", "3506300", "3506359", "3506359", "3506359",
"3506359", "3506359", "3506359", "3506359", "3506359"), 'Município, Grande
Região e Unidade da Federação' = c("Abadia dos Dourados - MG",
"Abadia dos Dourados - MG", "Abadia dos Dourados - MG", "Abadia dos Dourados
- MG",
"Abadia dos Dourados - MG", "Abadia dos Dourados - MG", "Abadia dos Dourados
- MG",
"Abadia dos Dourados - MG", "Abadia dos Dourados - MG", "Abadia dos Dourados
- MG",
"Açucena - MG", "Açucena - MG", "Açucena - MG", "Açucena - MG",
"Açucena - MG", "Açucena - MG", "Açucena - MG", "Açucena - MG",
"Açucena - MG", "Açucena - MG", "Bernardino de Campos - SP",
"Bernardino de Campos - SP", "Bertioga - SP", "Bertioga - SP",
"Bertioga - SP", "Bertioga - SP", "Bertioga - SP", "Bertioga - SP",
"Bertioga - SP", "Bertioga - SP"), 'Ano (Código)' = c("1996",
"1997", "1998", "1999", "2000", "2001", "2002", "2003", "2004",
"2005", "2008", "2009", "2010", "2011", "2012", "2013", "2014",
"2015", "2016", "2017", "2016", "2017", "1996", "1997", "1998",
"1999", "2000", "2001", "2002", "2003"), Ano = c("1996", "1997",
"1998", "1999", "2000", "2001", "2002", "2003", "2004", "2005",
"2008", "2009", "2010", "2011", "2012", "2013", "2014", "2015",
"2016", "2017", "2016", "2017", "1996", "1997", "1998", "1999",
"2000", "2001", "2002", "2003"), 'Variável (Código)' = c("112",
"112", "112", "112", "112", "112", "112", "112", "112", "112",
"112", "112", "112", "112", "112", "112", "112", "112", "112",
"112", "112", "112", "112", "112", "112", "112", "112", "112",
"112", "112"), Variável = c("Rendimento médio da produção", "Rendimento
médio da produção",
"Rendimento médio da produção", "Rendimento médio da produção",
"Rendimento médio da produção", "Rendimento médio da produção",
"Rendimento médio da produção", "Rendimento médio da produção",
"Rendimento médio da produção", "Rendimento médio da produção",
"Rendimento médio da produção", "Rendimento médio da produção",
"Rendimento médio da produção", "Rendimento médio da produção",
"Rendimento médio da produção", "Rendimento médio da produção",
"Rendimento médio da produção", "Rendimento médio da produção",
"Rendimento médio da produção", "Rendimento médio da produção",
"Rendimento médio da produção", "Rendimento médio da produção",
"Rendimento médio da produção", "Rendimento médio da produção",
"Rendimento médio da produção", "Rendimento médio da produção",
"Rendimento médio da produção", "Rendimento médio da produção",
"Rendimento médio da produção", "Rendimento médio da produção"
), 'Produto das lavouras temporárias (Código)' = c("2713", "2713",
"2713", "2713", "2713", "2713", "2713", "2713", "2713", "2713",
"2713", "2713", "2713", "2713", "2713", "2713", "2713", "2713",
"2713", "2713", "2713", "2713", "2713", "2713", "2713", "2713",
"2713", "2713", "2713", "2713"), 'Produto das lavouras temporárias' =
c("Soja (em grão)",
"Soja (em grão)", "Soja (em grão)", "Soja (em grão)", "Soja (em grão)",
"Soja (em grão)", "Soja (em grão)", "Soja (em grão)", "Soja (em grão)",
"Soja (em grão)", "Soja (em grão)", "Soja (em grão)", "Soja (em grão)",
"Soja (em grão)", "Soja (em grão)", "Soja (em grão)", "Soja (em grão)",
"Soja (em grão)", "Soja (em grão)", "Soja (em grão)", "Soja (em grão)",
"Soja (em grão)", "Soja (em grão)", "Soja (em grão)", "Soja (em grão)",
"Soja (em grão)", "Soja (em grão)", "Soja (em grão)", "Soja (em grão)",
"Soja (em grão)"), 'Unidade de Medida (Código)' = c("33", "33",
"33", "33", "33", "33", "33", "33", "33", "33", "33", "33", "33",
"33", "33", "33", "33", "33", "33", "33", "33", "33", "33", "33",
"33", "33", "33", "33", "33", "33"), 'Unidade de Medida' = c("Quilogramas
por
Hectare",
"Quilogramas por Hectare", "Quilogramas por Hectare", "Quilogramas por
Hectare",
"Quilogramas por Hectare", "Quilogramas por Hectare", "Quilogramas por
Hectare",
"Quilogramas por Hectare", "Quilogramas por Hectare", "Quilogramas por
Hectare",
"Quilogramas por Hectare", "Quilogramas por Hectare", "Quilogramas por
Hectare",
"Quilogramas por Hectare", "Quilogramas por Hectare", "Quilogramas por
Hectare",
"Quilogramas por Hectare", "Quilogramas por Hectare", "Quilogramas por
Hectare",
"Quilogramas por Hectare", "Quilogramas por Hectare", "Quilogramas por
Hectare",
"Quilogramas por Hectare", "Quilogramas por Hectare", "Quilogramas por
Hectare",
"Quilogramas por Hectare", "Quilogramas por Hectare", "Quilogramas por
Hectare",
"Quilogramas por Hectare", "Quilogramas por Hectare"), Valor = c(1620,
2202, 2200, 2400, 2800, 2880, 2700, 2800, 2429, 2700, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, 2550, 2550, NA, NA, NA, NA, NA,
NA, NA, NA)), row.names = c(2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L,
11L, 102L, 103L, 104L, 105L, 106L, 107L, 108L, 109L, 110L, 111L,
24002L, 24003L, 24004L, 24005L, 24006L, 24007L, 24008L, 24009L,
24010L, 24011L), class = "data.frame")