Passo 1 - Coleta de Dados

load("C:/Users/ferna/Downloads/Base_de_dados-master/df_pokemon.RData")

Passo 2 - Análise Descritiva

summary(df$attack)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    5.00   53.00   73.00   74.85   95.00  165.00

#Passo 3 - O Histograma

table(df$attack)
## 
##   5  10  15  20  22  23  24  25  27  29  30  33  35  36  38  40  41  42  43  44 
##   2   3   1   8   1   1   1   7   1   1  19   1  13   1   3  21   2   1   1   1 
##  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64 
##  27   1   3   8   3  36   2   7   5   1  30   3   2   4   3  32   2   4   6   5 
##  65  66  67  68  69  70  71  72  73  74  75  76  77  78  80  81  82  83  84  85 
##  33   4   2   3   3  30   1   6   5   1  30   4   4   4  36   3   6   4   5  30 
##  86  87  88  89  90  91  92  93  94  95  97  98 100 102 103 104 105 106 107 108 
##   2   2   1   3  29   1   7   2   2  23   1   3  34   1   1   2  15   1   1   1 
## 109 110 112 115 117 120 121 123 124 125 129 130 131 134 135 140 147 150 160 165 
##   2  14   2   9   3  17   1   3   2  12   1  12   2   2   5   4   1   4   2   1
hist(table(df$attack),col =  c("red","blue","purple","green", "orange","black","pink","white"),main ="Histograma")

Passo 4 - Conclusão

O histograma ressalta a frequencia e a força em relação aos Pokemons. Vale ressaltar que ocorre uma variação de no mínimo “5,0” até o máximo de “165,0”.

Além disso, a média encontrada é de “73,0”, podendo ser considerado um valor alto.