- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在尝试使用 highcharter
R 包“Motion Plugin”,用于制作热图的动态图表。 IE。我希望热图随时间变化,使用带有播放/暂停按钮的 slider (请参阅下面的链接)。
我可以为特定年份创建一个简单的热图,例如:
df <- tibble(year = c(rep(2016, 6), rep(2017, 6)),
xVar = rep(c("a", "a", "b", "b", "c", "c"), 2),
yVar = rep(c("d", "e"), 6),
heatVar = rnorm(12))
df %>%
filter(year == 2016) %>%
hchart(type = "heatmap", hcaes(x = xVar, y = yVar, value = heatVar)) %>%
hc_legend(layout = "vertical", verticalAlign = "top", align = "right")
hc_motion(enabled = TRUE, ...)
功能。
xVar
,
yVar
应该定义系列和
hc_motion
函数用于使其工作?
shiny
设法做到了这一点,但我仍然希望避免这种解决方案:
server <- shinyServer(function(input, output) {
output$heatmap <- renderHighchart({
df <- tibble(year = c(rep(2016, 6), rep(2017, 6)),
xVar = rep(c("a", "a", "b", "b", "c", "c"), 2),
yVar = rep(c("d", "e"), 6),
heatVar = rnorm(12))
# filter data based on selected year
df.select <- dplyr::filter(df, year == input$year)
# chart
hchart(df.select, type = "heatmap", hcaes(x = xVar, y = yVar, value = heatVar))
})
})
ui <- shinyUI(fluidPage(
# Application title
titlePanel("Highcharts Heatmap Motion Chart"),
# Sidebar with a slider input for the selected year
sidebarLayout(
sidebarPanel(
sliderInput("year",
"Year:",
min = 2016,
max = 2017,
step = 1,
value = 2016,
animate = TRUE,
sep = "")
),
# Show a bubble plot for the selected year
mainPanel(
highchartOutput("heatmap")
)
)
))
shinyApp(ui = ui, server = server)
最佳答案
这种方法肯定不是最干净的,因为它需要创建初始位置(如标准图表),然后为每个点创建 te 序列。
http://rpubs.com/jbkunst/questions-42945062
所以添加 Action 插件的结构是:
模拟数据
library(highcharter)
library(dplyr)
library(purrr)
years <- 10
nx <- 5
ny <- 6
df <- data_frame(year = rep(c(2016 + 1:years - 1), each = nx * ny), xVar = rep(1:nx,
times = years * ny), yVar = rep(1:ny, times = years * nx))
df <- df %>% group_by(xVar, yVar) %>% mutate(heatVar = cumsum(rnorm(length(year))))
df_start <- df %>% arrange(year) %>% distinct(xVar, yVar, .keep_all = TRUE)
df_start
#> Source: local data frame [30 x 4]
#> Groups: xVar, yVar [30]
#>
#> year xVar yVar heatVar
#> <dbl> <int> <int> <dbl>
#> 1 2016 1 1 0.5894443
#> 2 2016 2 2 -1.0991727
#> 3 2016 3 3 1.1209292
#> 4 2016 4 4 0.4936719
#> 5 2016 5 5 -0.4614157
#> # ... with 25 more rows
df_seqc <- df %>% group_by(xVar, yVar) %>% do(sequence = list_parse(select(.,
value = heatVar)))
df_seqc
#> Source: local data frame [30 x 3]
#> Groups: <by row>
#>
#> # A tibble: 30 × 3
#> xVar yVar sequence
#> * <int> <int> <list>
#> 1 1 1 <list [10]>
#> 2 1 2 <list [10]>
#> 3 1 3 <list [10]>
#> 4 1 4 <list [10]>
#> 5 1 5 <list [10]>
#> # ... with 25 more rows
data <- left_join(df_start, df_seqc)
#> Joining, by = c("xVar", "yVar")
data
#> Source: local data frame [30 x 5]
#> Groups: xVar, yVar [?]
#>
#> year xVar yVar heatVar sequence
#> <dbl> <int> <int> <dbl> <list>
#> 1 2016 1 1 0.5894443 <list [10]>
#> 2 2016 2 2 -1.0991727 <list [10]>
#> 3 2016 3 3 1.1209292 <list [10]>
#> 4 2016 4 4 0.4936719 <list [10]>
#> 5 2016 5 5 -0.4614157 <list [10]>
#> # ... with 25 more rows
limits <- (unlist(data$sequence)) %>% {
c(min(.), max(.))
}
limits
#> [1] -5.332709 6.270384
hc1 <- hchart(data, type = "heatmap", hcaes(x = xVar, y = yVar, value = heatVar))
hc2 <- hchart(data, type = "heatmap", hcaes(x = xVar, y = yVar, value = heatVar)) %>%
hc_motion(enabled = TRUE, series = 0, startIndex = 0, labels = unique(df$year)) %>%
hc_legend(layout = "vertical", verticalAlign = "top", align = "right") %>%
hc_colorAxis(min = limits[1], max = limits[2])
关于R highcharter : putting heatmaps into motion,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/42945062/
我正在处理批处理作业,以通过 HTableInterface 将一批 Put 对象处理到 HBase 中。有两个 API 方法,HTableInterface.put(List) 和 HTableIn
我想转置curl命令(将本地文件上传到机架空间) curl -X PUT -T screenies/hello.jpg -D - \ -H "X-Auth-Token: fc81aaa6-98a1-9
我认为执行 puts #{a} 会产生与 puts a 相同的输出,但发现情况并非如此。考虑: irb(main):001:0> a = [1,2] => [1, 2] irb(main):002:0
我尝试在我的一个移动应用程序中使用这个cordova后台服务插件(我正在使用名为Appery io的基于网络的移动应用程序开发平台)。我已经能够让相当多的 cordova/phonegap 插件正常工
传奇有多个 put。 export function* changeItemsSaga(action) { const prerequisite1 = yield select(prerequ
我正在从工作正常的 jquery $.ajax 切换到使用 AngularJS $http.put 来访问 Restful API。 我可以进行 API 调用,但 PUT 数据未发送 - 因此我的 A
我的 express 里有这个 router.put('/admin/profile?:id/actions', (req, res) => { console.log(req.body.action
我正在浏览 Ruby tutorial , 并了解到代码 puts 'start' puts puts 'end' 会输出三行,但是下面的代码 puts 'start' puts [] puts 'e
我的目标是使用 TreeMap 使 Box 键对象按 Box.volume 属性排序,同时能够将键按 Box.code 区分。在 TreeMap 中不可以吗? 根据下面的测试 1,HashMap pu
我一直在尝试使用HBase客户端库将记录列表插入HBase。 它适用于Table或HTable中的单个Put(不建议使用),但不能识别List(Puts) 错误说:预期:util.List,但是Lis
我正在使用 Google-guava-cache。将其定义为: Cache myCache= CacheBuilder.newBuilder().maximumSize(100).build();
我只是想知道threadContext.put和MDC.put之间的区别。因为,我相信两者都在做相同的操作。 最佳答案 Log4j 2 continues with the idea of the M
我的 GAE 应用程序上有一些模型,并且我已覆盖 put()关于其中一些。当我调用db.put()时有了这些实体的列表,是否可以保证覆盖 put()每个实体都会被调用? 我现在看到的是实体只是被保存而
module Lab def self.foo puts 'foo from lab' end end module M def foo puts 'foo from mo
我正在查看示例 abo3.c来自 Insecure Programming我并没有在下面的例子中摸索类型转换。有人可以启发我吗? int main(int argv,char **argc) {
我正在 symfony2.4 和 angularjs 中构建应用程序。在 Angular 中我创建了资源: app.factory('Tasks', ['$resource', function($r
到处都说[看了很多帖子] PUT 是幂等的,意味着具有相同输入的多个请求将产生与第一个请求相同的结果。 但是,如果我们使用 POST 方法发出具有相同输入的相同请求,那么它又将表现为 PUT。 那么,
这里是WebApiConfig.cs中的路由配置: config.Routes.MapHttpRoute( name: "DefaultApiPut", routeTemplate:
这两种方法有什么区别: getInputMap(JComponent.WHEN_FOCUSED).put(KeyStroke.getKeyStroke( "pressed F10"),
由于匿名 block 和散列 block 看起来大致相同。我正在玩它。我做了一些严肃的观察,如下所示: {}.class #=> Hash 好的,这很酷。空 block 被视为Hash。 print{
我是一名优秀的程序员,十分优秀!