library(readxl)
questionario_usp <- read_excel("C:/Users/bvale/Base_de_dados-master/questionario_usp.xlsx")
boxplot(Peso ~ Turma, data = questionario_usp,col= c("yellow1","seagreen3"))
E podemos concluir que a maior parte do peso da turma A está entre 55kg e 65kg e apenas algumas pessoas passaram de 70kg.
No caso da Turma B podemos concluir que a variação dos pesos é maior,tanto que existe pessoa acima de 90kg e abaixo de 50kg