การแบ่งตัวแปรเป็นสองกลุ่ม

dichotimized_data <- gathered_data %>%
    mutate(response_var = str_replace(response_var, '.*rude to ', '')) %>%
    mutate(response_var = str_replace(response_var, 'on a plane', '')) %>%
	# Remove rows that are NA in the value column
	___ %>%
    # Dichotomize the value variable to make a new variable, rude
    mutate(rude = if_else(value ___ c('No, not rude at all', 'No, not at all rude'), ___, ___))