varimax pairs

[karlrohe]

The default in the pairs plot is factors = 1:max(5, fa$k).

I think max should be changed to min.

plot_varimax_z_pairs
function (fa, factors = 1:max(5, fa$k), ...)
{
fa %>% get_varimax_z() %>% mutate(leverage = purrr::pmap_dbl(.,
sum)) %>% select(!!factors, leverage) %>% sample_n(min(nrow(.),
1000), weight = leverage^2) %>% select(-leverage) %>%
ggpairs(aes(alpha = 0.001), ...)
}