繪圖：無法獲取日誌軸工作（使用Shiny + GGvis + Dplyr）

-1

我有一些針對易變閃亮應用程序編寫的代碼，它具有可變軸。我只是想讓他們展示，除了一件事。我需要兩個座標軸都是對數座標而不是直線座標。我發現解決方案爲trans = "log"，但導致我的圖表顯示爲空。任何解決方案繪圖：無法獲取日誌軸工作（使用Shiny + GGvis + Dplyr）

代碼中，我有陰謀（如果我改變log到linear，其作品）：

vis <- reactive({ 
    # Labels for axes 
    xvar_name <- names(axis_vars)[axis_vars == input$xvar] 
    yvar_name <- names(axis_vars)[axis_vars == input$yvar] 

    xvar <- prop("x", as.symbol(input$xvar)) 
    yvar <- prop("y", as.symbol(input$yvar)) 

    gegevens %>% 
    ggvis(x = xvar, y = yvar) %>% 
    layer_points(size := 50, size.hover := 200, 
       fillOpacity := 0.2, fillOpacity.hover := 0.5, 
       stroke = ~bron, key := ~Project.ID) %>% 
    add_tooltip(gegevens_tooltip, "hover") %>% 
    add_axis("x", title = xvar_name) %>% 
    add_axis("y", title = yvar_name) %>% 
    add_legend("stroke", title = "Gegevens van:", values = c("A", "B")) %>% 
    scale_numeric("x", trans = "log") %>% 
    scale_numeric("y", trans = "log") %>% 
    scale_nominal("stroke", domain = c("A", "B"), 
        range = c("blue", "#aaa")) %>% 
    set_options(width = 600, height = 600) 
}) 

vis %>% bind_shiny("plot1")

來源

2016-04-15 Rob Dohmen

請問您的數據具有零個或負值？ – Axeman

它顯示的價值，在圖的左下角，我可以看到1點。它也告訴我所選擇的行數，那些標準選擇在1400左右，所以我應該看到1400個點。隨着線性我看到所有的點。不知道我做錯了什麼，但我打賭它提出的數據，而不是有數據顯示 –

我在問關於零和負值，因爲這些是未定義的日誌。因此，任何零或負的數據都不會顯示在您的圖表中（可能帶有消息或警告）。沒有可重現的例子就很難提供幫助。 'ggvis'是否在'shiny'之外工作？ – Axeman

通過添加擴展到其成爲一個對數刻度的代碼。我也承認format =「d」，grid = FALSE add_axis，所以看起來好一點。仍然不滿意軸上的值，但這是另一個問題。

代碼我換成：

add_axis("x", title = xvar_name, format='d', grid = FALSE) %>% 

scale_numeric("x", trans = "log", expand=0) %>%

來源

2016-04-15 13:46:39

繪圖：無法獲取日誌軸工作（使用Shiny + GGvis + Dplyr）

回答

相關問題