尝试用purrr :: map_dbl替换循环并使用corrr :: correlate

I am trying to find a correlation of all variables within a grouping variable. Specifically I am trying to use purrr to do this to replace a loop that I've been using. But I've gotten a bit stuck, partially because I want to use two functions when applying over the vector of interest. For example:I am trying to find a correlation of all variab