dados<-read.table("D:\\Dados\\Temperatura.txt", header=TRUE)

attach(dados)

stem(Temperatura)

stem(Temperatura, scale=2)