함수의 출력을 데이터 프레임의 새로운 열에 저장하십시오.

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)})