标签: dygraphs

如何使用dygraph绘制散点图.数据如下.

X轴可能有5-20个值(catagories)Y值可能是x轴上每个值1-10个值

这是我需要的一个例子.

在Dygraphs中这可能吗？

谢谢迈克尔

我正在运行以下 RSTUDIO 帮助页面提供的 dygraph 示例。

http://rstudio.github.io/dygraphs/gallery-synchronization.html

当我运行以下代码时，我会分别获得每个 dygraph 的单独图。

dygraph(ldeaths, main = "All", group = "lung-deaths")
dygraph(mdeaths, main = "Male", group = "lung-deaths")
dygraph(fdeaths, main = "Female", group = "lung-deaths")

我没有得到帮助页面中显示的同步图。"group" 变量 "lung-deaths" 不是 xts 对象的一部分。如果我在这里遗漏了一些基本的东西，请告诉我。

谢谢

普拉迪普

使用Rstudio [Windows8],当我使用dygraph函数绘制时间序列时,我在主标题中尝试使用UTF-8字符时遇到问题.

library(dygraphs)
dygraph(AirPassengers, main = "Título")

这导致标题:"T？tulo"

我试图将"Título"转换为utf-8 enconding,但它不起作用.

如何在r dygraphs中用dyShading来遮蔽周末时段？

我使用下面的代码,但有一个简单的方法吗？

library(lubridate)
library(xts)
library(dygraphs)
dateP<-seq(as.POSIXct("2015-01-01 "), as.POSIXct("2015-02-01 "), by="days")
toto<-rep(6,length(dateP))
tutu<-xts(toto, order.by=dateP)


dateWD<-dateP[isWeekend(dateP, wday = 0:4)]
ok_periods<-0
i=1
j=1
while (i<(length(dateWD)-1)){
  ok_periods[j] <- list(list(from = dateWD[i], to = dateWD[i+1]))
  i=i+2
  j=j+1
}

add_shades<-function(x,periods){
  for(period in periods){
   x<-dyShading(x, from=period$from,to=period$to)
 }
 x
  }
 dygraph(tutu) %>% 
   add_shades(ok_periods)

我通常会创建一个这样的粉丝图:

n.ahead <- 10
m <- matrix(,nrow = 5000,ncol = 10)

library(fanplot)
m[,1] <- rnorm(5000,0.01,sd = 0.005)
m[,2] <- rnorm(5000,0.02,0.006)
m[,3] <- rnorm(5000,0.03,0.008)
m[,4] <- rnorm(5000,0.04,0.01)
m[,5] <- rnorm(5000,0.06,0.013)
m[,6] <- rnorm(5000,0.1,0.015)
m[,7] <- rnorm(5000,0.11,0.02)
m[,8] <- rnorm(5000,0.13,0.025)
m[,9] <- rnorm(5000,0.14,0.05)
m[,10] <- rnorm(5000,0.18,0.07)

n.ahead <- 10
fancol <- colorRampPalette(c('black', 'white'))
plot(
  NULL, type = 'n', lwd = 3, col = 'black',
  xlim = c(0, n.ahead), ylab = 'Y', ylim = c(0,max(m)), xlab = 'Year',
  las = 1, xaxt = …

这已经困扰了我一个星期，所以我不得不来 SO。（请原谅 URL，它是一个开发服务器）。 http://www.stagestudio.com.ua/shutter_stat/wiev_base.php?cat=34

当我点击照片时，应该会出现带有折线图的弹出窗口，但实际上折线图是不可见的。只有在调整窗口大小或打开浏览器检查窗口后才能看到它。

我怎样才能解决这个问题？

这个方法不行 <script> var graph = new Dygraph(document.getElementById("graphPanel"), "temperatures.csv", { animatedZooms: true }); $(document).ready(function () { graph.resize(800, 500) }); </scrip>

我是 R 中 Dygraph 的新手，我用它来绘制我的数据（使用 xts）。一切正常，运行良好。

但问题是：我不能axisLabelFormatter用于使标签变粗和变大。这怎么可能？

此外，我可以在图表周围添加一个框架（如 x 和 y 轴的黑线）？

此处的图像解释了我的 2 个问题：单击此处查看示例图像

下面是我正在尝试的代码：

library(shiny)
library(dygraphs)
library(xts)

#------Importation des données contenues dans un .csv------
setwd("C:/Users") #attention,on ne peut pas faire créer à R un dossier, il faut le créer via windows

#----Importation données de qualité d'eau
TabSMP=read.csv2(file="Analyse R/MC1_MC2_SMP.csv",sep=";",dec=".",na.strings = "#N/A")
TabSMPMC1=read.csv2(file="Analyse R/MC1_SMP.csv",sep=";",dec=".",na.strings = "#N/A")
TabSMPMC2=read.csv2(file="Analyse R/MC2_SMP.csv",sep=";",dec=".",na.strings = "#N/A")
TabMC1Manu=read.csv2(file="Analyse R/MC1_Manu.csv",sep=";",dec=".",na.strings = "#N/A")
TabMC2Manu=read.csv2(file="Analyse R/MC2_Manu.csv",sep=";",dec=".",na.strings = "#N/A")
TabMC3Manu=read.csv2(file="Analyse R/MC3_Manu.csv",sep=";",dec=".",na.strings = "#N/A")
TabMC4Manu=read.csv2(file="Analyse R/MC4_Manu.csv",sep=";",dec=".",na.strings = "#N/A")


#-----Attribution …

我一直在使用dygraphs库在发光的应用程序中放置一些非常好的时间序列图。我特别喜欢结合使用group参数dygraph与dyRangeSelector来同步多个笔形图的缩放级别。

有没有办法使其他闪亮的输出对范围选择器的用户操作起反应？以这个示例应用程序为例，该应用程序显示一个简单的笔形图，并将其汇总在下表中：

# app.R
library(shiny)
library(dygraphs)
library(dplyr)

indoConc <- Indometh[Indometh$Subject == 1, c("time", "conc")]

ui <- fluidPage(
  dygraphOutput("plot"),
  tableOutput("table")
)

server <- shinyServer(function(input, output) {

  output$plot <- renderDygraph({
    indoConc %>%
      dygraph %>%
      dyRangeSelector
  })

  output$table <- renderTable({
    indoConc %>%
      filter(time >= min(indoConc$time), time <= max(indoConc$time)) %>%
      summarise(total_conc = sum(conc))
  })
})

shinyApp(ui, server)

我希望该表仅在用户当前选择的时间间隔内求和。这意味着将filter线更改为使用那些最小/最大点以外的值（这将导致不进行过滤）。

如何以适当的格式从范围选择器中提取这两个值，以便可以在该filter调用中使用它们，并在用户移动滑块时使表进行更新？

I have two graphs on one page, which zoom and pan I want to be able to control with the same RangeSelector. In other words when I move the RangeSelector both graphs should react simultaneously.

The values in my first graph are small numbers between 2 and 20, and the numbers in my second graph have big values > 3000. This is the reason I don't want to put both lines in the same graph. Both graphs have the same …

我想使用 dygraphs 创建条形图和折线图，这似乎应该可以基于此处的“条形图和折线图”dygraphs 示例以及dygraphs 包中提供的dyBarChart() 自定义绘图仪。

使用自定义包装器，我可以创建一个条形图，因此我认为该代码正在运行：

library(dygraphs)

dyBarChart <- function(dygraph) {
  dyPlotter(
    dygraph = dygraph,
    name = "BarChart",
    path = system.file("examples/plotters/barchart.js",package = "dygraphs")
  )
}

lungDeaths <- cbind(ldeaths, mdeaths)
dygraph(lungDeaths) %>% 
  dyBarChart()

我假设我可以用dySeries()来自定义我想用线/条显示的系列，但以下都不起作用。它们不会出错，但不会创建任何内容。我也不确定这是否"linePlotter"是正确的绘图仪名称，但无论哪种方式，我都需要一点帮助。

# doesn't work
dygraph(lungDeaths) %>% 
  dyBarChart() %>% 
  dySeries("ldeaths", plotter = "linePlotter")

# also doesn't work:
dygraph(lungDeaths) %>%
  dySeries("ldeaths", plotter = "dyBarChart") %>%
  dySeries("mdeaths", color = "blue")

谢谢。