สร้างกราฟให้สวยงามยิ่งขึ้น

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

Adam Loy

Statistician, Carleton College

แอปโดยไม่ใช้ Shiny

ตัวอย่าง bscols

`bscols()` สำหรับการจัดวางคอลัมน์

library(plotly)
library(crosstalk)
shared_data <- world2014 %>% SharedData$new()

p1 <- shared_data %>% 
  plot_ly(x=~income, y = ~co2, color = ~four_regions) %>% 
  add_markers() %>% 
  layout(xaxis = list(type = "log"), yaxis = list(type = "log"))
p2 <- shared_data %>% 
  plot_ly(x=~income, y = ~life_expectancy, color = ~four_regions) %>% 
  add_markers() %>% 
  layout(xaxis = list(type = "log")))

bscols(p1, p2)

`bscols()` สำหรับการจัดวางคอลัมน์

bscols ขั้นตอนที่ 1

เพิ่มตัวกรอง: Checkbox

bscols พร้อม checkbox

bscols(filter_checkbox(id = "four_regions", label = "Region", 
                       sharedData = shared_data, group = ~four_regions),
       p1)

เพิ่มตัวกรอง: Select Box

bscols พร้อม select box

bscols(filter_select(id = "four_regions", label = "Region", 
                sharedData = shared_data, group = ~four_regions),
       p1)

เพิ่มตัวกรอง: Slider

bscols พร้อม slider

bscols(filter_slider(id = "co2", label = "CO2 concentrations", 
                     sharedData = shared_data, column = ~co2),
       p1)

กำหนดช่วงของแกน

bscols กำหนดช่วงแกนคงที่

bscols(filter_slider(id = "co2", label = "CO2 concentrations", 
                     sharedData = shared_data, column = ~co2),
        p1 %>% layout(xaxis = list(range = c(2.5, 5)), 
                      yaxis = list(range = c(-1.4, 1.55)))
)

รวมทุกองค์ประกอบเข้าด้วยกัน

bscols(widths = c(2, 5, 5),
  list(
    filter_checkbox(
      id = "four_regions", label = "Region", 
      sharedData = shared_data, group = ~four_regions
    ),
    filter_slider(
      id = "co2", label = "CO2 concentrations", 
      sharedData = shared_data, column = ~co2
    )
  ),
  p1,
  p2
)

รวมทุกองค์ประกอบเข้าด้วยกัน

ผลลัพธ์ bscols แบบ static

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

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