Question

如何在不同的数据框架中绘制多个系列，在一个ggvis图上使用不同的行数？

    shinyServer(function(input, output, session) {
    vis1 <- reactive({ 
      df2 <-data.frame(csv1)
      df3 <- data.frame(csv2)
      long2 <- array()
      matrix2<-data.frame(Col1,Col2,Col3,Col4)
      matrix2$long2 = as.character(paste0("Col3: ",Col3,", Col4: ",Col4))
      matrix2 # What does this line do?
    })
vis1 %>% 
  ggvis(x = ~Col1, y = ~Col2,fill = ~Col4, key:= ~long2) %>%
  layer_points() %>%
  add_axis("x", title = "Col1") %>% 
  scale_numeric("x", domain = c(0, 130), nice = FALSE, clamp = TRUE)%>%
  add_axis("y", title = "Col2") %>%  
  scale_numeric("y", domain = c(0, 8000), nice = FALSE, clamp = TRUE)%>% 
  add_tooltip(function(matrix2){
  paste0("Col2: ", matrix2$Col2, "<br>", "Col1: ", matrix2$Col1, "<br>", " ", as.character(matrix2$long2))
  }, "hover") %>%
   layer_paths(data = df2, x = ~Col1,y = ~Col2,fill:="green") %>%

  bind_shiny("plot_col2")#,"plot_ui_col2")

  output$matrix2_table <- renderTable({
  vis1()[,c("Col1","Col2","Col3","Col4")]
})

这是大多数server.R代码，ui.R代码可以很好地处理这些轴上绘制的一个系列。但是尝试将来自这两个轴上的两个数据帧的数据返回

“add_data（vis，data，data_name）出错：找不到对象'df2'”

甚至没有达到df3。

如何让它识别df2，然后使用该数据绘制第二个系列？

我得到的是从同一数据框中绘制两个系列，如下所示：

df %>% ggvis(~x,~y)  layer_points() %>%
df %>% layer_points(~x,~y1)

有，但是如何使用不同数量的点和不同的数据框来完成？谢谢。

Answer 1

我将所有内容放在同一个数据框中，在相同的列中，只添加了更多行，还添加了一个颜色列，因此它们将以不同的颜色绘制。首先要做的是在顶部的未命名函数部分中创建一个更大的数据框（仅执行一次）。

R

1 个答案: