在 rmarkdown 中切换 dygraph 的对数刻度选项答案

【问题标题】：Toggle logscale option for dygraph in rmarkdown在 rmarkdown 中切换 dygraph 的对数刻度选项
【发布时间】：2017-12-08 01:54:06
【问题描述】：

我真的很想要一个带有复选框的 dygraph，可以将 Y 轴切换为对数刻度。我知道我可以使用 shiny 来做到这一点，但是我可以使用 rmarkdown 来完成该项目所需的几乎所有其他事情，而无需使用 shiny，这使我无需设置闪亮的服务器即可交付 .html。

我知道在 dygraph 方面并不复杂 http://dygraphs.com/options.html#logscale

而且我认为 rmarkdown 确实足够灵活，可以做到这一点 http://livefreeordichotomize.com/2017/01/24/custom-javascript-visualizations-in-rmarkdown/

但是怎么做呢？

【问题讨论】：

我仍然需要设置一个闪亮的服务器才能做到这一点，对吧？
"这些文档结合了 R Markdown 的表现力和 Shiny 的交互性。这些文档可以在桌面本地运行，也可以部署到 ShinyApps 或 Shiny Server v1.2（请参阅下面的部署部分了解更多细节）。” rmarkdown.rstudio.com/authoring_shiny.html

标签： javascript r markdown knitr dygraphs

【解决方案1】：

您可以使用{.tabset} 并分别绘制两个比例。

---
output:
  html_document:
    code_folding: hide
    theme: flatly
    toc: yes
    toc_depth: 3
    toc_float: yes
---

```{r setup, include=FALSE}
library(tidyr)
library(dplyr)
library(tibble)
library(dygraphs)
```


# Plots {.tabset .tabset-fade .tabset-pills}


## Normal Y

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


## Log Y

```{r plot_log}
dygraph(AirPassengers, main = "Airline Passengers / Month") %>%
  dyAxis("x", drawGrid = FALSE) %>%
  dyAxis("y", label = "Passengers (Thousands)", logscale = TRUE) %>%
  dyOptions(logscale = TRUE,
            axisLineColor = "navy", 
            gridLineColor = "lightblue")
```

【讨论】：