Поместите список в столбец фрейма данных

Question

Прошу прощения за мой английский sh:)

Мне нужно определить, есть ли в адресе специальный символ (переменная "no_trans", 1: если есть один или несколько специальных символов , иначе 0) и в следующем столбце ("carac_no_trans") мне нужно поместить список специальных символов, поэтому, если есть несколько специальных символов, мне нужно увидеть все в этом столбце.

Мой код ( liste_cara c - это список не специальных символов. Мне нужно обнаружить все символы, не включенные в этот список):

new <- data_adresse %>% 
  group_by(e_street_name) %>% 
  mutate(
    no_trans = ifelse(
      length(
        setdiff(
          unlist(strsplit(e_street_name,"")),
          liste_carac
        )
      ) >= 1,
      1,
      0
    ),
    carac_no_trans = ifelse(
      length(
        as.list(
          setdiff(
            unlist(strsplit(e_street_name,"")),
            liste_carac
          )
        )
      ) >= 1,
      as.list(
        setdiff(
          unlist(strsplit(e_street_name,""))
          liste_carac
        ),
      ),
      "None"
    )
  )

Но я вижу только первый специальный символ и не все ..

Если вы можете мне помочь:)

Хорошего дня! Elise

Answer 1

вы можете использовать paste с параметром collaps = ", ", чтобы свести список в одну строку, подобную этой

new <- data_adresse %>% 
  group_by(e_street_name) %>% 
  mutate(
    no_trans = ifelse(
      length(
        setdiff(
          unlist(strsplit(e_street_name,"")),
          liste_carac
        )
      ) >= 1,
      1,
      0
    ),
    carac_no_trans = ifelse(
      length(
        as.list(
          setdiff(
            unlist(strsplit(e_street_name,"")),
            liste_carac
          )
        )
      ) >= 1,
      paste(
        setdiff(
          unlist(strsplit(e_street_name,"")),
          liste_carac
        ), collapse = ", "
      ),
      "None"
    )
  )

Надеюсь, это поможет !!