library(readxl)
## Warning: package 'readxl' was built under R version 4.2.3
AptosCriciuma = readxl::read_xls("C:/Users/18899108722/Desktop/Base_de_dados-master/AptosCriciuma.xls")

Histograma da Energia dos AptosCriciuma

hist(AptosCriciuma$Energia,col ="pink",main ="gráfico da energia nos Aptos",ylab ="frequência",xlab= "Energia")

Média das Energias

mean(AptosCriciuma$Energia)
## [1] 159.48

Desvio Padrão das Energias

sd(AptosCriciuma$Energia)
## [1] 23.36336