รัฐใดมีอัตราการออกมาใช้สิทธิ์สูงที่สุด?

ข้อมูล hover ในกราฟกระจายก่อนหน้าช่วยให้ระบุได้ว่ารัฐใดมีอัตราการออกมาใช้สิทธิ์สูงที่สุด แต่การเปรียบเทียบระหว่างรัฐต่าง ๆ ใช้เวลาค่อนข้างมาก ในแบบฝึกหัดนี้ ให้สร้างกราฟกระจายที่แสดงชื่อรัฐบนแกน y และอัตราการออกมาใช้สิทธิ์บนแกน x กราฟกระจายที่แสดงตัวแปรเชิงกลุ่มหนึ่งตัวและตัวแปรเชิงปริมาณหนึ่งตัวมักเรียกว่า dotplot ซึ่งช่วยให้เปรียบเทียบระหว่างกลุ่มได้รวดเร็วยิ่งขึ้น

ชุดข้อมูล turnout มีข้อมูลสัดส่วนของผู้มีสิทธิ์เลือกตั้ง (turnout) ที่ออกมาใช้สิทธิ์ในการเลือกตั้งกลางเทอมปี 2018 แยกตามแต่ละ state

ในโค้ดตัวอย่าง turnout %>% slice_max(turnout2018, n = 15) จะดึง 15 รัฐที่มีอัตราการออกมาใช้สิทธิ์สูงที่สุดออกมา

ทั้งนี้ plotly, dplyr และ forcats ถูกโหลดให้แล้ว

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

การสร้างกราฟิกแบบโต้ตอบด้วย plotly ใน R

ดูคอร์ส

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

สร้าง dotplot (กราฟกระจาย) สำหรับ 15 รัฐที่มีอัตราสูงสุด โดยแสดง turnout2018 บนแกน x และ state บนแกน y โดยให้ state ถูกเรียงลำดับตาม turnout2018
ตั้งชื่อแกน x ว่า "Eligible voter turnout"
ตั้งชื่อแกน y ว่า "State" และกำหนด type เป็น category

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

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

# Create a dotplot of voter turnout in 2018 by state ordered by turnout
turnout %>%
  slice_max(turnout2018, n = 15) %>%
  ___(x = ___, y = ~fct_reorder(___, ___)) %>%
  ___() %>%
  layout(___, 
         ___)

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