데이터 프레임의 ifelse 열과 일치하는 날짜 시간 열 값

Question

도움이 필요합니다. 난 date_time 열 값을 txt_col 열의 일치하는 값과 NA 같은 일치하지 않는 값을 기반으로 새 열로 복사하려고합니다.

df$new_col <- ifelse(df$txt_col == "apple", df$date_time, NA) 

그러나, 내가 대신 날짜 - 시간의, 새 열에 숫자를 얻을 :

new_col 
1477962000 
1451755980 
1451755980 
1451755980 

str(df)보고, 열 date_time이 POSIXct 여기 내 코드입니다. as.numeric과 POSIXct을 변환하려고 시도했지만 작동하지 않았습니다. 내가 성취하려는 일을하는보다 우아한 방법이 있다면, 당신이 공유한다면 크게 감사 할 것입니다. 고맙습니다.

Answer 1

dplyr보다 엄격한 함수 if_else은 true 및 false 구성 요소의 클래스를 모두 확인합니다. NA 값에 대한 클래스를 명시 적으로 제공하면이 유형이 더 안전합니다.

library(dplyr) 
df <- data.frame(txt_col = c("apple", "apple", "orange"), 
       date_time = as.POSIXct(c("2017-01-01", "2017-01-02", "2017-01-03"))) 

# use dplyr::if_else instead, and provide explicit class 
df$new_col <- if_else(df$txt_col == "apple", df$date_time, as.POSIXct(NA)) 

df 
# txt_col date_time new_col 
# 1 apple 2017-01-01 2017-01-01 
# 2 apple 2017-01-02 2017-01-02 
# 3 orange 2017-01-03  <NA>