在r中使用ggplot2时，口袋妖怪的可视化有点不准确

我正在开发一个神奇宝贝数据集，目的是创建一个热图，根据数据集中包含的一些统计数据来评估口袋妖怪的类型。我创建了一个热图来帮助形象化这一点，我不确定瓷砖的阴影是否正确，因为仙女型口袋妖怪的阴影比它应该的要深。如果您在此处查看我的代码：

library(reshape2)
library(plyr)
library(scales)
library(tidyverse)



Selected_Stats <- pokemon %>% select(Speed, Sp_Atk, Sp_Def, Defense, Attack, HP, Type_1)

pokemon_m <- melt(Selected_Stats)

pokemon_m <-  ddply(pokemon_m, .(variable), transform,
                  strength   = rescale(value))



heatwave <- ggplot(pokemon_m, mapping = aes(Type_1, variable)) + geom_tile(aes(fill = strength),colour = "white") +
  scale_fill_gradient(low = "white", high = "red") +
  theme_classic(base_size = 10) + labs(x = "Pokémon Type" , y = "variable") 

heatwave

library（重塑2）
图书馆（plyr）
图书馆（比例尺）
图书馆（tidyverse）
已选择状态%select（速度、攻击、防御、攻击、生命、类型1）
口袋妖怪我不清楚你为什么认为这个阴谋是错误的。你能对你期望看到但没有看到的东西做一个更具体的陈述吗？甚至可以先描述一下你想做什么。这段代码本身没有太多意义。如果你看一些阴影区域，你会注意到仙女在攻击中更强大，那么它应该是，同样，偷东西应该有最强的防御，但没有。我不玩口袋妖怪，所以这不是一个特别令人信服的论点。如果你能用数据来支持这种说法，那就更好了。如果问题本身是，并且不需要从其他网站下载数据来运行和测试，也会更好。