plot_correlations - colours

[Lefty2021]

Hi,

I have the below code. Since it's a PB design the main effects should not be correlated - which can be seen from get_attribute. However the colour is not as dark blue as should be based on the scale

##  Plackett-Burman design
df3 <- pb(12, nfactors  = 5) %>% 
  as.data.frame %>%
  mutate(across(everything(), \(x){as.factor(x) %>% as.numeric})) %>%
  mutate(across(everything(), \(x){rescale(x, to = c(-1, 1))}))

edf3 <- eval_design(model = ~.,
            design = df3) 

edf3 %>% plot_correlations

get_attribute(edf3) %>% print(digits = 5)

---