將函數的輸出存儲到數據框的新列中

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

你應該能夠在「X $ newcolumn < - 」你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)})