การพล็อตความแตกต่างของคะแนนแฟกเตอร์รายบุคคล

พารามิเตอร์ที่แตกต่างกันระหว่าง EFA และ CFA ไม่ได้มีแค่ factor loadings เท่านั้น คะแนนแฟกเตอร์รายบุคคลก็แตกต่างกันด้วย ขึ้นอยู่กับว่าคำนวณจากพารามิเตอร์ของ EFA หรือ CFA ในแบบฝึกหัดนี้จะดูว่าคะแนนแฟกเตอร์ของแต่ละคนในชุดข้อมูล bfi_EFA แตกต่างกันอย่างไรเมื่อคำนวณจากโมเดล EFA เทียบกับโมเดล CFA โดยพิจารณาจาก density plot ของคะแนนเหล่านั้น

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

การวิเคราะห์ปัจจัยใน R

ดูคอร์ส

คำแนะนำการฝึกหัด

เริ่มต้นด้วยการบันทึกคะแนนจากส่วน scores ในลิสต์ของออบเจกต์ EFA_model ลงในออบเจกต์ใหม่ เนื่องจากโมเดลนี้สร้างจากชุดข้อมูล bfi_EFA คะแนนแฟกเตอร์จึงมาจากชุดข้อมูลนั้น
จากนั้น ใช้ fscores() เพื่อคำนวณและดึงคะแนนแฟกเตอร์รายบุคคลโดยใช้ออบเจกต์โมเดล CFA กับชุดข้อมูล bfi_EFA ชุดเดิม
สุดท้าย ใช้ฟังก์ชัน plot() และ lines() เพื่อพล็อตกราฟ density ของคะแนนแฟกเตอร์รายบุคคลบนแฟกเตอร์ตัวแรก

แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ

ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์

# Extracting factor scores from the EFA model
EFA_scores <- EFA_model$___

# Calculating factor scores by applying the CFA parameters to the EFA dataset
CFA_scores <- fscores(EFA_CFA, data = ___)

# Comparing factor scores from the EFA and CFA results from the bfi_EFA dataset
___(density(___[,1], na.rm = TRUE), 
    xlim = c(-3, 3), ylim = c(0, 1), col = "blue")
___(density(___[,1], na.rm = TRUE), 
    xlim = c(-3, 3), ylim = c(0, 1), col = "red")

แก้ไขและรันโค้ด