शुरू करेंमुफ़्त में शुरू करें

समय के लिए स्लाइडर जोड़ना

पिछले लेसन में, आपने एक ऐनिमेशन बनाया था जो साल-दर-साल हर राज्य द्वारा किए गए लॉन्च की संख्या दिखाता है. स्लाइडर बार उस ऐनिमेशन का एक विकल्प है, जो आपको कहानी के जिस हिस्से का अध्ययन करना चाहें, उस पर पूरा नियंत्रण देता है. उदाहरण के लिए, आप शुरुआत से अंत तक देख सकते हैं या केवल 1960s पर फोकस कर सकते हैं. इस अभ्यास में, आपका कार्य राज्य-आधारित लॉन्च के लाइन चार्ट के नीचे एक स्लाइडर बार जोड़ना है.

plotly, crosstalk, dplyr, और state_launches डेटा सेट आपके लिए लोड कर दिए गए हैं.

यह अभ्यास पाठ्यक्रम का हिस्सा है

इंटरमीडिएट इंटरएक्टिव डेटा विज़ुअलाइज़ेशन with plotly in R

पाठ्यक्रम देखें

अभ्यास निर्देश

  • state_code और launch_year के अनुसार लॉन्च की संख्या निकालें, और इसे SharedData ऑब्जेक्ट में बदलें. परिणाम को shared_launches में स्टोर करें.
  • shared_launches का उपयोग करके, समय के साथ प्रत्येक राज्य द्वारा किए गए लॉन्च (n) का लाइन चार्ट बनाएँ. इस चार्ट को launch_ts के रूप में स्टोर करें. state_code को रंग के रूप में दर्शाएँ.
  • चार्ट के नीचे एक स्लाइडर पोजिशन करें ताकि दिखाए जा रहे वर्षों को फ़िल्टर किया जा सके. इस स्लाइडर का लेबल "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 = ___)
))
कोड संपादित करें और चलाएँ