주석이

Question

이 같은 모든 행에서 문자열과 dataframe이 최종 출력 (이전 그룹을 기반으로 한 두 번째 열) :

col_string, col_annotated 
It is a rainy day, day 
Daily exercise, day 
My name is, name 
Hello, NA 

만들 수 있습니까?

Answer 1

d <- data.frame(col_string = c('It is a rainy day', 
           'Daily exercise', 
           'My name is', 
           'Hello')) 


d$col_annotated <- ifelse(grepl('day', d$col_string, T) | grepl('daily', d$col_string, T), 'day', 
          ifelse(grepl('name', d$col_string, T), 'name', NA)) 

d 
##   col_string col_annotated 
## 1 It is a rainy day   day 
## 2 Daily exercise   day 
## 3  My name is   name 
## 4    Hello   <NA> 

Answer 2

library(dplyr) 

df %>% 
    mutate(col_annotated = case_when(grepl("day", .$col_string, T) ~ "day", 
            grepl("name", .$col_string, T) ~ "name"))