Hiển thị kết quả
Bước cuối cùng, và có lẽ quan trọng nhất khi xây dựng mô hình, là chia sẻ kết quả.
Trong bài tập này, bạn sẽ trích xuất các ước lượng cấp quận (county) và vẽ chúng bằng ggplot2. Để có ước lượng độ dốc cho từng quận, bạn cần cộng độ dốc của hiệu ứng ngẫu nhiên cấp quận vào độ dốc của hiệu ứng cố định.
Bên cạnh phép cộng này, đoạn mã còn sắp xếp các quận theo tỷ lệ tội phạm (các ước lượng độ dốc) để hỗ trợ trực quan hóa dữ liệu rõ ràng.
Mô hình bạn đã khớp trước đó, glmer_out, đã được nạp sẵn cho bạn.
Bài tập này là một phần của khóa học
Mô hình phân cấp và hiệu ứng hỗn hợp trong R
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# Extract out the fixed-effect slope for Year2
Year2_slope <- fixef(___)['Year2']
# Extract out the random-effect slopes for county
county_slope <- ranef(___)$County
# Create a new column for the slope
county_slope$slope <- county_slope$Year2 + Year2_slope
# Use the row names to create a county name column
county_slope$county <- rownames(county_slope)
# Create an ordered county-level factor based upon slope values
county_slope$county_plot <- factor(county_slope$county,
levels = county_slope$county[order(county_slope$slope)])