สร้างแอนิเมชันการแข่งขันด้านอวกาศภาคเอกชน
ในช่วงไม่กี่ปีที่ผ่านมา ผู้เล่นหลักในวงการอวกาศได้เปลี่ยนจากหน่วยงานภาครัฐมาเป็นบริษัทเอกชน ในแบบฝึกหัดนี้ ให้สร้างแอนิเมชันเพื่อสำรวจพัฒนาการของการแข่งขันด้านอวกาศ "รูปแบบใหม่" นี้ ชุดข้อมูล private_launches ประกอบด้วยตัวแปรดังนี้:
tag- รหัสการปล่อยยานyear- ปีที่ปล่อยยานagency_code- ชื่อย่อของหน่วยงานagency_name- ชื่อเต็มของหน่วยงานagency_type- บริษัทเอกชนที่จัดตั้งแล้ว (private) หรือสตาร์ทอัป (startup)category- ผลของการปล่อยยาน ได้แก่ สำเร็จ (O) หรือล้มเหลว (F)
ไลบรารี plotly, dplyr, tidyr และ purrr ถูกโหลดไว้ให้แล้ว
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
การสร้างภาพข้อมูลเชิงโต้ตอบด้วย plotly ใน R ระดับกลาง
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
# Complete the private_launches data set
annual_launches <- private_launches %>%
count(year, agency_name) %>%
___(___, ___, ___)