如何解决使用R中的purr软件包匹配和分析数据
我想使用purr软件包和psych软件包分析我的数据。这是我的数据的一部分:
df <- tribble(
~temp1,~temp2,~temp3,~temp4,~temp5,~temp6,~temp7,~temp8,75,88,85,71,98,76,57,80,51,84,72,59,81,70,64,54,65,90,66,93,77,87,94,74,53,56,52,55,50,83,)
在这里,我只想将pay1与pay2匹配,将pay3与pay4匹配,并将pay5与pay6匹配。我可以使用purr包来完成某些方法,例如关联,可以使用以下代码:
df %>%
split.default(rep_len(1:2,ncol(.))) %>%
pmap_dbl(~ cor( .x,.y))
但是它不适用于ICC
软件包中的psych
df %>%
split.default(rep_len(1:2,ncol(.))) %>%
pmap_dbl(~ ICC( .x,.y))
我们可以使用ICC
包,基本r或其他包来做psych
吗?
解决方法
我们可以在此处使用pmap
,因为ICC
不会返回数值,而是类 "psych" "ICC"
的输出。.
library(purrr)
library(psych)
df %>% split.default(rep_len(1:2,ncol(.))) %>% pmap(~ICC(cbind(..1,..2)))
#$temp1
#Call: ICC(x = cbind(..1,..2))
#Intraclass correlation coefficients
# type ICC F df1 df2 p lower bound upper bound
#Single_raters_absolute ICC1 0.12 1.3 4 5 0.39 -0.61 0.78
#Single_random_raters ICC2 0.12 1.3 4 4 0.41 -0.65 0.78
#Single_fixed_raters ICC3 0.12 1.3 4 4 0.41 -0.67 0.78
#Average_raters_absolute ICC1k 0.21 1.3 4 5 0.39 -3.11 0.87
#Average_random_raters ICC2k 0.21 1.3 4 4 0.41 -3.68 0.88
#Average_fixed_raters ICC3k 0.21 1.3 4 4 0.41 -4.06 0.88
# Number of subjects = 5 Number of Judges = 2
#$temp3
#Call: ICC(x = cbind(..1,..2))
#Intraclass correlation coefficients
# type ICC F df1 df2 p lower bound upper bound
#Single_raters_absolute ICC1 -0.24 0.61 4 5 0.67 -0.79 0.59
#...
#...
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。