小编For*_*ver的帖子

我的问题是：如何在 Shiny 上正确使用 ggplotly？

该代码在末尾没有“ggplotly()”行的情况下工作正常。我不知道Shiny为什么不制作图形。

library(shiny)
library(leaflet)
library(ggplot2)


ui <- fluidPage(
  leafletOutput("mymap"),
  p(),
  vars <- c(
    "Las Cruzadas" = "cruzadas"
  ),

  absolutePanel(id = "controls", class = "panel panel-default", fixed = TRUE,
    draggable = TRUE, top = "auto", left = "auto", right = "auto", bottom = 60,
    width = 900, height = "auto",

  h2("Serie nivel napa"),

  selectInput("color", "Estacion", vars),

  plotOutput("variacion", height = 100)


  )
)
server <- function(input, output, session) {

  output$mymap <- renderLeaflet({
    leaflet() %>%
      addTiles() %>%
      addCircleMarkers(lng=-71.294444, lat=-32.933333, color="blue" …

如何将多个dataframe的所有列合并为一列？，以一种有效的方式...我的意思是不使用列名来执行此操作，而是使用R dplyr或tidyrR，因为我的列太多（10.000+）

例如，转换此数据帧

  > Multiple_dataframe
      a    b    c

      1    4    7
      2    5    8
      3    6    9

至

  > Uni_dataframe
     d

     1
     2
     3
     4
     5
     6
     7
     8
     9

我环顾了Stack Overflow，但没有成功。

有没有办法使用 gstat 包的 IDW 插值在 R 中的 SpatialPointsDataFrame 对象内循环变量？

我的意思是这样的

for (day in list_days) {
  P.idw <- gstat::idw(day~1, P, newdata=grd, idp=2.0)
  r       <- raster(P.idw)
  plot(r)
}

编辑：因为该结构给了我错误：

Error in predict.gstat(g, newdata = newdata, block = block, nsim = nsim,  : 
  too many spatial dimensions: 58
In addition: Warning message:
In predict.gstat(g, newdata = newdata, block = block, nsim = nsim,  :
NAs introduced by coercion

但如果我直接写变量的名称，它就可以正常工作：

P.idw <- gstat::idw(X2018.01.14~1, P, newdata=grd, idp=2.0)

我的闪亮应用程序中无法显示“全屏”地图，因为当我使用“100%”参数时，地图消失了......

ui <- fluidPage(
  leafletOutput("mymap", height = "100%", width = "100%"),

但是当我这样做时

ui <- fluidPage(
  leafletOutput("mymap"),

没有问题，但是一半是地图，一半是空白。我需要它是全屏的

我试过

leafletOutput("mymap", height = 800, width = 1300)

但这不是我需要的，因为它没有缩放到窗口，这就是为什么我更喜欢“100%”参数。