knitr::opts_chunk$set(echo = FALSE) library(ggthemes) library(knitr) library(ggplot2) library(scales) library(tidyr)
A base de dados foi validada utilizano-se o pacote ValidaRA. O gráfico abaixo apresenta a quantidade de dados válidos e inválidos por tipo de documento:
prev <- resultado[,c("tipo","validos","invalidos")] r <- gather(prev, categoria, qtde, validos, invalidos ) total <- sum(r$qtde)/length(unique(r$tipo)) r$qtde <- r$qtde / total print(r) ggplot(data = r, aes(x=tipo, y=qtde, fill=categoria)) + geom_bar(stat = "identity", position = "dodge") + scale_y_continuous(labels = percent) + theme_grey() + scale_fill_discrete(name="Resultado") + xlab("Tipo de Documento") + ylab("Porcentagem")
o gráfico apresenta a porcentagem de cada erro encontrado na base por tipo de documento:
prev <- resultado[,c("tipo","characters_iguais","primeiro_digito_invalido","segundo_digito_invalido","characters_invalido")] r <- gather(prev, categoria, qtde, characters_iguais, primeiro_digito_invalido, segundo_digito_invalido, characters_invalido ) r$qtde <- r$qtde / total ggplot(data = r, aes(x=tipo, y=qtde, fill=categoria)) + geom_bar(stat = "identity", position = "dodge") + scale_y_continuous(labels = percent) + scale_fill_discrete(name="Categoria", labels=c("Todos os caracters Iguais","Primeiro digito invalido","Segundo invalido","Outros problemas de caracters")) + theme_grey() + xlab("Tipo de Documento") + ylab("Porcentagem")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.