การสร้าง Facet อัตโนมัติ

ในแบบฝึกหัดก่อนหน้า คุณสร้าง Scatterplot แบบ Faceted ด้วยตนเอง ซึ่งยังไม่ยุ่งยากมากนักเพราะมีเพียงสองกลุ่ม อย่างไรก็ตาม ในชุดข้อมูล vgsales2016 มีถึง 6 แพลตฟอร์ม การเขียนโค้ด Scatterplot ทั้ง 6 แผนภูมิด้วยตนเองจึงเป็นเรื่องที่น่าเบื่อมาก

ในแบบฝึกหัดนี้ จะได้ฝึกใช้ group_by(), nest(), mutate() และ map2() เพื่อสร้าง Scatterplot แบบ Faceted โดยอัตโนมัติ โดยใช้เทมเพลตต่อไปนี้:

data %>%
  group_by(factor) %>%
  nest() %>%
  mutate(
      plot = map2(data, factor,
        \(data, factor) 
            plot_ly(data = data, x = ~x, y = ~y) %>%
                  add_markers(name = ~factor)
    )) %>%
  subplot(nrows = R, shareY = TRUE, shareX = TRUE)

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

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

ดูคอร์ส

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

ใช้ group_by(), nest(), mutate() และ map2() เพื่อสร้าง Scatterplot แบบ Faceted โดยแสดง Critic_Score บนแกน x และ User_Score บนแกน y โดยให้ Platform เป็นตัวกำหนด Facet
จัดเรียง Facet เป็นตารางที่มี 3 แถว

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

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

# Create a faceted scatterplot of User_Score vs. Critic_Score with 3 rows
vgsales2016 %>%
  ___(___) %>%
  ___() %>%
  mutate(
    plot = ___(
      ___, ___,
      \(data, Platform) 
      	
    )) %>%
  subplot(nrows = ___, shareY = TRUE, shareX = TRUE)

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