1

光沢のある静的プロットを ggvis プロットに置き換える方法を学ぼうとしています。次ui.Rのserver.Rファイルを使用すると、プロット出力が base-R または ggplot の場合に、完全に正常に動作する光沢のあるアプリを取得できます。ggvis を使用しようとすると、次のエラーが表示されます。

Error in handlers$add(handler, key, tail) : Key / already in use

ファイルの場所を別のディレクトリに変更したり、グローバル環境をクリアしたりしましたが、今のところ何も機能していないようです。

最小限の再現可能な例を再現しようとしました。以下は、私のマシンでエラーを再現しています。ui.R および server.R と同じフォルダーに保存されている csv ファイルからデータを入力しています。csv ファイルの再現に使用できるデータの dput() を追加しました。

次に例を示します。

ui.R

library(shiny)
library(dplyr)
library(ggvis)


# Define UI
shinyUI(pageWithSidebar(


  # Application title
  headerPanel("Cricket"),

  sidebarPanel(

    selectInput("hteam", 
                label = "Home Team",
                choices = c("All Teams", "Australia", "England"), selected = "All teams"),

    br()

  ),


  mainPanel(
    plotOutput("CrickPlot")
  )

))

server.R

library(shiny)
library(dplyr)
library(ggvis)




shinyServer(function(input, output) {


  #### Input raw data
  df <- read.csv("mydf.csv", stringsAsFactors=F, header=T)

  df1 <- reactive({

    hometeam <-  input$hteam

  if(input$hteam != "All Teams"){  df <- df %>% filter(team==hometeam) }

  df %>% 
    group_by(player) %>% 
    summarize(totalruns=sum(runs,na.rm=T), totalinns=n() )

  })


####

output$CrickPlot <- renderPlot({


    tmp <- df1()

    tmp$id <- 1:nrow(tmp)

       all_values <- function(x) {
         if(is.null(x)) return(NULL)
         row <- tmp[tmp$id == x$id, ]
         paste("Name: ", tmp$player[x$id],
               "<br>Country: ",
               tmp$team[x$id],
               "<br>Total runs: ",
               tmp$totalruns[x$id])
       }  


    tmp %>% 
               ggvis(x = ~totalinns, 
                     y = ~totalruns, 
                     size := input_slider(10, 100),
                     size.hover := 200,
                     opacity := input_slider(0, 1),
                     key := ~id) %>%
         layer_points() %>%
         add_tooltip(all_values, "hover")



#  x <- df1()
#  plot(x$totalruns, x$totalinns)

})

}
)

ここでコード化されている ggvis は、実際に使用しているものよりも少し単純です。ただし、これでもエラーが再現されます。df を要約して、光沢のない ggvis チャートを作成しようとすると、このコードは完全に機能します。また、説明のために、すべての ggvis 要素が削除された場合、ハッシュマークの後の最後の 2 行は base-R で散布図を生成します。したがって、光沢のあるアプリ内の ggvis と関係があると思います。

この例の mydf データは次のとおりです。

dput(mydf)

structure(list(player = c("CB Fry", "CB Fry", "G Boycott", "G Boycott", 
                          "G Boycott", "G Boycott", "MJ Slater", "MJ Slater", "MJ Slater", 
                          "MJ Slater", "MJ Slater", "MJ Slater", "MJ Slater", "MJ Slater", 
                          "SK Warne", "SK Warne", "SK Warne", "SK Warne", "SK Warne", "SK Warne"
), team = c("England", "England", "England", "England", "England", 
            "England", "Australia", "Australia", "Australia", "Australia", 
            "Australia", "Australia", "Australia", "Australia", "Australia", 
            "Australia", "Australia", "Australia", "Australia", "Australia"
), runs = c(1L, 50L, 68L, 31L, 30L, 23L, 26L, 16L, 123L, 1L, 
            45L, 43L, 28L, 10L, 15L, 2L, 0L, 14L, 2L, NA)), row.names = c(NA, 
                                                                          -20L), .Names = c("player", "team", "runs"), class = "data.frame")

前もって感謝します。エラーに関連するすべての可能な詳細を表示しながら、これを可能な限り最小限にしようとしました。

4

1 に答える 1

9

server.R で

  output$ggvisplot_ui <- renderUI({
    ggvisOutput("ggvisplot")
  })

  dl <- mtcars
  dl %>%
    ggvis(~mpg, ~wt) %>% 
    layer_points() %>% 
    bind_shiny("ggvisplot")

ui.R で

  mainPanel(
    htmlOutput("ggvisplot_ui")
  )
于 2014-12-12T12:38:22.270 に答える