psychパッケージを使用してデータを再コーディングすると、構造が変化する理由を知っている人はいますか? どうすれば同じに保つことができますか？（省略したことをかなり試したので、出力がきれいになりました）この変更が2番目の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 軸は根本的に異なり、値は 1 つの点での表現に凝縮されています。(これはすべて、誤って読み込まれた値と一致しているように見えます)