การปรับแต่งแอนิเมชัน

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

Adam Loy

Statistician, Carleton College

การปรับแต่ง

ตัวเลือกแอนิเมชัน

เวลาระหว่างเฟรม
การเปลี่ยนผ่านระหว่างเฟรม
รูปแบบของแถบเลื่อน

ตัวเลือกการพล็อต

สี รูปร่าง และขนาดของจุด
ป้ายกำกับแกน และการแปลงค่า
ทูลทิป (เช่น ข้อความเมื่อชี้เมาส์)

ตัวเลือกแอนิเมชัน

แอนิเมชันพื้นฐานด้วยค่าเริ่มต้น

ani <- world_indicators %>%
  plot_ly(x = ~income, y = ~co2) %>%
  add_markers(frame = ~year, 
              ids = ~country, 
              showlegend = FALSE) %>%
  layout(xaxis = list(type = "log"),
         yaxis = list(type = "log"))

ตัวเลือกแอนิเมชัน

แอนิเมชันพื้นฐานด้วยค่าเริ่มต้น

ani %>%
  animation_opts(
      frame = 500, 
      transition = frame,
      easing = "linear",
      redraw = TRUE
   )

เพิ่มความเร็วแอนิเมชัน

แอนิเมชัน Scatterplot ที่เร็วขึ้นโดยใช้ frame = 300

ani %>%
  animation_opts(frame = 300)

การหยุดระหว่างเฟรม

แอนิเมชันที่หยุดนิ่ง 350 มิลลิวินาทีในแต่ละเฟรม

ani %>%
  animation_opts(
     frame = 700, 
     transition = 350
  )

จุดกระดอน

แอนิเมชันที่ใช้ easing = "bounce"

ani %>%
  animation_opts(easing = "bounce")

ตัวเลือก easing พื้นฐาน:

"linear", "quad", "cubic", "sin", "exp", "circle", "elastic", "back", "bounce"

ตัวเลือกแถบเลื่อน

แอนิเมชันพื้นฐานด้วยค่าเริ่มต้น

ani

การซ่อนแถบเลื่อน

แอนิเมชันที่ไม่มีแถบเลื่อน

ani %>%
  animation_slider(hide = TRUE)

การแก้ไขข้อความบนแถบเลื่อน

การลบคำนำหน้า "year: " ออกจากแถบเลื่อน

ani %>%
  animation_slider(
     currentvalue = list(prefix=NULL)
  )

การแก้ไขข้อความบนแถบเลื่อน

การเพิ่มขนาดข้อความเป็น 40 และเปลี่ยนสีเป็นสีดำบนแถบเลื่อน

ani %>%
  animation_slider(
     currentvalue = list(prefix=NULL,
        font = list(
           color = "black", 
           size = 40
        )
     )
  )

มาฝึกกันเถอะ!

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