#Bisher (in separaten Skripts für die jeweiligen Variablen)

# wähle Antragsteller-Variable und wandele String in Factor um
df <- df %>% mutate(Antr_Stell = as.factor(Antr_Stell))

# Subset aller Antragstellernamen
AntStell_all <- levels(df$Antr_Stell) %>%
  as.data.frame()

# Spaltennamen umbennen
AntStell_all <- rename(AntStell_all, Name = .)

# Leerzeichen entfernen
AntStell_all$Name <- str_trim(AntStell_all$Name)

# \r\n entfernen:
AntStell_all$Name <- str_replace_all(AntStell_all$Name, "\r\n", " ")

# Problem hierbei: es wird ein separater String bzw. Datensatz erstellt, der sich nicht in die Gesamttabelle einpflegt.


# Vorschlag jetzt:

# Leerzeichen entfernen
df$Antr_Stell <- str_trim(df$Antr_Stell)

# \r\n entfernen:
df$Antr_Stell <- str_replace_all(df$Antr_Stell, "\r\n", " ")