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

การเพิ่ม slider สำหรับช่วงเวลา

ในบทเรียนที่แล้ว คุณได้สร้างแอนิเมชันที่แสดงจำนวนการปล่อยยานของแต่ละรัฐในแต่ละปี Slider bar เป็นอีกทางเลือกหนึ่งแทนแอนิเมชัน ซึ่งให้อิสระในการเลือกช่วงข้อมูลที่ต้องการสำรวจได้อย่างเต็มที่ ตัวอย่างเช่น อาจดูภาพรวมตั้งแต่ต้นจนจบ หรือโฟกัสเฉพาะช่วงทศวรรษ 1960s ก็ได้ ในแบบฝึกหัดนี้ให้เพิ่ม slider bar ไว้ใต้กราฟเส้นแสดงการปล่อยยานแยกตามรัฐ

โหลด plotly, crosstalk, dplyr และชุดข้อมูล state_launches ไว้ให้แล้ว

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

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

ดูคอร์ส

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

  • คำนวณจำนวนการปล่อยยานตาม state_code และ launch_year แล้วแปลงผลลัพธ์เป็นออบเจ็กต์ SharedData เก็บไว้ในตัวแปร shared_launches
  • ใช้ shared_launches สร้างกราฟเส้นแสดงจำนวนการปล่อยยาน (n) ของแต่ละรัฐตามช่วงเวลา เก็บกราฟนี้ไว้ในตัวแปร launch_ts โดยใช้สีแทน state_code
  • วาง slider ไว้ใต้กราฟเพื่อกรองปีที่แสดง และตั้งชื่อ slider นี้ว่า "Year"

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

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

# Create a SharedData object containing the number of launches by year and state
shared_launches <- state_launches %>%
  count(___, ___) %>%
  ___()

# Create a line chart displaying the launches by state
launch_ts <- ___ %>%
  ___(x = ___, y = ___, color = ___) %>%
  ___()  

# Add a slider below the chart to filter the years displayed
___(list(___,
    ___(id = "time", label = ___, 
        sharedData = ___, column = ___)
))
แก้ไขและรันโค้ด