Questions tagged «r»

我如何使用Rstrptime或任何其他函数解析R中的毫秒时间戳？ time[1] # [1] "2010-01-15 13:55:23.975" strptime(time[1], format="%Y-%m-%d %H:%M:%S.%f") # [1] NA strptime(time[1], format="%Y-%m-%d %H:%M:%S") # [1] "2010-01-15 13:55:23"`

85 r  datetime  time-series  strptime 

我试图弄清楚如何使用downloadButton保存具有光泽的图。包中的示例演示了downloadButton / downloadHandler保存.csv的方法。我将基于此举一个可重复的示例。 对于 ui.R shinyUI(pageWithSidebar( headerPanel('Downloading Data'), sidebarPanel( selectInput("dataset", "Choose a dataset:", choices = c("rock", "pressure", "cars")), downloadButton('downloadData', 'Download Data'), downloadButton('downloadPlot', 'Download Plot') ), mainPanel( plotOutput('plot') ) )) 对于 server.R library(ggplot2) shinyServer(function(input, output) { datasetInput <- reactive({ switch(input$dataset, "rock" = rock, "pressure" = pressure, "cars" = cars) }) plotInput …

85 r  ggplot2  shiny 

我想要两个不同的事件来触发我的应用程序中各种绘图/输出所使用的数据的更新。一个是被单击的按钮（input$spec_button），另一个是被单击的点上的点（mainplot.click$click）。 基本上，我想同时列出两者，但是我不确定如何编写代码。这是我现在拥有的： 在server.R中： data <- eventReactive({mainplot.click$click | input$spec_button}, { if(input$spec_button){ # get data relevant to the button } else { # get data relevant to the point clicked } }) 但是if-else子句不起作用 Error in mainplot.click$click | input$spec_button : operations are possible only for numeric, logical or complex types ->我可以为mainplot.click$click | input$spec_button子句使用某种动作组合功能吗？

85 r  shiny 

一种简单的方法来找出数据框中的每一列是什么类？

85 r 

从这样的数据框中 test <- data.frame('id'= rep(1:5,2), 'string'= LETTERS[1:10]) test <- test[order(test$id), ] rownames(test) <- 1:10 > test id string 1 1 A 2 1 F 3 2 B 4 2 G 5 3 C 6 3 H 7 4 D 8 4 I 9 5 E 10 5 J 我想用每个ID /字符串对的第一行创建一个新的。如果sqldf接受其中的R代码，则查询可能如下所示： …

85 r  dataframe  sqldf 

我很惊讶地发现没有简单的方法可以将多个data.frame导出到Excel文件的多个工作表中？我试过xlsx包，看来它只能写一张纸（覆盖旧纸）；我也尝试了WriteXLS软件包，但是它总是给我错误... 我的代码结构是这样的：根据设计，对于每次迭代，输出数据帧（tempTable）和sheetName（sn）都会更新并导出到一个选项卡中。 for (i in 2 : ncol(code)){ ... tempTable <- ... sn <- ... WriteXLS("tempTable", ExcelFileName = "C:/R_code/../file.xlsx", SheetNames = sn); } 我可以导出到多个cvs文件，但是必须有一种简单的方法可以在Excel中执行此操作，对吗？

85 r  excel  xlsx 

我有一个数据集，其中有11列，每列超过1000行。这些列标记为V1，V2，V11等。我使用“ c”命令将其替换为对我更有用的名称。我没有意识到第1行也为每列包含标签，而我的实际数据从第2行开始。 有没有办法删除第1行并递减？

85 r  dataset 

我有一个程序，可以进行一些数据分析，并且有数百行。 在程序的早期，我想进行一些质量控制，如果没有足够的数据，我希望程序终止并返回到R控制台。否则，我希望其余代码执行。 我已经尝试过break，browser和，quit并且它们都没有停止其余程序quit的执行（并且停止执行以及完全退出R，这不是我想发生的事情）。我的最后一招是创建如下if-else语句： if(n < 500){} else{*insert rest of program here*} 但这似乎是不好的编码习惯。我想念什么吗？

85 r  exit  break 

我有一个data.table，我想用它对某些列执行相同的操作。这些列的名称在字符向量中给出。在此特定示例中，我想将所有这些列乘以-1。 一些玩具数据和一个指定相关列的向量： library(data.table) dt <- data.table(a = 1:3, b = 1:3, d = 1:3) cols <- c("a", "b") 现在，我以这种方式进行操作，遍历字符向量： for (col in 1:length(cols)) { dt[ , eval(parse(text = paste0(cols[col], ":=-1*", cols[col])))] } 有没有一种方法可以直接执行此操作而无需for循环？

85 r  data.table 

我正在尝试一个基于dplyr的工作流（而不是主要使用data.table，我曾经使用过），但是遇到了一个问题，我找不到与之等效的dplyr解决方案。我通常遇到需要根据一个条件有条件地更新/替换几列的情况。这是一些示例代码，以及我的data.table解决方案： library(data.table) # Create some sample data set.seed(1) dt <- data.table(site = sample(1:6, 50, replace=T), space = sample(1:4, 50, replace=T), measure = sample(c('cfl', 'led', 'linear', 'exit'), 50, replace=T), qty = round(runif(50) * 30), qty.exit = 0, delta.watts = sample(10.5:100.5, 50, replace=T), cf = runif(50)) # Replace the values of several …

85 r  data.table  dplyr 

两个R问题： 变量的类型（由返回typeof）和类（由返回）之间有什么区别class？区别是否类似于C ++语言？ 变量的类型和类别是什么？

84 class  r  types 

有人可以用一个简单的例子来说明这一点吗？ 此外，在哪里使用parent.frame()代替会有用，parent.env()反之亦然。

84 r  environment  function-call  stack-frame 

该文件说 vapply类似于sapply，但是具有预先指定的返回值类型，因此可以更安全地使用。 您能否解释一下为什么它通常更安全，也许提供示例？ PS：我知道答案，我已经倾向于避免了sapply。我只是希望在SO上有一个不错的答案，这样我可以指出我的同事。请没有“阅读手册”的答案。

84 r  apply  r-faq 

这个问题已经在这里有了答案： 编写自己的函数时如何使用R的省略号功能？ （5个答案） 4个月前关闭。 在哪里可以找到有关...in函数用法的文档？例子将是有用的。

84 r  ellipsis 

我只是在寻找B1（newx）线性模型系数的值，而不是名称。我只想要0.5的值。我不需要名称“ newx”。 newx <- c(0.5,1.5.2.5) newy <- c(2,3,4) out <- lm(newy ~ newx) out 好像： Call: lm(formula = newy ~ newx) Coefficients: (Intercept) newx 1.5 1.0 我到了这里 但是现在我被困住了。 out$coefficients["newx"] newx 1.0

84 r  vector  named  lm