1

我正在尝试使用lungDeaths时间序列绘制一个dyGraph，但我希望“mdeaths”和“fdeaths”位于辅助轴上，如果其中至少一个与“ldeaths”一起被选中。

这是一个工作示例：

全局.R

library(dygraphs)
library(shiny)
library(datasets)
library(stringr)

lungDeaths <- cbind(mdeaths, fdeaths)

用户界面

shinyUI(fluidPage(

titlePanel("Predicted Deaths from Lung Disease (UK)"),

sidebarLayout(
    sidebarPanel(

        id="sidebar", width = 3,
        div(
            checkboxGroupInput(
                inputId = "selection", label = "Variables:",
                choiceNames = list("ldeaths",
                                   strong("mdeaths"),
                                   strong("fdeaths")
                                   ),
                choiceValues = c("ldeaths",
                                 "mdeaths",
                                 "fdeaths"), selected = "ldeaths"),
            uiOutput("rendered"),
            style = "font-size:75%"
        )

    ),
    mainPanel(
        dygraphOutput("dygraph")
    )
)
))

服务器.R

shinyServer(function(input, output) {

lungDeaths <- cbind(mdeaths, fdeaths, ldeaths)

rData <- reactive({
    rData <- ts(lungDeaths[,input$selection])
})

output$dygraph <- renderDygraph({

    if(length(input$selection) > 1 & length(str_subset(input$selection, 'ldeaths$'))>0){

        if(length(str_subset(input$selection, 'fdeaths$'))>0 & length(str_subset(input$selection, 'mdeaths$'))>0){
            dygraph(rData(), main = "Deaths from Lung Disease (UK)") %>% 
                dySeries("mdeaths", axis = 'y2') %>% 
                dySeries("fdeaths", axis = 'y2')
        }

        else if(length(str_subset(input$selection, 'mdeaths$'))>0){
            dygraph(rData(), main = "Deaths from Lung Disease (UK)") %>% 
            dySeries("mdeaths", axis = 'y2') 
        }
        else if(length(str_subset(input$selection, 'fdeaths$'))>0){
            dygraph(rData(), main = "Deaths from Lung Disease (UK)") %>% 
            dySeries("fdeaths", axis = 'y2')

        }
    }
    else
        dygraph(rData(), main = "Deaths from Lung Disease (UK)")
})
})

这段代码做了我想做的事，但我想避免使用这么多的 if 和 else，因为我实际使用的项目有 6 个项目在选择时应该转到 y2。有没有办法在不必指定每种可能性的情况下做到这一点？

我已经研究过如何根据输入添加 dySeries以及如何在使用管道时进行条件评估，但到目前为止我发现的答案对我不起作用。我通常会收到一条错误消息：

$ 运算符对原子向量无效

4

2 回答 2

1

您应该执行以下操作：

dg = dygraphs(rData, main="...") %>%
  dyAxis("y", label="...") %>%
  dyAxis("y2", label="...")

for(col in leftCols)
  dg = dg %>% dySeries(col, axis="y")
for(col in rightCols)
  dg = dg %>% dySeries(col, axis="y2")
于 2020-02-18T09:49:27.827 回答
0

我做到了，所以我发布答案以帮助任何一直在努力解决同样问题的人......

在尝试进行条件管道评估时，我没有正确使用 if else ，这就是为什么我一直收到问题中提到的错误。

事实证明，我必须使用点 (.) 来准确指定管道之前的对象应该插入到以下函数中的位置，可能是因为该函数在条件评估中。下面的代码完全符合我的要求：

 output$dygraph <- renderDygraph({

        dygraph(rData(), main = "Deaths from Lung Disease (UK)") %>% 
            {
                if(length(str_subset(input$selection, 'mdeaths$')) > 0 )
                    dySeries(.,"mdeaths", axis = 'y2')
                else
                    .
            } %>% 
            {
                if(length(str_subset(input$selection, 'fdeaths$')) > 0 )
                    dySeries(.,"fdeaths", axis = 'y2')
                else
                    .
            }

})

dygraph 现在在辅助轴上显示dyseries，只要它们被选为输入

于 2019-12-11T14:31:10.133 回答