来自 corrr 包的 R 轮相关函数

如何解决来自 corrr 包的 R 轮相关函数

我正在使用 corrr 包中的 correlate 函数创建一个相关表。这是我的代码和输出的屏幕截图。

correlation_table <- corrr::correlate(salary_professor_dataset_cor_table,method = "pearson")
correlation_table

如果我可以将相关表中的值四舍五入，我认为这会更好看并且更容易阅读。我试过这个代码：

correlation_table <- round(corrr::correlate(salary_professor_dataset_cor_table,method = "pearson"),2)

但我收到此错误：

Math.data.frame 中的错误（list（term = c（“prof_rank_factor”，“yrs.since.phd”，：数据框中的非数字变量：term

此错误消息的非数字变量部分对我来说没有意义。当我查看结构时，我只看到整数或数字变量类型。

'data.frame':   397 obs. of  6 variables:
 $ prof_rank_factor : num  3 3 1 3 3 2 3 3 3 3 ...
 $ yrs.since.phd    : int  19 20 4 45 40 6 30 45 21 18 ...
 $ yrs.service      : int  18 16 3 39 41 6 23 45 20 18 ...
 $ salary           : num  139750 173200 79750 115000 141500 ...
 $ sex_factor       : num  1 1 1 1 1 1 1 1 1 2 ...
 $ discipline_factor: num  2 2 2 2 2 2 2 2 2 2 ...

如何用四舍五入的值清理这个相关表？

解决方法

使用 tibble 返回 correlate 输出后，循环 across 列 numeric 和 round

library(dplyr)
corrr::correlate(salary_professor_dataset_cor_table,method = "pearson") %>%
    mutate(across(where(is.numeric),round,digits = 2))

,

我们可以使用：

options(digits=2)
correlation_table <- corrr::correlate(salary_professor_dataset_cor_table,method = "pearson")
correlation_table