Как извлечь часть символьных данных в новый столбец

Question

Я получил этот ДФ

AGE_TXT 
3 weeks 
1 year 
3 years 

я использую

strsplit(df$AGE_TXT, " ") 

Чтобы разделить данные, но у меня есть проблема, как сделать новый столбец с данными

Я tryied использовать grep("year", df$AGE_TXT), но только дайте мне True/False

я wolud хотел сделать новый столбец с данными

0 
1 
3 

0 в течение 3 недель, и 1 на 1 год, 3 на 3 года

Answer 1

Вы можете использовать ifelse

df$new <- ifelse(grepl('year', df$AGE_TXT), gsub('\\D', '', df$AGE_TXT), 0) 
df 
# AGE_TXT new 
#1 3 weeks 0 
#2 1 year 1 
#3 3 years 3