estatistica_ad-Exercício avaliativo - Módulo 4_ Revisão da tentativa

Prévia do material em texto

Iniciado em domingo, 1 out. 2023, 11:27
Estado Finalizada
Concluída em domingo, 1 out. 2023, 11:30
Tempo
empregado
3 minutos 24 segundos
Notas 5,00/8,00
Avaliar 15,63 de um máximo de 25,00(62,5%)
Questão 1
Correto
Atingiu 1,00 de 1,00
O tema de dados abertos ainda é recente e passa por amadurecimento em suas práticas e concepções, porém já há alguns
direcionamentos aceitos por grande parte da Academia e do Governo.
Sobre os conceitos e temas relacionados a dados abertos, selecione a alternativa correta. 
Escolha uma opção:
a. Os usuários precisam se cadastrar em uma página de Internet para ter acesso a dados abertos.
b. O campo de dados abertos se desenvolveu de forma independente de outras inciativas abertas, tais como código aberto e
inovação aberta.
c. A sociedade civil organizada não tem participação no ecossistema de dados abertos.
d. A Lei de Acesso à Informação (LAI) favoreceu a consolidação da disponibilização de dados abertos no Brasil. 
e. Não é possível fazer download de portais de dados abertos utilizando códigos em R.
Sua resposta está correta.
O artigo 8º da LAI, por prever aspectos de dados abertos, favoreceu a expansão da abertura de dados no Brasil, Sendo assim a
alternativa correta é a letra “c” .
A resposta correta é: A Lei de Acesso à Informação (LAI) favoreceu a consolidação da disponibilização de dados abertos no Brasil.
Questão 2
Correto
Atingiu 1,00 de 1,00
O código abaixo mostra como se pode utilizar dados vindos do principal portal de dados abertos no Brasil, o site dados.gov.br. Execute o
e, em seguida, analise o código e o resultado para indicar qual a alternativa correta.
##Dados abertos de dados.gov.br
#url do dado
url_habitacao<- "http://sishab.mdr.gov.br/dados_abertos/_contratacoes_pcmv_pcva.csv"
#download do dado a partir do endereço da url
download.�le(url = url_habitacao, dest�le = "contratacoes_pcmv_pcva.csv", mode="wb")
library(readr)
library(tidyverse)
library(questionr)
#gera um dataframe a partir do arquivo csv baixado
contratacoes_pcmv_pcva <- read_delim("contratacoes_pcmv_pcva.csv",
                                     delim = "|", escape_double = FALSE, locale = locale(decimal_mark = ",",
                                                                                         grouping_mark = ".", encoding = "LATIN1"),
                                     trim_ws = TRUE)
contratacoes_2013<-
  contratacoes_pcmv_pcva %>%
  �lter(num_ano_assinatura_contrato==2013)
library(questionr)
questionr::freq(contratacoes_2013$txt_modalidade_programa , cum = TRUE, sort = "dec", total = TRUE)
Sobre a execução do código acima no programa RStudio, é possível a�rmar que: 
Escolha uma opção:
a. O ano a que o script se refere nesse dado é 2020.
b. A tabela de frequência mostra que os seis tipos de modalidade de programa possuem a mesma distribuição de contratos.
c. A modalidade de programa Rural possui a maior quantidade de contratos. 
d. Quando somados os contratos das modalidades CCFGTS e Rural percebe-se que mais de 80% dos contratos relacionam-se
com esses dois tipos.

e. O grupo Rural está associado a 2000 contratos.
Sua resposta está correta.
A alternativa correta é a letra “d” pois a tabela de frequência demonstra que as modalidades de programa Rural e CCFGTS  juntas estão
associados a 84,7% de todos os contratos realizados em 2021. 
A resposta correta é: Quando somados os contratos das modalidades CCFGTS e Rural percebe-se que mais de 80% dos contratos
relacionam-se com esses dois tipos.
Selecione o idioma
Powered by Tradutor
http://sishab.mdr.gov.br/dados_abertos/_contratacoes_pcmv_pcva.csv
https://translate.google.com/
https://translate.google.com/
Questão 3
Correto
Atingiu 1,00 de 1,00
O script abaixo gera um grá�co que mostra as principais despesas obrigatórias do governo central brasileiro. Execute o script e analise o
grá�co gerado. Em seguida, escolha a alternativa correta.
library(rtn)
library(tidyverse)
#Códigos de contas associadas a despesas obrigatórias com controle de �uxo
despesas_obrigatorias<- c("4.4.1.1", "4.4.1.2", "4.4.1.3","4.4.1.4","4.4.1.5" )
#gera valores acumulados em 12 meses para as contas selecionadas
rtn::get_12_month_accumulated_account_data_by_month(despesas_obrigatorias,
month = c(1:12), #indica que quer o valor acumulado para todos os 12 meses do ano  
match_required = FALSE)%>% #indica que vai fazer o match sem precisar do nome completo da conta
rtn::plot_rtn_series() #gera o grá�co de linha
Escolha uma opção:
a. A despesa obrigatória com Saúde apresenta valores superiores a todas as demais desde o início da série. 
b. A rubrica Bolsa Família e Auxílio Brasil apresenta um comportamento estável, com pouca variação durante toda a série.
c. A rubrica Demais apresenta valores maiores do que Educação em todo o período analisado. 
d. As séries apresentam valores maiores que 0 desde o ano 2000.
e. A despesa obrigatória com Educação apresenta um forte crescimento a partir do ano de 2020.
Sua resposta está correta.
A letra “a” é a alternativa correta. Desde 2008 quando os dados começam a apresentar valores maiores que zero a despesa obrigatória
com Saúde é maior do que todos os outros tipos de despesas obrigatórias.
A resposta correta é: A despesa obrigatória com Saúde apresenta valores superiores a todas as demais desde o início da série.
Questão 4
Incorreto
Atingiu 0,00 de 1,00
O grá�co logo abaixo é gerado a partir do seguinte código que utiliza a biblioteca {rcofog}. 
library(Rcofog)
library(tidyverse)
funcoes<- c("Saúde","Educação")
Rcofog::dataTimeSeries(funcoes) %>%
Rcofog::graphTimeSeries()
Analise o grá�co e escolha a alternativa correta.
Escolha uma opção:
a. Os gastos com Saúde são maiores do que os com Educação durante todo o período analisado.
b. Os gastos com Saúde sempre são superiores a 6% do gasto total.
c. O pico do % gasto com Educação ocorre em 2014.   
d. Em 2020 o gasto com Saúde ultrapassa 7% do gasto total.
e. Os gastos com Educação sempre são superiores a 6% do gasto total.
Sua resposta está incorreta.
Pelo grá�co percebe-se que em 2020 o gasto com Saúde apresenta valor entre 7% e 7,5% do gasto total, portanto a alternativa
correta é a letra “d”. 
A resposta correta é: Em 2020 o gasto com Saúde ultrapassa 7% do gasto total.
Questão 5
Correto
Atingiu 1,00 de 1,00
Analise o script abaixo que gera o grá�co que você vê logo a seguir. O grá�co demonstra uma comparação entre as idades de homens e
mulheres internados em hospitais de Goiás em dezembro de 2020, de acordo com o SIH-RD. 
library(microdatasus)
library(tidyverse)
ano_inicio<- 2020
ano_�m <- 2020
mes_inicio<-12
mes_�m<-12
estado<- "GO"
#Traz dados sobre internações hospitalares: SIH-RD
resultado<-microdatasus::fetch_datasus(year_start = ano_inicio,
year_end = ano_�m,
uf = estado,
month_start = mes_inicio,
month_end = mes_�m,
information_system = "SIH-RD")
dados_internacoes<- microdatasus::process_sih(resultado)
dados_internacoes%>%
�lter(COD_IDADE=="Anos")%>% #�ltrar para excluir bebês que ainda não completaram um ano
mutate(IDADE = as.numeric(IDADE))%>%  #converte idade de variável categórica para numérica
ggplot() +
geom_boxplot(aes(x=SEXO, y=IDADE)) +
scale_y_continuous(breaks = seq(0,100,10))
Sobre a análise do grá�co, assinale qual a alternativa verdadeira.
Escolha uma opção:
a. A mediana de idade de pessoas do sexo masculino internadas é maior do que 70 anos.
b. O primeiro quartil de idade de pessoas do sexo feminino internadas é menor do que 20 anos.
c. Existem valores extremos (outliers) no grá�co para o box-plot do sexo feminino.
d. O grá�co utiliza transformação logarítmica. 
e. A mediana de idade de pessoas internadas do sexo masculino é maior do que a do sexo feminino. 
Sua resposta está correta.
Como se vê no grá�co, a mediana da idade de internação para o sexo masculino é de aproximadamente 50 anos, portanto superior à do
sexo feminino que no grá�co aponta para uma idade próxima de 40 anos. A alternativacorreta é a letra “e”. 
A resposta correta é: A mediana de idade de pessoas internadas do sexo masculino é maior do que a do sexo feminino.
Questão 6
Correto
Atingiu 1,00 de 1,00
O código abaixo que traz uma tabela de frequência de tipo de gestão de hospitais para o estado do Ceará em dezembro de 2020.
library(microdatasus)
library(tidyverse)
library(questionr)
ano_inicio<- 2020
ano_�m <- 2020
mes_inicio<-12
mes_�m<-12
estado<- "CE"
#Traz dados sobre internações hospitalares: CNES-ST
resultado<-microdatasus::fetch_datasus(year_start = ano_inicio,
year_end = ano_�m,
uf = estado,
month_start = mes_inicio,
 month_end = mes_�m,
 information_system = "CNES-ST")
dados_hospitais<- microdatasus::process_cnes(resultado)
questionr::freq(dados_hospitais$TPGESTAO, cum = TRUE, sort = "dec", total = TRUE)
A tabela de frequência gerada é essa:
n % val% %cum val%cum
Municipal 12327 97.4 97.4 97.4 97.4
Estadual 312 2.5 2.5 99.9 99.9
Dupla 11 0.1 0.1 100.0 100.0
Total 12650 100.0 100.0 100.0 100.0
Sobre o resultado da execução do código, assinale a alternativa correta.
Escolha uma opção:
a. Em dezembro de 2020 havia mais de 13000 hospitais da rede SUS ativos no Ceará.
b. O número de hospitais estaduais no Ceará representa menos que 2% do número total de hospitais. 
c. O número de hospitais com dupla gestão no Ceará atinge 1% do total de hospitais.
d. A quantidade de hospitais municipais e estaduais no Ceará corresponde conjuntamente a 99,9% do total de
estabelecimentos ligados ao SUS no estado.

e. No Ceará havia 12650 hospitais municipais em funcionamento em dezembro de 2020.
Sua resposta está correta.
A tabela de frequência mostra que a frequência relativa acumulada para os hospitais municipais e estaduais em dezembro de 2020 é
99,9%. A alternativa correta é a letra “d”.
A resposta correta é: A quantidade de hospitais municipais e estaduais no Ceará corresponde conjuntamente a 99,9% do total de
estabelecimentos ligados ao SUS no estado.
Questão 7
Incorreto
Atingiu 0,00 de 1,00
O script abaixo gera o grá�co que você vê em seguida. Trata-se de informação sobre o total de escolas em cada UF do Brasil.
library(tidyverse)
#Endereço onde está o arquivo com dados de censo escolar
url_dados_2021<- "https://download.inep.gov.br/dados_abertos/microdados_censo_escolar_2021.zip"
#Faz o download do arquivo
download.�le(url= url_dados_2021,dest�le = "censo_escolar_2021.zip", mode="wb")
#Descompacta o arquivo zip
unzip("censo_escolar_2021.zip", �les = "microdados_ed_basica_2021/dados/microdados_ed_basica_2021.csv")
#lê o arquivo csv que estava no arquivo zip e alimenta o dataframe
microdados_ed_basica_2021 <- read_delim("microdados_ed_basica_2021/dados/microdados_ed_basica_2021.csv",
                                        delim = ";", escape_double = FALSE, locale = locale(encoding = "LATIN1"),
                                        trim_ws = TRUE)
#Veri�car uma amostra dos dados presentes no dataframe
glimpse(microdados_ed_basica_2021)
#Gera grá�co de ranking no número de escolas
microdados_ed_basica_2021 %>%
  group_by(SG_UF) %>%
  summarise(
    quantidade = n()
  ) %>%
  mutate(SG_UF = reorder(SG_UF, quantidade)) %>%
  ungroup() %>%
  ggplot() +
  geom_col(aes(x=quantidade, y=SG_UF)) +
  scale_x_continuous(breaks = seq(0,35000,5000))
A partir da análise do grá�co acima, assinale a alternativa correta.
https://download.inep.gov.br/dados_abertos/microdados_censo_escolar_2021.zip
Escolha uma opção:
a. Apenas São Paulo tem mais de 25.000 escolas.
b. Rio de Janeiro ocupa a terceira colocação no número de escolas. 
c. Não existem estados com menos de 5.000 escolas.
d. Roraima ocupa a última posição no ranking de número de escolas. 
e. Existem apenas dois estados com mais de 15.000 escolas.
Sua resposta está incorreta.
Como se vê no grá�co, São Paulo possui quase 35.000 escolas. A segunda colocação �ca com o Estado de Minas Gerais que apresenta
menos de 25.000 escolas. A alternativa correta é a letra “a”.
A resposta correta é: Apenas São Paulo tem mais de 25.000 escolas.
Questão 8
Incorreto
Atingiu 0,00 de 1,00
O grá�co abaixo mostra a distribuição de escolas entre federais, estaduais, municipais e privadas. Faça uma análise deste grá�co e
considere a seguinte codi�cação. 
A partir da análise do grá�co e da codi�cação, assinale a alternativa correta.
Escolha uma opção:
a. Todos as UFs possuem pelo menos dez escolas. federais
b. As escolas municipais são as mais numerosas em todos os estados com exceção do DF.
c. O Maranhão tem mais escolas privadas do que o Rio de Janeiro.
d. A Bahia tem mais escolas estaduais do que o Rio Grande do Sul.
e. O Ceará tem mais escolas privadas do que Pernambuco. 
Sua resposta está incorreta.
Fica claro no grá�co que não há escolas municipais, representadas pela cor verde, no DF. A alternativa correta é a letra “b”.
A resposta correta é: As escolas municipais são as mais numerosas em todos os estados com exceção do DF.