朋友们,
我想在我的应用程序中使用DyGraph.请看下面的代码 -
<head>
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7; IE=EmulateIE9">
<title>crosshairs</title>
<script type="text/javascript" src="dygraph-combined.js"></script>
<script type="text/javascript" src="data.js"></script>
</head>
Run Code Online (Sandbox Code Playgroud)
该代码使用包含函数的data.js文件来获取一些静态数据.我希望使用控制器方法生成data.js,以便它使用数据库生成数据.
任何人都可以帮我解决这个问题.
感谢您分享宝贵的时间.
有一些奇怪的行为dygraph.
使用for循环时,dygraph我没有结果.
library(dygraphs)
lungDeaths <- cbind(mdeaths, fdeaths)
for(i in 1:2){
dygraph(lungDeaths[, i])
}
Run Code Online (Sandbox Code Playgroud)
另一方面,当我使用lapply我确实得到预期的结果
lapply(1:2, function(i) dygraph(lungDeaths[, i]))
Run Code Online (Sandbox Code Playgroud)
我实际上想在我自己的数据集中使用for循环R Markdown并迭代不同的列,但即使我使用lapply"解决方法",它也不会绘制dygraphs
R Markdown代码
---
title: "Untitled"
author: "dimitris_ps"
date: "28 May 2015"
output: html_document
---
```{r}
library(dygraphs)
lungDeaths <- cbind(mdeaths, fdeaths)
lapply(1:2, function(i) dygraph(lungDeaths[, i]))
```
Run Code Online (Sandbox Code Playgroud)
而当我逐列运行它时,它的工作原理
---
title: "Untitled"
author: "dimitris_ps"
date: "28 May 2015"
output: html_document
---
```{r echo=FALSE}
library(dygraphs)
lungDeaths <- cbind(mdeaths, fdeaths) …Run Code Online (Sandbox Code Playgroud) 我想在Shiny App中同步dygraph和DateRangeInput.下面的代码工作正常:我可以同时使用缩放选项和日期范围,但我不能使用dyRangeSelector,因为"乒乓"效果:
library(xts)
library(shiny)
library(dygraphs)
library(lubridate)
data("co2")
data <- as.vector(coredata(as.xts(co2)))
serie <- xts(x = data,order.by = seq(from=today(),by=1,length.out = length(data)))
ui <- fluidPage(
titlePanel("Dygraph & date range input"),
sidebarLayout(
sidebarPanel(
dateRangeInput('plage', label = "Selectionnez la période :",
start = start(serie), end = end(serie),
# min = start(serie), max = end(serie),
separator = " - ",
format = "dd mm yyyy", #"yyyy-mm-dd",
language = 'fr', weekstart = 1
)
),
mainPanel(
dygraphOutput("dessin")
)
)
)
server <- function(input, output,session) {
observeEvent(input$dessin_date_window,{
start …Run Code Online (Sandbox Code Playgroud) 我正在尝试使用dygraphs的R实现
提供的示例是
library(dygraphs)
dygraph(presidents, main = "Presidential Approval") %>%
dyAxis("y", valueRange = c(0, 100)) %>%
dyAnnotation("1950-7-1", text = "A", tooltip = "Korea") %>%
dyAnnotation("1965-1-1", text = "B", tooltip = "Vietnam")
Run Code Online (Sandbox Code Playgroud)
这导致图表
将鼠标悬停在"A"上会产生一个带有"韩国"的工具提示
我希望每个点都有一个工具提示,最好完全符合文本要求 - 尽管将文本设置为""具有最小的高度/宽度值可能就足够了.我还想以一个带有日期和工具提示列的文件以编程方式附加dyAnnotations
df <- data.frame(date=as.Date(c("1950-7-1","1965-1-1")),tooltip=c("Korea","Vietnam"))
Run Code Online (Sandbox Code Playgroud)
这是可行的,如果是的话,怎么样?TIA
我正在使用dygraphs包绘制每周数据.dygraphs自动选择每周默认轴.但是,我希望有一种方法可以让默认轴(星期日)与我的数据(星期一)对齐.
# Required packages
library("magrittr")
library("dygraphs")
library("xts")
# Data
daily <- structure(c(4000, 5000, 3000, 7000, 2000, 5000, 7000,
2000, 3000, 6000, 5000, 9000, 2000, 2000, 2000,
7000, 9000, 2000, 1000, 13000), .Dim = c(10L, 2L), .Dimnames = list(
NULL, c("col1", "col2")), index = structure(c(1476032400,
1476637200, 1477242000, 1477846800, 1478451600, 1479056400, 1479661200,
1480266000, 1480870800, 1481475600), tzone = "Asia/Saigon", tclass = c("POSIXct",
"POSIXt")), class = c("xts", "zoo"), .indexCLASS = c("POSIXct",
"POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "Asia/Saigon", tzone …Run Code Online (Sandbox Code Playgroud) 我用图表时间序列dygraphs中R像下面这样:
library(dygraphs)
library(htmlwidgets)
library(data.table)
now <- Sys.time()
dataset <- data.table(time = as.POSIXct(now+1:10),value = 1:10)
d <- dygraph(dataset)
Run Code Online (Sandbox Code Playgroud)
图例中显示的日期格式取决于机器区域设置,我不能将其保留.
x轴的标签可以格式化如下:
valueFormatter<-"function formatValue (ms) {
return ms.toISOString();
}"
d <- d%>%dyAxis("x", axisLabelFormatter=JS(valueFormatter))
Run Code Online (Sandbox Code Playgroud)
但是,我不知道如何为传奇做到这一点.
我的数据/结果包含地理编码位置(纬度/经度)和我希望使用R闪亮进行交互的日期/时间戳.我创建了R闪亮的应用程序,其中包含几个传单映射(传单R包),还包含时间序列图(dygraphs R包).我知道如何同步不同的dygraphs(https://rstudio.github.io/dygraphs/gallery-synchronization.html),但不知道如何将它同步到传单地图.我的问题是如何最好地将所有图表链接在一起,所以当我在传单地图上选择一个区域或在dygraph时间序列图上选择一段时间时,其他图表都会更新以仅显示过滤后的数据?
有人认为我有一个传单插件,但不知道如何使用R /闪亮来做到这一点?例如,我看到一些传单插件提供了动画包含日期/时间信息的地图的功能(http://apps.socib.es/Leaflet.TimeDimension/examples/).另一个问题是有没有任何文档/示例显示如何使用R闪亮的传单插件?
我认为可以提取从时间序列图(dygraph)中选择的时间/日期,但不确定是否/如何提取R闪亮的传单地图上显示的区域.我的最后一个问题是,我是否可以提取显示传单地图的区域,因此我可以更新时间序列图.
提前感谢任何有关如何使用R闪亮将传单映射与时间序列图(即dygraph)耦合的建议!
我试图绘制一个dygraph plot(条形图得益于使用dygraphs包在R中创建条形图的答案),其中有两条水平线,但不是整个OX轴.
我现在拥有的是:
而我想拥有的是:
唯一认为我知道如何获得(但这不是我想要的):
有人知道有可能实现我的目标吗?我会很乐意为你提供帮助!
我的代码重现了这个情节:
library("dplyr")
library("data.table")
library("dygraphs")
library("htmlwidgets")
# data:
graph_data <- structure(c(0, 584.5, 528.5, 601.3, 336.8, 0), .Dim = c(6L, 1L
), index = structure(c(1448928000, 1451606400, 1454284800, 1456790400,
1459468800, 1462060800),
tzone = "UTC", tclass = c("POSIXct", "POSIXt")),
.indexCLASS = c("POSIXct", "POSIXt"), tclass = c("POSIXct", "POSIXt"),
.indexTZ = "UTC", tzone = "UTC",
.Dimnames = list(NULL, "ile"), class = c("xts", "zoo"))
# > graph_data
# ile
# 2015-12-01 0.0
# …Run Code Online (Sandbox Code Playgroud) 我正在使用R的伟大dygraphs包(https://rstudio.github.io/dygraphs/)
我现在的代码是:
james<-mtcars[c("mpg","drat")]
james$date<-seq(from=as.Date("2013-05-16"),to=as.Date("2013-06-16"),by="days")
x <- xts::xts(james$mpg, order.by = james$date)
p <- dygraphs::dygraph(x, main = "mpg over time", xlab = "Date", ylab = "mpg") %>%
dygraphs::dyRangeSelector() %>%
dyOptions(drawPoints = TRUE, pointSize = 2)
p
Run Code Online (Sandbox Code Playgroud)
我想缩放p中的点大小james$drat,而不是将其固定为2.
我怎样才能做到这一点?
如果范围选择器设置为true,则使用鼠标手动缩放关闭.我想两者都有.是否可以使用鼠标和dygraphs库同时使用范围选择器和手动缩放?这是如何运作的?
此致,沃尔夫冈