Preciso substituir os dados de uma coluna em uma tabela se eles não estiverem contidos numa lista especificada pela string "Não Informado"
Tentei esse comando:
jan_mar$Bairro[which(!(bairros_cidade)] = "Não Informado"
Também tentei:
jan_mar$Bairro[jan_mar$Bairro != bairros_cidade] = "Não Identificado"
Com este ultimo comando a resposta foi: "Warning message: In jan_mar$Bairro != bairros_cidade : comprimento do objeto maior não é múltiplo do comprimento do objeto menor"
E o valor retornado de "Não Informado" foi de 15112, muito acima dos 795 obtidos a partir do calculo manual das inconsistências
Com nenhuma deles obtive o resultado desejado
library(xlsx)
library(tidyverse)
library(data.table)
cursor1 = read.xlsx("Estácio - Vacinação COVID Jaraguá do Sul - Jan a Mar.2021.xlsx", sheetIndex = 1)
cursor2 = read.xlsx("Estácio - Vacinação COVID Jaraguá do Sul - Jan a Mar.2021.xlsx", sheetIndex = 2)
jan_mar = merge.data.frame(cursor1, cursor2, all = TRUE)
bairros_cidade = c("Agua Verde", "Aguas Claras", "Amizade", "Barra do Rio Cerro", "Barra do Rio Molha", "Boa Vista",
"Braço do Ribeirão Cavalo", "Centenario", "Centro", "Chico de Paulo", "Czerniewicz", "Estrada Nova",
"Ilha da Figueira", "Jaragua 84", "Jaragua 99", "Jaragua Esquerdo", "João Pessoa", "Nereu Ramos",
"Nova Brasilia", "Parque Malwee", "Rau", "Ribeirão Cavalo", "Rio Cerro I", "Rio Cerro II",
"Rio da Luz", "Rio Molha", "Santa Luzia", "Santo Antonio", "São Luis", "Tifa Martins", "Tifa Monos",
"Tres Rios do Norte", "Tres Rios do Sul", "Vieira", "Vila Baependi", "Vila Lalau", "Vila Lenzi",
"Vila Nova")
jan_mar$Bairro[which(!(bairros_cidade)] = "Não Informado"
jan_mar$Bairro[jan_mar$Bairro != bairros_cidade] = "Não Identificado"
table(jan_mar$Bairro)