เริ่มต้นใช้งานเริ่มต้นใช้งานได้ฟรี

ไทม์ไลน์การแข่งขันอวกาศ

การแข่งขันอวกาศ "ครั้งแรก" เริ่มต้นขึ้นเมื่อสหรัฐอเมริกาและสหภาพโซเวียตต่างพยายามชิงความเป็นมหาอำนาจด้านการบินอวกาศ การแข่งขันนี้ถึงจุดสูงสุดเมื่อวันที่ 20 กรกฎาคม 1969 เมื่อยานอวกาศที่มีนักบินอย่าง Apollo 11 ลงจอดบนดวงจันทร์ได้สำเร็จ ในแบบฝึกหัดนี้ ให้สร้างกราฟอนุกรมเวลาที่สรุปภาพรวมของการแข่งขันอวกาศในยุคแรก ซึ่งเป็นการแข่งขันชิงความเหนือกว่าด้านการบินอวกาศระหว่างประเทศต่าง ๆ

แพ็กเกจ plotly, crosstalk และ dplyr ถูกโหลดไว้แล้ว

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

การสร้างภาพข้อมูลเชิงโต้ตอบด้วย plotly ใน R ระดับกลาง

ดูคอร์ส

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

  • สร้างออบเจ็กต์ SharedData ใหม่จาก data frame state_launches
  • สร้างกราฟเส้นที่แสดงจำนวนการปล่อยยานตามปี (launch_year) สำหรับแต่ละรัฐ (state_code)
  • วาดแต่ละเส้นด้วยสีที่แตกต่างกัน
  • เปิดใช้งานการเลือก (เช่น การไฮไลต์) สำหรับรัฐแต่ละรัฐ

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

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

# table of launches by year
state_launches <- launches %>% 
  filter(agency_type == "state") %>% 
  count(launch_year, state_code)

# create a ShareData object for plotting
shared_launches <- state_launches %>% ___(key = ___)

# Create a line chart for launches by state, with highlighting
shared_launches %>%
  ___(___, ___, ___) %>%
  ___() %>%
  ___()
แก้ไขและรันโค้ด