Question

我在下面有这个代码。我想将y [1] +（y [2] / 60）的输出推入x中的新列。这可能很简单，我没有看到它。谢谢您的帮助。

read.table(file=file.choose(),header=T)
x$AverageTime<- as.character(x$AverageTime)
sapply(strsplit(x$Average,":"),
       function(y) {
         y <- as.numeric(y)
     y[1] + (y[2]/60)
       }
)

Answer 1

你应该能够放入＆＃34; x $ newcolumn＆lt; - ＆＃34;在你获得新列的sapply命令之前。

read.table(file=file.choose(),header=T)
x$AverageTime<- as.character(x$AverageTime)
x$newcolumn <- sapply(strsplit(x$Average,":"),
                     function(y) {y <- as.numeric(y)
                                  y[1] + (y[2]/60)})

将函数输出存储到dataframe的新列中

1 个答案: