API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 14th, 2019
116
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 15.80 KB | None | 0 0
raw download clone embed print report
  1. ## Mitantragstellende Institutionen
  2.  
  3. Um weitere Berechnungen zu ermöglichen müssen für die Variable Mitantragstellende Institutionen (MitAntr_Inst) die PLZ und Stadt sowie Tilden zur Trennung von Partner_Institutionen automatisiert eingefügt werden. Fehlende oder fehlerhafte PLZ-Codierungen werden händisch ausgebessert
  4. ```{r Hinzufügen der PLZ, Stadt und Tilden}
  5. # Entfernung von "\r\n" aus den Spalten
  6. df$MitAntr_Inst <- str_replace_all(df$MitAntr_Inst, "\r\n", " ")
  7. # Leerzeichen am Anfang und Ende der Strings werden entfernt
  8. df$MitAntr_Inst <- str_trim(df$MitAntr_Inst)
  9.  
  10. # PLZ werden dupliziert und hinter der Stadt in "[., Germany]" eingesetzt
  11. df$MitAntr_Inst<-str_replace_all(df$MitAntr_Inst, "\\s(\\d{5})(\\s[[:upper:]][[:lower:]]+)", " \\1\\2 [\\1\\2, Germany]")
  12.  
  13. #fehlerhafte oder fehlende PLZ werden händisch korrigiert
  14. df$MitAntr_Inst <-recode_factor(df$MitAntr_Inst,
  15. "Aalto University School of Science and Technology Postfach 11100 00076 Aalto [00076 Aalto, Germany] Finnland Fritz-Haber-Institut der Max-Planck-Gesellschaft (FHI) Abteilung Theorie Faradayweg 4 - 6 14195 Berlin [14195 Berlin, Germany]"=
  16. "Aalto University School of Science and Technology Postfach 11100 00076 Aalto Finnland [00076 Aalto, Finland] Fritz-Haber-Institut der Max-Planck-Gesellschaft (FHI) Abteilung Theorie Faradayweg 4 - 6 14195 Berlin [14195 Berlin, Germany]",
  17.  
  18. "Beijing Normal University Xinjiekouwai Str. Beijing 100875 China" =
  19. "Beijing Normal University Xinjiekouwai Str. Beijing 100875 China [100875 Beijing, China]",
  20.  
  21. "Chinese Academy of Science Wuhan Xiao Hong Shan 44 Wuhan 430071 China" =
  22. "Chinese Academy of Science Wuhan Xiao Hong Shan 44 Wuhan 430071 China [430071 Wuhan, China]",
  23.  
  24. "Chinese Academy of Sciences 52 Sanlihe Rd. Beijing 100864 China"=
  25. "Chinese Academy of Sciences 52 Sanlihe Rd. Beijing 100864 China [100864 Beijing, China]",
  26.  
  27. "Chinese Academy of Sciences 52 Sanlihe Rd. Beijing 100864 China Institute of Functional Nano & Soft Materials(FUNSOM)Soochow University Renai Road 199 Suzhou China" =
  28. "Chinese Academy of Sciences 52 Sanlihe Rd. Beijing 100864 China [1008464 Beijing, China] ~ Institute of Functional Nano & Soft Materials(FUNSOM)Soochow University Renai Road 199 Suzhou China [Suzhou Jiangsu, China]",
  29.  
  30. "Chinese Academy of Sciences 52 Sanlihe Rd. Beijing 100864 China Tsinghua University Beijing 100085 China"=
  31. "Chinese Academy of Sciences 52 Sanlihe Rd. Beijing 100864 China [100864 Beijing, China] Tsinghua University Beijing 100085 China [100085 Beijing, China]",
  32.  
  33. "Donostia International Physics Center Paseo Manuel de Lardizábal, 4 20018 San [20018 San, Germany] Sebastián Spanien" =
  34. "Donostia International Physics Center Paseo Manuel de Lardizábal, 4 20018 San Sebastián Spanien [20018 San Sebastian, Spain]",
  35.  
  36. "Erasmus University Rotterdam P.O. Box 1738 3000 DR Rotterdam Niederlande"=
  37. "Erasmus University Rotterdam P.O. Box 1738 3000 DR Rotterdam Niederlande [3000 Rottderdam, Netherlands]",
  38.  
  39. "ETH Zürich Rämistrasse 101 8092 Zürich Schweiz"=
  40. "ETH Zürich Rämistrasse 101 8092 Zürich Schweiz [8092 Zurich, Switzerland]",
  41.  
  42. "Freie Universität Berlin/Humboldt-Universität zu Berlin"=
  43. "Freie Universität Berlin [14195 Berlin, Germany] Humboldt-Universität zu Berlin [10117 Berlin, Germany]",
  44.  
  45. "Fudan University Shanghai 200031 China"=
  46. "Fudan University Shanghai 200031 China [200031 Shanghai, China]",
  47.  
  48. "Georg-Speyer-HausInstitut für Tumorbiologie und experimentelle Therapie Paul- Ehrlich-Straße 42-44 60596 Frankfurt [60596 Frankfurt, Germany] am Main" =
  49. "Georg-Speyer-HausInstitut für Tumorbiologie und experimentelle Therapie Paul- Ehrlich-Straße 42-44 60596 Frankfurt am Main [60596 Frankfurt am Main, Germany]",
  50.  
  51. "Goethe-Universität Frankfurt am Main 60629 Frankfurt [60629 Frankfurt, Germany] am Main" =
  52. "Goethe-Universität Frankfurt am Main 60629 Frankfurt am Main [60629 Frankfurt am Main, Germany]",
  53.  
  54. "Goethe-Universität Frankfurt am Main 60629 Frankfurt [60629 Frankfurt, Germany] am Main Max-Planck-Institut für Herz- und LungenforschungW.G. Kerkhoff-Institut Ludwigstraße 43 61231 Bad [61231 Bad, Germany] Nauheim" =
  55. "Goethe-Universität Frankfurt am Main 60629 Frankfurt am Main [60629 Frankfurt am Main, Germany] Max-Planck-Institut für Herz- und LungenforschungW.G. Kerkhoff-Institut Ludwigstraße 43 61231 Bad Nauheim [61231 Bad Nauheim, Germany]",
  56.  
  57. "Gottfried Wilhelm Leibniz Universität Hannover Welfengarten 1 30167 Hannover [30167 Hannover, Germany] Technische Universität Clausthal Adolph-Roemer-Straße 2a 38678 Clausthal [38678 Clausthal, Germany]- Zellerfeld"=
  58. "Gottfried Wilhelm Leibniz Universität Hannover Welfengarten 1 30167 Hannover [30167 Hannover, Germany] Technische Universität Clausthal Adolph-Roemer-Straße 2a 38678 Clausthal- Zellerfeld [38678 Clausthal-Zellerfeld, Germany]",
  59.  
  60. "Helmholtz-Institut Mainz Johann-Joachim-Becherweg 36 55128 Mainz [55128 Mainz, Germany] Stony Brook University Stony Brook NY 11794 USA" =
  61. "Helmholtz-Institut Mainz Johann-Joachim-Becherweg 36 55128 Mainz [55128 Mainz, Germany] Stony Brook University Stony Brook NY 11794 USA [11794 New York, USA]",
  62.  
  63. "Huazhong Univ. of Science and Technology 1037 Luoyu Road 430074 Wuhan China" =
  64. "Huazhong Univ. of Science and Technology 1037 Luoyu Road 430074 Wuhan China [430074 Wuhan, China]",
  65.  
  66. "Maison René-Gionouvès - archeologie et ethnologieUMS 844 du CNRS Allée de l'Université 21 92023 Nanterre [92023 Nanterre, Germany] Cedex Frankreich" =
  67. "Maison René-Gionouvès - archeologie et ethnologieUMS 844 du CNRS Allée de l'Université 21 92023 Nanterre Cedex Frankreich [92023 Nanterre, France]",
  68.  
  69. "Max-Planck-Institut für Biophysik Max-von-Laue-Straße 3 60438 Frankfurt [60438 Frankfurt, Germany] am Main"=
  70. "Max-Planck-Institut für Biophysik Max-von-Laue-Straße 3 60438 Frankfurt am Main [60438 Frankfurt am Main, Germany]",
  71.  
  72. "Max-Planck-Institut für Herz- und LungenforschungW.G. Kerkhoff-Institut Ludwigstraße 43 61231 Bad [61231 Bad, Germany] Nauheim"=
  73. "Max-Planck-Institut für Herz- und LungenforschungW.G. Kerkhoff-Institut Ludwigstraße 43 61231 Bad Nauheim [61231 Bad Nauheim, Germany]",
  74.  
  75. "Max-Planck-Institut für Hirnforschung Max-von-Laue-Straße 4 60438 Frankfurt [60438 Frankfurt, Germany] am Main"=
  76. "Max-Planck-Institut für Hirnforschung Max-von-Laue-Straße 4 60438 Frankfurt am Main [60438 Frankfurt am Main, Germany]",
  77.  
  78. "Max-Planck-Institut für Mathematik in den Naturwissenschaften (MIS) Inselstraße 22 04103 Leipzig [04103 Leipzig, Germany] Wuhan University Hubei 430072 Wuhan China"=
  79. "Max-Planck-Institut für Mathematik in den Naturwissenschaften (MIS) Inselstraße 22 04103 Leipzig [04103 Leipzig, Germany] Wuhan University Hubei 430072 Wuhan China [430072 Wuhan, China]",
  80.  
  81. "Mount Allison University 62 York Street Sackville NB E4L 1E2 Kanada"=
  82. "Mount Allison University 62 York Street Sackville NB E4L 1E2 Kanada [E4L 1E2 Sackville, Canada]",
  83.  
  84. "Peking University 5 Yiheyuan Road, Haidian District Beijing 100871 China" =
  85. "Peking University 5 Yiheyuan Road, Haidian District Beijing 100871 China [100971 Beijing, China]",
  86.  
  87. "Peking University 5 Yiheyuan Road, Haidian District Beijing 100871 China Technische Universität München (TUM) Arcisstraße 21 80333 München [80333 München, Germany]"=
  88. "Peking University 5 Yiheyuan Road, Haidian District Beijing 100871 China [100871 Beijing, China] Technische Universität München (TUM) Arcisstraße 21 80333 München [80333 München, Germany]",
  89.  
  90. "Polisch Academy of Sciences Center for Theoretical Physics Al.Lotnikow 32/46 02668 Warszawa [02668 Warszawa, Germany] Polen Ruhr-Universität Bochum Universitätsstraße 150 44801 Bochum [44801 Bochum, Germany]" =
  91. "Polisch Academy of Sciences Center for Theoretical Physics Al.Lotnikow 32/46 02668 Warszawa Polen [02668 Warszawa, Poland] Ruhr-Universität Bochum Universitätsstraße 150 44801 Bochum [44801 Bochum, Germany]",
  92.  
  93. "Polisch Academy of Sciences Center for Theoretical Physics Al.Lotnikow 32/46 02668 Warszawa [02668 Warszawa, Germany] Polen Universität Duisburg-Essen Forsthausweg 2 47057 Duisburg [47057 Duisburg, Germany]"=
  94. "Polisch Academy of Sciences Center for Theoretical Physics Al.Lotnikow 32/46 02668 Warszawa Polen [02668 Warszawa, Poland] Universität Duisburg-Essen Forsthausweg 2 47057 Duisburg [47057 Duisburg, Germany]",
  95. "Russian Academy of Sciences Ioffe Institute 26 Polytekhnicheskaya St. Petersburg 194021 Russische Föderation"=
  96. "Russian Academy of Sciences Ioffe Institute 26 Polytekhnicheskaya St. Petersburg 194021 Russische Föderation [194021 St. Petersburg, Russia]",
  97.  
  98. "Russian Academy of Sciences Ioffe Institute 26 Polytekhnicheskaya St. Petersburg 194021 Russische Föderation Ruhr-Universität Bochum Universitätsstraße 150 44801 Bochum [44801 Bochum, Germany]" =
  99. "Russian Academy of Sciences Ioffe Institute 26 Polytekhnicheskaya St. Petersburg 194021 Russische Föderation [194021 St. Petersburg, Russia] Ruhr-Universität Bochum Universitätsstraße 150 44801 Bochum [44801 Bochum, Germany]",
  100.  
  101. "Russian Academy of Sciences Ioffe Institute 26 Polytekhnicheskaya St. Petersburg 194021 Russische Föderation Saint Petersburg State University Universetskaya naberezhnaya 7-9 St. Petersburg 199034 Russische Föderation" =
  102. "Russian Academy of Sciences Ioffe Institute 26 Polytekhnicheskaya St. Petersburg 194021 Russische Föderation [194021 St. Petersburg, Russia] Saint Petersburg State University Universetskaya naberezhnaya 7-9 St. Petersburg 199034 Russische Föderation [199034 St. Petersburg, Russia]",
  103.  
  104. "Saint Petersburg State University Universetskaya naberezhnaya 7-9 St. Petersburg 199034 Russische Föderation" =
  105. "Saint Petersburg State University Universetskaya naberezhnaya 7-9 St. Petersburg 199034 Russische Föderation [199034 St. Petersburg, Russia]",
  106.  
  107. "Shandong University 27 Shanda Nanlu Jinan 250100 China"=
  108. "Shandong University 27 Shanda Nanlu Jinan 250100 China [250100 Jinan, China]",
  109.  
  110. "Technion - Israel Institute of Technology Technion City Haifa 3200003 Israel"=
  111. "Technion - Israel Institute of Technology Technion City Haifa 3200003 Israel [3200003 Haifa, Israel]",
  112.  
  113. "Technische Universität Clausthal Adolph-Roemer-Straße 2a 38678 Clausthal [38678 Clausthal, Germany]- Zellerfeld"=
  114. "Technische Universität Clausthal Adolph-Roemer-Straße 2a 38678 Clausthal- Zellerfeld [38678 Clausthal-Zellerfeld, Germany]",
  115.  
  116. "Technische Universität Graz Rechbauerstraße 12 8010 Graz Österreich" =
  117. "Technische Universität Graz Rechbauerstraße 12 8010 Graz Österreich [8010 Graz, Austria]",
  118.  
  119. "Technische Universität Wien Karlsplatz 13 1040 Wien Österreich"=
  120. "Technische Universität Wien Karlsplatz 13 1040 Wien Österreich [1040 Vienna, Austria]",
  121.  
  122. "The Hebrew University of Jerusalem Mt. Scopus Jerusalem 91905 Israel [91905 Israel, Germany]"=
  123. "The Hebrew University of Jerusalem Mt. Scopus Jerusalem 91905 Israel [91905 Jerusalem, Israel]",
  124.  
  125. "Tsinghua University Beijing 100085 China"=
  126. "Tsinghua University Beijing 100085 China [100085 Beijing, China]",
  127.  
  128. "Universität Bern Hochschulstraße 4 3012 Bern Schweiz"=
  129. "Universität Bern Hochschulstraße 4 3012 Bern Schweiz [3012 Bern, Switzerland]",
  130.  
  131. "Université du Luxembourg 162a, avenue de la Faiencerie 1511 Luxembourg Luxemburg" =
  132. "Université du Luxembourg 162a, avenue de la Faiencerie 1511 Luxembourg Luxemburg [1511 Luxembourg, Luxemburg]",
  133.  
  134. "University of Illinois at Urbana-ChampaignMultimedia Operating Systems and Networking (MONET) Research Group 201 North Goodwin Avenue Urbana IL 61801 USA"=
  135. "University of Illinois at Urbana-ChampaignMultimedia Operating Systems and Networking (MONET) Research Group 201 North Goodwin Avenue Urbana IL 61801 USA [61801 Urbana, USA]",
  136.  
  137. "Wageningen University Droevendaalsesteeg 1 6708 PB Wageningen Niederlande" =
  138. "Wageningen University Droevendaalsesteeg 1 6708 PB Wageningen Niederlande [6708 Wageningen, Netherlands]",
  139.  
  140. "Weizmann Institute of Science 234 Herzl Street Rehovot 7610001 Israel" =
  141. "Weizmann Institute of Science 234 Herzl Street Rehovot 7610001 Israel [7610001 Rehovot, Israel]",
  142.  
  143. "Wuhan University Hubei 430072 Wuhan China"=
  144. "Wuhan University Hubei 430072 Wuhan China [430072 Wuhan, China]")
  145.  
  146.  
  147. # eine Tilde wird hinter allen "]", auf die ein Wort folgt, eingefügt
  148. df$MitAntr_Inst<-str_replace_all(df$MitAntr_Inst,"(])(\\s[[:upper:]][[:lower:]]+)", "\\1 ~\\2")
  149.  
  150. ```
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!