## Partner Organisationen

Die Variable Partner Organisationen (umbenannt in Partn_Orga) muss ebenfalls so aufgearbeitet werden, dass die Adressen als PLZ, Stadt und Land gelesen werden können. Dazu werden die Adressen händisch in das entsprechende Format gebracht.

```{r Hinzufügen der PLZ, Stadt und Tilden}
# Entfernung von "\r\n" aus den Spalten
df$Partn_Orga <- str_replace_all(df$Partn_Orga, "\r\n", " ")
# Leerzeichen am Anfang und Ende der Strings werden entfernt
df$Partn_Orga <- str_trim(df$Partn_Orga)

# händische Korrektur der Adressen
df$Partn_Orga <-recode_factor(df$Partn_Orga,
                              "Agence Nationale de la Recherche / The French National Research Agency 50 avenue Daumesnil 75012 Paris Frankreich Japan Science and Technology AgencyJST 7 Gobancho Tokyo 102-0076 Japan" =
                                "Agence Nationale de la Recherche / The French National Research Agency 50 avenue Daumesnil 75012 Paris Frankreich [75012 Paris, France] Japan Science and Technology AgencyJST 7 Gobancho Tokyo 102-0076 Japan [102-0076 Tokyo, Japan]",

                              "Consejo Nacional de Ciencia y Tecnología Av. Insurgentes Sur 1582 03940 Ciudad de México Mexiko"=
                                "Consejo Nacional de Ciencia y Tecnología Av. Insurgentes Sur 1582 03940 Ciudad de México Mexiko [03940 Mexico City, Mexico]",

                              "Consejo Nacional de Investigaciones Científicas y Técnicas Godoy Cruz 2290 C1425FQB CABA - Buenos Aires Argentinien"=
                                "Consejo Nacional de Investigaciones Científicas y Técnicas Godoy Cruz 2290 C1425FQB CABA - Buenos Aires Argentinien [C1425FQB Buenos Aires, Argentinia]",

                              "Czech Science Foundation Evropska 2589/33b 160 00 Praha 6 Tschechische Republik"=
                                "Czech Science Foundation Evropska 2589/33b 160 00 Praha 6 Tschechische Republik [160 00 Prague, Czech Republic]",

                              "Fonds National de la Recherche 2, avenue de l'Université 4365 Esch-sur-Alzette Luxemburg"=
                                "Fonds National de la Recherche 2, avenue de l'Université 4365 Esch-sur-Alzette Luxemburg [4365 Esch-sur-Alzette, Luxemburg]",

                              "Fonds National de la Recherche 2, avenue de l'Université 4365 Esch-sur-Alzette Luxemburg Fonds zur Förderung der wissenschaftlichen Forschung (FWF) Sensengasse 1 1090 Wien Österreich"=
                                "Fonds National de la Recherche 2, avenue de l'Université 4365 Esch-sur-Alzette Luxemburg [4365 Esch-sur-Alzette, Luxemburg] Fonds zur Förderung der wissenschaftlichen Forschung (FWF) Sensengasse 1 1090 Wien Österreich [1090 Vienna, Austria]",

                              "Fonds zur Förderung der wissenschaftlichen Forschung (FWF) Sensengasse 1 1090 Wien Österreich"=
                                "Fonds zur Förderung der wissenschaftlichen Forschung (FWF) Sensengasse 1 1090 Wien Österreich [1090 Vieann, Austria]",

                              " Fundaçao de Amparo a Pesquisa do Estado de Sao Paulo - FAPESP Rua Pio XI, 1500-1 - Alto da Lapa 05468-901 São Paulo SP Brasilien"=
                                " Fundaçao de Amparo a Pesquisa do Estado de Sao Paulo - FAPESP Rua Pio XI, 1500-1 - Alto da Lapa 05468-901 São Paulo SP Brasilien [05468-901 Alto da Lapa, Brazil]",

                              "Japan Science and Technology AgencyJST 7 Gobancho Tokyo 102-0076 Japan"=
                                "Japan Science and Technology AgencyJST 7 Gobancho Tokyo 102-0076 Japan [102-0076 Tokyo, Japan]",

                              "Japan Science and Technology AgencyJST 7 Gobancho Tokyo 102-0076 Japan Schweizerischer Nationalfonds (SNF) Wildhainweg 3 3001 Bern Schweiz"=
                                "Japan Science and Technology AgencyJST 7 Gobancho Tokyo 102-0076 Japan [102-0076 Tokyo, Japan] Schweizerischer Nationalfonds (SNF) Wildhainweg 3 3001 Bern Schweiz [3001 Bern, Switzerland]",

                              "Japan Society for the Promotion of Science (JSPS) 5-3-1 Kojimachi, Chiyoda-ku Tokyo 102-0083 Japan"=
                                "Japan Society for the Promotion of Science (JSPS) 5-3-1 Kojimachi, Chiyoda-ku Tokyo 102-0083 Japan [102-0083 Tokyo, Japan]",

                              "National Natural Science Foundation of China 83 Shuangqing Road 100085 Beijing China"=
                                "National Natural Science Foundation of China 83 Shuangqing Road 100085 Beijing China [100085 Beijing, China]",

                              "National Research Foundation of Korea, NRF 165 Gajeong-ro Daejeon 305-350 Süd- Korea"=
                                "National Research Foundation of Korea, NRF 165 Gajeong-ro Daejeon 305-350 Süd- Korea [305-350 Daejeon, South Korea]",

                              "National Science Foundation (NSF) 2415 Eisenhower Avenue Alexandria VA 22314 USA"=
                                "National Science Foundation (NSF) 2415 Eisenhower Avenue Alexandria VA 22314 USA [22314 Alexandria, USA]",

                              "Natural Sciences and Engineering Research Council of Canada 350 Albert Street Ottawa ON K1A 1H5 Kanada"=
                                "Natural Sciences and Engineering Research Council of Canada 350 Albert Street Ottawa ON K1A 1H5 Kanada [K1A 1HK Ottawa, Canada]",

                              "Nederlandse Organisatie voor Wetenschappelijk Onderzoek NWO Netherlands Organisation for Scientific Research Laan van Nieuw Oost Indie 300 2590 Den Haag Niederlande"=
                                "Nederlandse Organisatie voor Wetenschappelijk Onderzoek NWO Netherlands Organisation for Scientific Research Laan van Nieuw Oost Indie 300 2590 Den Haag Niederlande [2590 Den Haag, Netherlands]",

                              "Nederlandse Organisatie voor Wetenschappelijk Onderzoek PO Box 93138 2509 AC Den Haag Niederlande"=
                                "Nederlandse Organisatie voor Wetenschappelijk Onderzoek PO Box 93138 2509 AC Den Haag Niederlande [2509 Den Haag, Netherlands]",

                              "Russian Foundation for Basic Research Leninsky prospekt 32 a 119991 Moscow Russische Föderation"=
                                "Russian Foundation for Basic Research Leninsky prospekt 32 a 119991 Moscow Russische Föderation [119991 Moscow, Russia]",

                              "Schweizerischer Nationalfonds (SNF) Wildhainweg 3 3001 Bern Schweiz"=
                                "Schweizerischer Nationalfonds (SNF) Wildhainweg 3 3001 Bern Schweiz [3001 Bern, Switzerland]")

# eine Tilde wird hinter allen "]", auf die ein Wort folgt, eingefügt
df$Partn_Orga<-str_replace_all(df$Partn_Orga,"(])(\\s[[:upper:]][[:lower:]]+)", "\\1 ~\\2")

```