Exercício 3

Enunciado

3. Uma pesquisa com usuários de transporte coletivo na cidade de São Paulo indagou sobre os diferentes tipos usados nas suas locomoções diárias. Dentre ônibus, metrô e trem, o número de diferentes meios de transporte utilizados encontra-se na planilha tranpostes.csv.

   1. Construa uma tabela de frequência para a variável Transportes.
   2. Faça uma representação gráfica.
   3. Admitindo que essa amostra represente bem o comportamento do usuário paulistano, você acha que a porcentagem dos usuários que utilizam mais de um tipo de transporte é grande?

Resolução

Primeiro carregamos o banco de dados para a memória e verificamos as seis primeiras observações:

transportes <- read.csv(file = "transportes.csv", sep = ";", dec = ",")
head(transportes)

Agora construimos uma tabela de frequências para os dados:

counts <- table(transportes$Transportes)
counts

 1  2  3 
14 12  4 

Com as frequências dadas pela tabela podemos construir um gráfico de barras:

barplot(counts, main = "Gráfico de barras para comparação de quantidades de transportes",
        xlab = "Quantidade de meios de transporte",
        ylim = c(0,20), names.arg = c('1', '2', '3'))

Como podemos observar, a maior parte dos paulistanos utiliza apenas um meio de transporte para sua locomoção diária, porém o número de paulistanos que dependem de dois meios de transportes se aproxima da quantidade dos que utilizam apenas um.