Question

我在R中运行一个循环，每次运行都会给我一个包含两个变量的数据帧 - Timestamp和Rainfall（如下所示）。

    Timestamp,Rainfall_Region 1  
    01/01/2007 00:15,0.01
    01/01/2007 00:30,0.04
    --------------------------
    --------------------------

循环运行500次，我想以下面的格式创建一个文本文件 -

    Timestamp,Rainfall_Region 1, Rainfall_Region 2,...... 
    01/01/2007 00:15,0.01,0.03,.........
    01/01/2007 00:30,0.04,0.06,.........
    --------------------------
    --------------------------

记录总数超过一百万，我不能使用cbind在R中创建一个大数据帧然后导出它。有没有办法在R或其他方面做到这一点？时间戳是所有数据帧中的公共变量。任何帮助将不胜感激。谢谢。

Answer 1

这是一个玩具示例：

   library(shiny)


ui <- fluidPage(
  mainPanel(
         textInput("set_start","set startparameters",value = "a=1"),
         verbatimTextOutput("nls_summary")
      )
   )


server <- function(input, output) {

df<-data.frame(y=c(1,3,8,17,26),x=c(1,2,3,4,5))
output$nls_summary<-renderPrint({
              nls(formula="y~a*x^2",
                  data=df,
                  start=input$set_start)
})

}

shinyApp(ui = ui, server = server)

使用R逐列附加数据

1 个答案: