R（リーチ）パッケージに関する問題

Question

RStdudio v1.0.153を使用して、リザーブスケールのデータを含むRプロットを作成しようとしています。私は次のエラーを取得する：私のデータへ

Error in likert(think) : 
All items (columns) must have the same number of levels 

リンクである：以下https://docs.google.com/spreadsheets/d/1TYUr-_oX9eADZ6it1w_4CQJ_wITP6xISaJJHTad3JbA/edit?usp=sharing

私が使用したRコードです：

> library(psych) 
> library(likert) 

> myColor <- c("red","orange", "light blue","light green", "lavender") 
> levels = c("Strongly Disagree", "Disagree", "Neutral", "Agree", "Strongly Agree") 

> think$A = factor(think$A, levels, ordered = TRUE) 
> think$B = factor(think$B, levels, ordered = TRUE) 
> think$C = factor(think$C, levels, ordered = TRUE) 
> think$D = factor(think$D, levels, ordered = TRUE) 
> think$E = factor(think$E, levels, ordered = TRUE) 
> think$F = factor(think$F, levels, ordered = TRUE) 

> results <- likert(think) 
> plot(results, col = myColor) #Have not used this yet because of the error above 

Answer 1

likertコマンドが入力でデータフレームを必要とします。
likert(as.data.frame(think))を使用してください。

library(psych) 
library(likert) 
library(readxl) 
think <- read_xlsx(path="ThinkData.xlsx") 

myColor <- c("red","orange", "light blue","light green", "lavender") 
levels = c("Strongly Disagree", "Disagree", "Neutral", "Agree", "Strongly Agree") 

think$A = factor(think$A, levels, ordered = TRUE) 
think$B = factor(think$B, levels, ordered = TRUE) 
think$C = factor(think$C, levels, ordered = TRUE) 
think$D = factor(think$D, levels, ordered = TRUE) 
think$E = factor(think$E, levels, ordered = TRUE) 
think$F = factor(think$F, levels, ordered = TRUE) 

results <- likert(as.data.frame(think)) 
plot(results, col = myColor)