0

有谁知道为什么当我使用psych包重新编码数据时，我的结构会发生变化？我怎样才能保持不变？（我已经尝试了很多我省略的东西，所以输出更清晰）我相信这个变化是导致第二个 itemplot x 轴不正确的原因（在下面的代码末尾）

> BIG5<-read.csv("BIG5.csv")                ##READ IN THE DATA
> ext<-BIG5[c(8:17)]                    ##SELECT ITEMS TO BE ANALYZED
> library(psych)                        ##WE WILL HAVE TO USE THE PSYCH PACKAGE TO RECODE
> keys<-c(1,-1,1,-1,1,-1,1,-1,1,-1)         ##-1 MEANS REVERSE CODE
> ext_rev<-reverse.code(keys,ext,mini=0,maxi=5)     ##USE THE KEY TO REVERSE CODE AND REPLACE EXT WITH THIS ONE
> library(CTT)
> str(ext)
'data.frame':   19719 obs. of  10 variables:
 $ E1 : int  4 2 5 2 3 1 5 4 3 1 ...
 $ E2 : int  2 2 1 5 1 5 1 3 1 4 ...
 $ E3 : int  5 3 1 2 3 2 5 5 5 2 ...
 $ E4 : int  2 3 4 4 3 4 1 3 1 5 ...
 $ E5 : int  5 3 5 3 3 1 5 5 5 2 ...
 $ E6 : int  1 3 1 4 1 3 1 1 1 4 ...
 $ E7 : int  4 1 1 3 3 2 5 4 5 1 ...
 $ E8 : int  3 5 5 4 1 4 4 3 2 4 ...
 $ E9 : int  5 1 5 4 3 1 4 4 5 1 ...
 $ E10: int  1 5 1 5 5 5 1 3 3 5 ...
> str(ext_rev)
 num [1:19719, 1:10] 4 2 5 2 3 1 5 4 3 1 ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr [1:10] "E1" "E2-" "E3" "E4-" ...
> extscores<-score(ext,output.scored=TRUE)
Warning message:
In score(ext, output.scored = TRUE) :
  No key provided, assuming pre-scored data.
> extscores_rev<-score(ext_rev,output.scored=TRUE)
Warning message:
In score(ext_rev, output.scored = TRUE) :
  No key provided, assuming pre-scored data.
> str(extscores)
List of 2
 $ score : Named num [1:19719] 32 28 29 36 26 28 32 35 31 29 ...
  ..- attr(*, "names")= chr [1:19719] "P1" "P2" "P3" "P4" ...
 $ scored: int [1:19719, 1:10] 4 2 5 2 3 1 5 4 3 1 ...
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:10] "E1" "E2" "E3" "E4" ...
> str(extscores_rev)
List of 2
 $ score : Named num [1:19719] 39 17 30 17 29 11 41 34 40 10 ...
  ..- attr(*, "names")= chr [1:19719] "P1" "P2" "P3" "P4" ...
 $ scored: num [1:19719, 1:10] 4 2 5 2 3 1 5 4 3 1 ...
  ..- attr(*, "dimnames")=List of 2
  .. ..$ : NULL
  .. ..$ : chr [1:10] "E1" "E2-" "E3" "E4-" ...
> cttICC(extscores$score,extscores$scored[,1])      ##ITEMPLOT WORKS
> cttICC(extscores_rev$score,extscores_rev$scored[,1])      ##ITEMPLOT FAILS

我显然在链接图像时遇到了问题，但是失败的 itemplot 上的 x 轴完全不同，并且这些值被浓缩为一个点上的表示。（这一切似乎与错误读取的值一致）

4

0 回答 0