Gói thư viện dygraphs trong R

Package dygraphs là giao diện của R với thư viện biểu đồ JavaScript. Nó cung cấp nhiều công cụ để làm việc với biểu đồ cho dữ liệu chuỗi thời gian trong R, bao gồm như:

• Tự động vẽ biều đồ với dữ liệu chuỗi thời gian dạng xts (hoặc bất kỳ đối tượng nào khác được chuyển về dạng xts)
• Cấu hình trục tọa độ (axis) mạnh mẽ và hiển thị hàng loạt(bao gồm tùy chọn second Y-axis)
• Nhiều tính năng tương tác, bao gồm zoom/pan và series/point highlighting
• Hiển thị upper/lower bars(ví dụng như khoảng dự báo-prediction intervals) quang chuỗi
• Những biều đồ khác nhau được che phủ bởi (shaded regions, event lines, và point annotations)
• Sử dụng R Console giống như các biểu đồ tiêu chuẩn của R(như là qua Rstudio Viewer)
• Nhúng trong R Markdown documents và Shiny Web applications dễ dàng và trơn tru.

Cài đặt dygraphs

Bạn có thể cài đặt từ CRAN với lệnh sau:

install.packages("dygraphs")

Bạn có thể sử dụng dygraphs trong R Console, với R Markdown documents và với Shiny applications. Dưới đây là một vài demos về dygraphs trong thư viện ví dụ.

Demos

Đây là một dygraphs đơn giản được tạo thành từmột vài đối tượng chuỗi thời gian:

library(dygraphs)
lungDeaths <- cbind(mdeaths, fdeaths)
dygraph(lungDeaths)

Chú ý rằng biểu đồ này hoàn toàn tương tác :Như là bạn có thể dùng chuột di chuyển dọc theo đương đồ thị để làm hiển thị các giá trị cụ thể của đồ thị. Bạn cũng có thể chọn vùng của biểu đồ để phóng(double-click zoom out.)

Bạn có thể tùy chỉnh dygraphs bằng việc thêm các lệnh bổ sung vào đối tượng dygraph ban đầu.

Thêm dyRangeSelector vào original graph:

dygraph(lungDeaths) %>% dyRangeSelector()

Chú ý ở ví dụ này sử dụng toán tử %>% (hoặc gọi là “pipe”) từ thư viện magrittr để tạo dygraph với range selector. Bạn có thể sử dụng toán tử này để tùy chỉnh axes, chuỗi và những tùy chọn khác. Ví dụ như:

dygraph(lungDeaths) %>%
  dySeries("mdeaths", label = "Male") %>%
  dySeries("fdeaths", label = "Female") %>%
  dyOptions(stackedGraph = TRUE) %>%
  dyRangeSelector(height = 20)

Có rất nhiều tùy biến để hiệu chỉnh Series và axis hiển thị sẵn sàng để dùng . Thậm chí có thể gộp một vài lower/value/upper style series trong một hiển thị với shaded bars. Dưới đây là một ví dụ để minh họa shaded bars, thêm tên cho biểu đồ,bỏ vẽ lưới cho trục X và sử dụng màu:

hw <- HoltWinters(ldeaths)
predicted <- predict(hw, n.ahead = 72, prediction.interval = TRUE)
dygraph(predicted, main = "Predicted Lung Deaths (UK)") %>%
  dyAxis("x", drawGrid = FALSE) %>%
  dySeries(c("lwr", "fit", "upr"), label = "Deaths") %>%
  dyOptions(colors = RColorBrewer::brewer.pal(3, "Set1"))

Ngoài ra trong Gallery cảu dygraph vẫn còn rất nhiều các ví dụ của các đặc tính sẵn sàng sử dụng để hiệu chỉnh dygraphs

Sử dụng dygraphs trong R console

Dygraphs được sử dụng trong R console tương tự như bất cứ hàm vẽ biểu đồ nào trong R. Ví dụ, dưới đây là code được sử dụng để vẽ chuỗi thời gian nhtemp sử dụng dygrpahs:

plot(nhtemp, main = "New Haven Temperatures", ylab = "Temp (F)")
dygraph(nhtemp, main = "New Haven Temperatures", ylab = "Temp (F)") 

Mặc định R Console sẽ hiện thị dygraphs ở ngoài cửa sổ trình duyệt

Nếu bạn sử dụng Rstudio nó sẽ được hiển hị ở Rstudio Viewe.

Sử dụng dygraphs trong R Markdown Figure size:

---
title: "My Document"
output:
  html_document:
    fig_width: 6
    fig_height: 4
---

Bạn cũng có thể thay đổi figure sizes on a per-chunk basis.(mặc định là 7x5):

dygraph(nhtemp, main = "New Haven Temperatures", ylab = "Temp (F)") 

GALLERY của dygraphs

1. Series Options

Series colors

lungDeaths <- cbind(ldeaths, mdeaths, fdeaths)
dygraph(lungDeaths, main = "Deaths from Lung Disease (UK)") %>%
  dyOptions(colors = RColorBrewer::brewer.pal(3, "Set2"))

Step plots

Trong dygraphs chuỗi thời gian hiện thị mặc định dưới dạng đường, tuy nhiên bạn cũng có thể vẽ biều đồ cho chuỗi thời gian dạng step chart:

lungDeaths <- cbind(mdeaths, fdeaths)
dygraph(lungDeaths, main = "Deaths from Lung Disease (UK)") %>%
  dyOptions(stepPlot = TRUE)

Filling Bạn có thể lấp khu vực bên dưới đường và có thể hiệu chỉnh giá trị alpha để lấp:

dygraph(ldeaths, main = "Deaths from Lung Disease (UK)") %>%
  dyOptions(fillGraph = TRUE, fillAlpha = 0.4)

Point display

dygraph(ldeaths, main = "Deaths from Lung Disease (UK)") %>%
  dyOptions(drawPoints = TRUE, pointSize = 2)

Những hình dạng point khác nhau:

dygraph(ldeaths, main = "Deaths from Lung Disease (UK)") %>%
  dyOptions(drawPoints = TRUE, pointSize = 5)

Per-Series Options

dygraph(lungDeaths, main = "Deaths from Lung Disease (UK)") %>%
  dySeries("mdeaths", drawPoints = TRUE, color = "blue") %>%
  dySeries("fdeaths", stepPlot = TRUE, fillGraph = TRUE, color = "red")

Line Strokes

dygraph(ldeaths, main = "Deaths from Lung Disease (UK)") %>%
  dySeries("V1", strokeWidth = 2, strokePattern = "dashed")

dyGroup

lungDeaths <- cbind(mdeaths, fdeaths, ldeaths)
dygraph(lungDeaths, main = "Deaths from Lung Disease (UK)") %>%
  dySeries("fdeaths", stepPlot = TRUE, color = "red") 

# dyGroup(c("mdeaths", "ldeaths"), drawPoints = TRUE, color = c("blue", "green")) Không làm việc

2/ Series Highlighting

lungDeaths <- cbind(ldeaths, mdeaths, fdeaths)
dygraph(lungDeaths, main = "Deaths from Lung Disease (UK)") %>%
  dyHighlight(highlightCircleSize = 5, 
              highlightSeriesBackgroundAlpha = 0.2,
              hideOnMouseOut = FALSE)

dygraph(lungDeaths, main = "Deaths from Lung Disease (UK)") %>%
  dyHighlight(highlightSeriesOpts = list(strokeWidth = 3))

3. Axis Options

dygraph(nhtemp, main = "New Haven Temperatures") %>%
  dyAxis("y", label = "Temp (F)", valueRange = c(40, 60)) %>%
  dyOptions(axisLineWidth = 1.5, fillGraph = TRUE, drawGrid = FALSE)

dygraph(AirPassengers, main = "Airline Passengers / Month") %>%
  dyAxis("x", drawGrid = FALSE) %>%
  dyAxis("y", label = "Passengers (Thousands)") %>%
  dyOptions(includeZero = TRUE, 
            axisLineColor = "navy", 
            gridLineColor = "lightblue")

# define mts with distinct y-axis scales
temperature <- ts(frequency = 12, start = c(1980, 1),
  data = c(7.0, 6.9, 9.5, 14.5, 18.2, 21.5, 
           25.2, 26.5, 23.3, 18.3, 13.9, 9.6))
rainfall <- ts(frequency = 12, start = c(1980, 1),
  data = c(49.9, 71.5, 106.4, 129.2, 144.0, 176.0, 
           135.6, 148.5, 216.4, 194.1, 95.6, 54.4))
weather <- cbind(rainfall, temperature)
# assign the "rainfall" series to the y2 axis
dygraph(weather) %>%
  dySeries("rainfall", axis = 'y2')

dygraph(weather) %>%
  dyAxis("y", label = "Temperature (C)") %>%
  dyAxis("y2", label = "Rainfall", independentTicks = TRUE) %>%
  dySeries("rainfall", axis = 'y2')

4/ Labels và Legends Labels

dygraph(discoveries, 
        main = "Important Discoveries", 
        ylab = "Discoveries / Year")

dygraph(discoveries, main = "Important Discoveries") %>%
  dyAxis("y", label = "Discoveries / Year")

Legends

dygraph(nhtemp, main = "New Haven Temperatures") %>% 
  dySeries("V1", label = "Temperature (F)") %>%
  dyLegend(show = "always", hideOnMouseOut = FALSE)

dygraph(nhtemp, main = "New Haven Temperatures") %>% 
  dySeries("V1", label = "Temperature (F)") %>%
  dyLegend(show = "follow")

lungDeaths <- cbind(ldeaths,mdeaths,fdeaths)
dygraph(lungDeaths, main = "Deaths from Lung Disease (UK)") %>%
  dyLegend(width = 400)

Ngoài ra còn rất nhiều trong thư viện:

https://rstudio.github.io/dygraphs/gallery-timezones.html