· 6 years ago · Oct 11, 2019, 02:58 PM
1---
2title: "Geo Visualisierung"
3output:
4 pdf_document: default
5 html_document: default
6---
7
8```{r setup, include=FALSE}
9knitr::opts_chunk$set(echo = TRUE)
10```
11
12## Laden der Pakete und des Datensatzes
13
14```{r Laden der Pakete und des Datensatzes}
15#Laden der Pakete
16library(ggmap)
17library(googleway)
18library(readxl)
19library(dplyr)
20library(stringr)
21# Laden des Datensatzes
22df <-read_excel(paste("//faust/Abtuebergreifend/Projekte/DEKIF/DZHW Hannover/AP5/Adressrecherche",
23 "/Gesamttabelle/förderlinien_gesamt.xlsx", sep = ""),
24 col_types = rep("text",51))
25# danach ist Aufbereitung von Bet_Inst nach "Datenaufbereitung.Gesamttabelle notwendig
26df <- rename(df, "Bet_Inst" = "beteiligte_institution",
27 "DFG_Verf" = "dfg_verfahren",
28 "Proj_Num" = "project_number")
29df$Bet_Inst <- str_replace_all(df$Bet_Inst, "\r\n"," ")
30df$Bet_Inst <- str_trim(df$Bet_Inst)
31
32# PLZ werden dupliziert und hinter der Stadt in "[., Germany]" eingesetzt
33df$Bet_Inst<-str_replace_all(df$Bet_Inst, "\\s(\\d{5})(\\s[[:upper:]][[:lower:]]+)", " \\1\\2 [\\1\\2, Germany]")
34
35#händische Korrektur ausländischer Anschriften und anderer Fehler (insb. zusammengesetzte Adressen)
36
37df$Bet_Inst <-recode_factor(df$Bet_Inst,
38"Access e.V. Intzestraße 5 52072 Aachen [52072 Aachen, Germany] Forschungsinstitut für Rationalisierung e.V. (FIR)an der RWTH Aachen Campus-Boulevard 55 52074 Aachen [52074 Aachen, Germany] Fraunhofer- Institut für Angewandte Informationstechnik (FIT) Schloss Birlinghoven 53757 Sankt [53757 Sankt, Germany] Augustin Fraunhofer-Institut für Lasertechnik (ILT) Steinbachstraße 15 52074 Aachen [52074 Aachen, Germany] Fraunhofer-Institut für Produktionstechnologie (IPT) Steinbachstraße 17 52074 Aachen [52074 Aachen, Germany] Institut für Kunststoffverarbeitung (IKV)an der RWTH Aachen Seffenter Weg 201 52074 Aachen [52074 Aachen, Germany]" =
39 "Access e.V. Intzestraße 5 52072 Aachen [52072 Aachen, Germany] Forschungsinstitut für Rationalisierung e.V. (FIR)an der RWTH Aachen Campus-Boulevard 55 52074 Aachen [52074 Aachen, Germany] Fraunhofer- Institut für Angewandte Informationstechnik (FIT) Schloss Birlinghoven 53757 Sankt Augustin [53757 Sankt Augustin, Germany] Fraunhofer-Institut für Lasertechnik (ILT) Steinbachstraße 15 52074 Aachen [52074 Aachen, Germany] Fraunhofer-Institut für Produktionstechnologie (IPT) Steinbachstraße 17 52074 Aachen [52074 Aachen, Germany] Institut für Kunststoffverarbeitung (IKV)an der RWTH Aachen Seffenter Weg 201 52074 Aachen [52074 Aachen, Germany]",
40
41"Addis Ababa University Department of Earth Sciences P.O.Box 1176 Addis Abeba Äthiopien Neanderthal Museum Talstraße 300 40822 Mettmann [40822 Mettmann, Germany]"=
42 "Addis Ababa University Department of Earth Sciences P.O.Box 1176 Addis Abeba Äthiopien [1176 Addis Abeba, Ethiopia] Neanderthal Museum Talstraße 300 40822 Mettmann [40822 Mettmann, Germany]",
43
44"Chinese Academy of Sciences 52 Sanlihe Rd. Beijing 100864 China" =
45 "Chinese Academy of Sciences 52 Sanlihe Rd. Beijing 100864 China [100864 Beijing, China]",
46
47"Chinese Academy of Sciences 52 Sanlihe Rd. Beijing 100864 China Forschungszentrum Jülich Wilhelm-Johnen-Straße 52428 Jülich [52428 Jülich, Germany]" =
48 "Chinese Academy of Sciences 52 Sanlihe Rd. Beijing 100864 China [100864 Beijing, China] Forschungszentrum Jülich Wilhelm-Johnen-Straße 52428 Jülich [52428 Jülich, Germany]",
49
50"Consiglio Nazionale delle Richerche Institute of Protein Biochemistry Via Pietro Castellino 111 80131 Napoli [80131 Napoli, Germany] Italien" =
51 "Consiglio Nazionale delle Richerche Institute of Protein Biochemistry Via Pietro Castellino 111 80131 Napoli Italien [80131 Napoli, Italy]",
52
53"Deutsches Forschungszentrum für Künstliche Intelligenz GmbH (DFKI) Campus D3_2 66123 Saarbrücken [66123 Saarbrücken, Germany] LORIA - Laboratoire lorrain de recherche en informatique et ses applications BP 239 54506 Vandoeuvre [54506 Vandoeuvre, Germany]-lès-Nancy Cedex Frankreich Max-Planck- Institut für Informatik Campus Geb. E 1.4 66123 Saarbrücken [66123 Saarbrücken, Germany] Max-Planck-Institut für Softwaresysteme Campus E1 4 66123 Saarbrücken [66123 Saarbrücken, Germany]" =
54 "Deutsches Forschungszentrum für Künstliche Intelligenz GmbH (DFKI) Campus D3_2 66123 Saarbrücken [66123 Saarbrücken, Germany] LORIA - Laboratoire lorrain de recherche en informatique et ses applications BP 239 54506 Vandoeuvre-lès-Nancy Cedex Frankreich [54506 Vandoeuvre-lès-Nancy, France] Max-Planck- Institut für Informatik Campus Geb. E 1.4 66123 Saarbrücken [66123 Saarbrücken, Germany] Max-Planck-Institut für Softwaresysteme Campus E1 4 66123 Saarbrücken [66123 Saarbrücken, Germany]",
55
56"Deutsches Krebsforschungszentrum (DKFZ) Im Neuenheimer Feld 280 69120 Heidelberg [69120 Heidelberg, Germany] Max-Planck-Institut für Herz- und LungenforschungW.G. Kerkhoff-Institut Ludwigstraße 43 61231 Bad [61231 Bad, Germany] Nauheim" =
57 "Deutsches Krebsforschungszentrum (DKFZ) Im Neuenheimer Feld 280 69120 Heidelberg [69120 Heidelberg, Germany] Max-Planck-Institut für Herz- und LungenforschungW.G. Kerkhoff-Institut Ludwigstraße 43 61231 Bad Nauheim [61231 Bad Nauheim, Germany]",
58
59"Fonds zur Förderung der wissenschaftlichen Forschung (FWF) Sensengasse 1 1090 Wien Österreich" =
60 "Fonds zur Förderung der wissenschaftlichen Forschung (FWF) Sensengasse 1 1090 Wien Österreich [1090 Vienna, Austria]",
61
62"Forschungszentrum caesar Ludwig-Erhard-Allee 2 53175 Bonn [53175 Bonn, Germany] Deutsches Zentrum für Neurodegenerative Erkrankungen (DZNE)Standort Bonn Sigmund-Freud-Straße 27 53127 Bonn [53127 Bonn, Germany] Weizmann Institute of Science 234 Herzl Street Rehovot 7610001 Israel"=
63 "Forschungszentrum caesar Ludwig-Erhard-Allee 2 53175 Bonn [53175 Bonn, Germany] Deutsches Zentrum für Neurodegenerative Erkrankungen (DZNE)Standort Bonn Sigmund-Freud-Straße 27 53127 Bonn [53127 Bonn, Germany] Weizmann Institute of Science 234 Herzl Street Rehovot 7610001 Israel [7510001 Rehovot, Israel]",
64
65"Frobenius-Institutan der Goethe-Universität Norbert-Wollheim-Platz 1 60323 Frankfurt [60323 Frankfurt, Germany] am Main Goethe-Universität Frankfurt am MainFachbereich Philosophie und GeschichtswissenschaftenHistorisches Seminar Norbert-Wollheim-Platz 1 60323 Frankfurt [60323 Frankfurt, Germany] am Main Goethe-Universität Frankfurt am MainFachbereich Sprach- und KulturwissenschaftenInstitut für Klassische Philologie Norbert-Wollheim-Platz 1 60323 Frankfurt [60323 Frankfurt, Germany] am Main"=
66 "Frobenius-Institutan der Goethe-Universität Norbert-Wollheim-Platz 1 60323 Frankfurt am Main [60323 Frankfurt am Main, Germany] Goethe-Universität Frankfurt am MainFachbereich Philosophie und GeschichtswissenschaftenHistorisches Seminar Norbert-Wollheim-Platz 1 60323 Frankfurt am Main [60323 Frankfurt am Main, Germany] Goethe-Universität Frankfurt am MainFachbereich Sprach- und KulturwissenschaftenInstitut für Klassische Philologie Norbert-Wollheim-Platz 1 60323 Frankfurt am Main [60323 Frankfurt am Main, Germany]",
67
68"Frobenius-Institutan der Goethe-Universität Norbert-Wollheim-Platz 1 60323 Frankfurt [60323 Frankfurt, Germany] am Main Institut für Sozialforschung (IfS) an der Johann Wolfgang Goethe-Universität Frankfurt Senckenberganlage 26 60325 Frankfurt [60325 Frankfurt, Germany] am Main Leibniz-Institut Hessische Stiftung Friedens- und Konfliktforschung (HSFK) Baseler Straße 27-31 60329 Frankfurt [60329 Frankfurt, Germany] am Main Max-Planck-Institut für ausländisches öffentliches Recht und Völkerrecht Im Neuenheimer Feld 535 69120 Heidelberg [69120 Heidelberg, Germany] Max-Planck-Institut für europäische Rechtsgeschichte Hansaallee 41 60323 Frankfurt [60323 Frankfurt, Germany] am Main Point Sud Rue 313, Porte 97 Bamako Mali"=
69 "Frobenius-Institutan der Goethe-Universität Norbert-Wollheim-Platz 1 60323 Frankfurt am Main [60323 Frankfurt am Main, Germany] Institut für Sozialforschung (IfS) an der Johann Wolfgang Goethe-Universität Frankfurt Senckenberganlage 26 60325 Frankfurt am Main [60325 Frankfurt am Main, Germany] Leibniz-Institut Hessische Stiftung Friedens- und Konfliktforschung (HSFK) Baseler Straße 27-31 60329 Frankfurt am Main [60329 Frankfurt am Main, Germany] Max-Planck-Institut für ausländisches öffentliches Recht und Völkerrecht Im Neuenheimer Feld 535 69120 Heidelberg [69120 Heidelberg, Germany] Max-Planck-Institut für europäische Rechtsgeschichte Hansaallee 41 60323 Frankfurt am Main [60323 Frankfurt am Main, Germany] Point Sud Rue 313, Porte 97 Bamako Mali [Bamako, Mali]",
70
71"Georg-August-Universität GöttingenUniversitätsmedizin GöttingenEuropean Neuroscience Institute (ENI-G) Grisebachstraße 5 37077 Göttingen [37077 Göttingen, Germany] Max-Planck- Institut für biophysikalische Chemie(Karl-Friedrich-Bonhoeffer-Institut) Am Faßberg 11 37077 Göttingen [37077 Göttingen, Germany] Max-Planck-Institut für experimentelle Medizin Hermann-Rein-Straße 3 37075 Göttingen [37075 Göttingen, Germany] Weizmann Institute of Science 234 Herzl Street Rehovot 7610001 Israel" =
72 "Georg-August-Universität GöttingenUniversitätsmedizin GöttingenEuropean Neuroscience Institute (ENI-G) Grisebachstraße 5 37077 Göttingen [37077 Göttingen, Germany] Max-Planck- Institut für biophysikalische Chemie(Karl-Friedrich-Bonhoeffer-Institut) Am Faßberg 11 37077 Göttingen [37077 Göttingen, Germany] Max-Planck-Institut für experimentelle Medizin Hermann-Rein-Straße 3 37075 Göttingen [37075 Göttingen, Germany] Weizmann Institute of Science 234 Herzl Street Rehovot 7610001 Israel [7610001 Rehovot, Isreal]",
73
74"Georg-Speyer-HausInstitut für Tumorbiologie und experimentelle Therapie Paul- Ehrlich-Straße 42-44 60596 Frankfurt [60596 Frankfurt, Germany] am Main Institut für Molekulare Biologie gGmbH Ackermannweg 4 55128 Mainz [55128 Mainz, Germany]"=
75 "Georg-Speyer-HausInstitut für Tumorbiologie und experimentelle Therapie Paul- Ehrlich-Straße 42-44 60596 Frankfurt am Main [60596 Frankfurt am Main, Germany] Institut für Molekulare Biologie gGmbH Ackermannweg 4 55128 Mainz [55128 Mainz, Germany]",
76
77"Helmholtz-Institut Mainz Johann-Joachim-Becherweg 36 55128 Mainz [55128 Mainz, Germany] Mount Allison University 62 York Street Sackville NB E4L 1E2 Kanada Stony Brook University Stony Brook NY 11794 USA"=
78 "Helmholtz-Institut Mainz Johann-Joachim-Becherweg 36 55128 Mainz [55128 Mainz, Germany] Mount Allison University 62 York Street Sackville NB E4L 1E2 Kanada [NB E4L 1E2 Sackville, Canada] Stony Brook University Stony Brook NY 11794 USA [11794 Stony Brook, USA]",
79
80"Humboldt-Universität zu BerlinInstitut für BiologieArbeitsgruppe Molekulare Parasitologie Philippstraße 13 10115 Berlin [10115 Berlin, Germany] Robert Koch-Institut (RKI) Abteilung für Infektionskrankheiten Fachgebiet 16: Erreger von Pilz- und Parasiteninfektionen und Mykobakteriosen Nordufer 20 13353 Berlin [13353 Berlin, Germany] Charité UniversitätsklinikumCampus Virchow-KlinikumInstitut für Tropenmedizin und Internationale Gesundheit Südring 2-3 12349 Berlin [12349 Berlin, Germany] Leibniz-Institut für Zoo- und Wildtierforschung (IZW) im Forschungsverbund Berlin e.V. Postfach 70 04 30 10324 Berlin [10324 Berlin, Germany] Länderinstitut für Bienenkunde Hohen Neuendorf e.V. Friedrich-Engels- Straße 32 16540 Hohen [16540 Hohen, Germany] Neuendorf Max-Planck-Institut für Infektionsbiologie Charitéplatz 1 10117 Berlin [10117 Berlin, Germany]" =
81 "Humboldt-Universität zu BerlinInstitut für BiologieArbeitsgruppe Molekulare Parasitologie Philippstraße 13 10115 Berlin [10115 Berlin, Germany] Robert Koch-Institut (RKI) Abteilung für Infektionskrankheiten Fachgebiet 16: Erreger von Pilz- und Parasiteninfektionen und Mykobakteriosen Nordufer 20 13353 Berlin [13353 Berlin, Germany] Charité UniversitätsklinikumCampus Virchow-KlinikumInstitut für Tropenmedizin und Internationale Gesundheit Südring 2-3 12349 Berlin [12349 Berlin, Germany] Leibniz-Institut für Zoo- und Wildtierforschung (IZW) im Forschungsverbund Berlin e.V. Postfach 70 04 30 10324 Berlin [10324 Berlin, Germany] Länderinstitut für Bienenkunde Hohen Neuendorf e.V. Friedrich-Engels- Straße 32 16540 Hohen Neuendorf [16540 Hohen Neuendorf, Germany] Max-Planck-Institut für Infektionsbiologie Charitéplatz 1 10117 Berlin [10117 Berlin, Germany]",
82
83"Institut für Molekulare Biologie gGmbH Ackermannweg 4 55128 Mainz [55128 Mainz, Germany] Max-Planck- Institut für Hirnforschung Max-von-Laue-Straße 4 60438 Frankfurt [60438 Frankfurt, Germany] am Main"=
84 "Institut für Molekulare Biologie gGmbH Ackermannweg 4 55128 Mainz [55128 Main, Germany] Max-Planck- Institut für Hirnforschung Max-von-Laue-Straße 4 60438 Frankfurt am Main [60438 Frankfurt am Main, Germany]",
85
86 "Humboldt-Universität zu BerlinInstitut für BiologieArbeitsgruppe Molekulare Parasitologie Philippstraße 13 10115 Berlin [10115 Berlin, Germany] Robert Koch-Institut (RKI) Abteilung für Infektionskrankheiten Fachgebiet 16: Erreger von Pilz- und Parasiteninfektionen und Mykobakteriosen Nordufer 20 13353 Berlin [13353 Berlin, Germany] Charité UniversitätsklinikumCampus Virchow-KlinikumInstitut für Tropenmedizin und Internationale Gesundheit Südring 2-3 12349 Berlin [12349 Berlin, Germany] Leibniz-Institut für Zoo- und Wildtierforschung (IZW) im Forschungsverbund Berlin e.V. Postfach 70 04 30 10324 Berlin [10324 Berlin, Germany] Länderinstitut für Bienenkunde Hohen Neuendorf e.V. Friedrich-Engels- Straße 32 16540 Hohen [16540 Hohen, Germany] Neuendorf Max-Planck-Institut für Infektionsbiologie Charitéplatz 1 10117 Berlin [10117 Berlin, Germany]" =
87 "Humboldt-Universität zu BerlinInstitut für BiologieArbeitsgruppe Molekulare Parasitologie Philippstraße 13 10115 Berlin [10115 Berlin, Germany] Robert Koch-Institut (RKI) Abteilung für Infektionskrankheiten Fachgebiet 16: Erreger von Pilz- und Parasiteninfektionen und Mykobakteriosen Nordufer 20 13353 Berlin [13353 Berlin, Germany] Charité UniversitätsklinikumCampus Virchow-KlinikumInstitut für Tropenmedizin und Internationale Gesundheit Südring 2-3 12349 Berlin [12349 Berlin, Germany] Leibniz-Institut für Zoo- und Wildtierforschung (IZW) im Forschungsverbund Berlin e.V. Postfach 70 04 30 10324 Berlin [10324 Berlin, Germany] Länderinstitut für Bienenkunde Hohen Neuendorf e.V. Friedrich-Engels- Straße 32 16540 Hohen Neuendorf [16540 Hohen Neuendorf, Germany] Max-Planck-Institut für Infektionsbiologie Charitéplatz 1 10117 Berlin [10117 Berlin, Germany]",
88
89 "Institut für Molekulare Biologie gGmbH Ackermannweg 4 55128 Mainz [55128 Mainz, Germany] Max-Planck- Institut für Hirnforschung Max-von-Laue-Straße 4 60438 Frankfurt [60438 Frankfurt, Germany] am Main"=
90 "Institut für Molekulare Biologie gGmbH Ackermannweg 4 55128 Mainz [55128 Mainz, Germany] Max-Planck- Institut für Hirnforschung Max-von-Laue-Straße 4 60438 Frankfurt am Main [60438 Frankfurt am Main, Germany]",
91
92 "Institute of Science and Technology Austria Am Campus 1 3400 Klosterneuburg Österreich" =
93 "Institute of Science and Technology Austria Am Campus 1 3400 Klosterneuburg Österreich [3400 Klosterneuburg, Austria]",
94
95 "Instituto Gulbenkian de Ciencia Rua da Quinta Grande, 6 2780-156 Oeiras Portugal Max-Planck-Institut für Biologie des Alterns Joseph-Stelzmann-Straße 9b 50931 Köln [50931 Köln, Germany] Max-Planck-Institut für Dynamik und Selbstorganisation (MPIDS) Am Faßberg 17 37077 Göttingen [37077 Göttingen, Germany]"=
96 "Instituto Gulbenkian de Ciencia Rua da Quinta Grande, 6 2780-156 Oeiras Portugal [2780-156 Oeiras, Portugal] Max-Planck-Institut für Biologie des Alterns Joseph-Stelzmann-Straße 9b 50931 Köln [50931 Cologne, Germany] Max-Planck-Institut für Dynamik und Selbstorganisation (MPIDS) Am Faßberg 17 37077 Göttingen [37077 Göttingen, Germany]",
97
98 "Kerckhoff-Klinik GmbH Benekestraße 2-8 61231 Bad [61231 Bad, Germany] Nauheim Max-Planck-Institut für Herz- und LungenforschungW.G. Kerkhoff-Institut Ludwigstraße 43 61231 Bad [61231 Bad, Germany] Nauheim"=
99 "Kerckhoff-Klinik GmbH Benekestraße 2-8 61231 Bad Nauheim [61231 Bad Nauheim, Germany] Max-Planck-Institut für Herz- und LungenforschungW.G. Kerkhoff-Institut Ludwigstraße 43 61231 Bad Nauheim [61231 Bad Nauheim, Germany]",
100
101 "Landesamt für DenkmalpflegeDienstsitz Konstanz Stromeyersdorferstraße 3 78467 Konstanz [78467 Konstanz, Germany] Curt-Engelhorn-Zentrum Archäometrie gGmbh D6,3 68159 Mannheim [68159 Mannheim, Germany] Frobenius-Institutan der Goethe-Universität Norbert-Wollheim-Platz 1 60323 Frankfurt [60323 Frankfurt, Germany] am Main Römisch-Germanisches Zentralmuseum (RGZM)Leibniz- Forschungsinstitut für Archäologie Ernst-Ludwig-Platz 2 55116 Mainz [55116 Mainz, Germany]"=
102 "Landesamt für DenkmalpflegeDienstsitz Konstanz Stromeyersdorferstraße 3 78467 Konstanz [78467, Germany] Curt-Engelhorn-Zentrum Archäometrie gGmbh D6,3 68159 Mannheim [68159, Germany] Frobenius-Institutan der Goethe-Universität Norbert-Wollheim-Platz 1 60323 Frankfurt am Main [60323 Frankfurt am Main, Germany] Römisch-Germanisches Zentralmuseum (RGZM)Leibniz- Forschungsinstitut für Archäologie Ernst-Ludwig-Platz 2 55116 Mainz [55116 Mainz, Germany]",
103
104 "Maison René-Gionouvès - archeologie et ethnologieUMS 844 du CNRS Allée de l'Université 21 92023 Nanterre [92023 Nanterre, Germany] Cedex Frankreich"=
105 "Maison René-Gionouvès - archeologie et ethnologieUMS 844 du CNRS Allée de l'Université 21 92023 Nanterre Cedex Frankreich [92023 Nanterre, France]",
106
107 "Max-Delbrück-Centrum für Molekulare Medizin (MDC) Robert-Rössle-Straße 10 13125 Berlin [13125 Berlin, Germany] Max-Planck-Institut für Immunbiologie und Epigenetik Stübeweg 51 79108 Freiburg [79108 Freiburg, Germany] Weizmann Institute of Science 234 Herzl Street Rehovot 7610001 Israel"=
108 "Max-Delbrück-Centrum für Molekulare Medizin (MDC) Robert-Rössle-Straße 10 13125 Berlin [13125 Berlin, Germany] Max-Planck-Institut für Immunbiologie und Epigenetik Stübeweg 51 79108 Freiburg [79108 Freiburg, Germany] Weizmann Institute of Science 234 Herzl Street Rehovot 7610001 Israel [7610001 Rehovot, Israel]",
109
110 "Max-Planck-Institut für Biophysik Max-von-Laue-Straße 3 60438 Frankfurt [60438 Frankfurt, Germany] am Main"=
111 "Max-Planck-Institut für Biophysik Max-von-Laue-Straße 3 60438 Frankfurt am Main [60438 Frankfurt am Main, Germany]",
112
113 "Max-Planck-Institut für Biophysik Max-von-Laue-Straße 3 60438 Frankfurt [60438 Frankfurt, Germany] am Main Max-Planck-Institut für Hirnforschung Max-von-Laue-Straße 4 60438 Frankfurt [60438 Frankfurt, Germany] am Main"=
114 "Max-Planck-Institut für Biophysik Max-von-Laue-Straße 3 60438 Frankfurt am Main [60438 Frankfurt am Main, Germany] Max-Planck-Institut für Hirnforschung Max-von-Laue-Straße 4 60438 Frankfurt am Main [60438 Frankfurt am Main, Germany]",
115
116 "Max-Planck-Institut für europäische Rechtsgeschichte Hansaallee 41 60323 Frankfurt [60323 Frankfurt, Germany] am Main"=
117 "Max-Planck-Institut für europäische Rechtsgeschichte Hansaallee 41 60323 Frankfurt am Main [60323 Frankfurt am Main, Germany]",
118
119 "Max-Planck-Institut für Herz- und Lungenforschung W. G. Kerkhoff-Institut Abteilung für Pharmakologie Ludwigstraße 43 61231 Bad [61231 Bad, Germany] Nauheim"=
120 "Max-Planck-Institut für Herz- und Lungenforschung W. G. Kerkhoff-Institut Abteilung für Pharmakologie Ludwigstraße 43 61231 Bad Nauheim [61231 Bad Nauheim, Germany]",
121
122 "Max-Planck-Institut für Herz- und LungenforschungW.G. Kerkhoff-Institut Ludwigstraße 43 61231 Bad [61231 Bad, Germany] Nauheim"=
123 "Max-Planck-Institut für Herz- und LungenforschungW.G. Kerkhoff-Institut Ludwigstraße 43 61231 Bad Nauheim [61231 Bad Nauheim, Germany]",
124
125 "Max-Planck-Institut für Herz- und LungenforschungW.G. Kerkhoff-Institut Ludwigstraße 43 61231 Bad [61231 Bad, Germany] Nauheim Max-Planck-Institut für Neurobiologie (MPIN) Am Klopferspitz 18 82152 Planegg [82152 Planegg, Germany]"=
126 "Max-Planck-Institut für Herz- und LungenforschungW.G. Kerkhoff-Institut Ludwigstraße 43 61231 Bad Nauheim [61231 Bad Nauheim, Germany] Max-Planck-Institut für Neurobiologie (MPIN) Am Klopferspitz 18 82152 Planegg [82152 Planegg, Germany]",
127
128 "Max-Planck-Institut für Herz- und LungenforschungW.G. Kerkhoff-Institut Ludwigstraße 43 61231 Bad [61231 Bad, Germany] Nauheim The Netherlands Cancer Institute Plesmanlaan 121 1066 CX Amsterdam Niederlande"=
129 "Max-Planck-Institut für Herz- und LungenforschungW.G. Kerkhoff-Institut Ludwigstraße 43 61231 Bad Nauheim [61231 Bad Nauheim, Germany] The Netherlands Cancer Institute Plesmanlaan 121 1066 CX Amsterdam Niederlande [1066 Amsterdam, Netherlands]",
130
131 "Paul-Ehrlich-Institut Bundesinstitut für Impfstoffe und biomedizinische Arzneimittel Abteilung Immunologie Paul-Ehrlich-Straße 51-59 63225 Langen [63225 Langen, Germany] Charité - Universitätsmedizin Berlin Charitéplatz 1 10117 Berlin [10117 Berlin, Germany] Paul- Ehrlich-InstitutBundesinstitut für Impfstoffe und biomedizinische ArzneimittelForschungsgruppe Pathogen-Wirt Interaktionen Paul-Ehrlich- Straße 51-59 63225 Langen [63225 Langen, Germany] Georg-Speyer-HausInstitut für Tumorbiologie und experimentelle Therapie Paul-Ehrlich-Straße 42-44 60596 Frankfurt [60596 Frankfurt, Germany] am Main TRON - Translationale Onkologiean der Universitätsmedizin der Johannes Gutenberg- Universität Mainz Freiligrathstraße 12 55131 Mainz [55131 Mainz, Germany]"=
132 "Paul-Ehrlich-Institut Bundesinstitut für Impfstoffe und biomedizinische Arzneimittel Abteilung Immunologie Paul-Ehrlich-Straße 51-59 63225 Langen [63225 Langen, Germany] Charité - Universitätsmedizin Berlin Charitéplatz 1 10117 Berlin [10117 Berlin, Germany] Paul- Ehrlich-InstitutBundesinstitut für Impfstoffe und biomedizinische ArzneimittelForschungsgruppe Pathogen-Wirt Interaktionen Paul-Ehrlich- Straße 51-59 63225 Langen [63225 Langen, Germany] Georg-Speyer-HausInstitut für Tumorbiologie und experimentelle Therapie Paul-Ehrlich-Straße 42-44 60596 Frankfurt am Main [60596 Frankfurt am Main, Germany] TRON - Translationale Onkologiean der Universitätsmedizin der Johannes Gutenberg- Universität Mainz Freiligrathstraße 12 55131 Mainz [55131 Mainz, Germany]",
133
134 "Polisch Academy of Sciences Center for Theoretical Physics Al.Lotnikow 32/46 02668 Warszawa [02668 Warszawa, Germany] Polen"=
135 "Polisch Academy of Sciences Center for Theoretical Physics Al.Lotnikow 32/46 02668 Warszawa Polen [02668 Warszawa, Poland]",
136
137 "Russian Academy of Sciences Ioffe Institute 26 Polytekhnicheskaya St. Petersburg 194021 Russische Föderation"=
138 "Russian Academy of Sciences Ioffe Institute 26 Polytekhnicheskaya St. Petersburg 194021 Russische Föderation [194021 St. Petersburg, Russia]",
139
140 "Schweizerischer Nationalfonds (SNF) Wildhainweg 3 3001 Bern Schweiz"=
141 "Schweizerischer Nationalfonds (SNF) Wildhainweg 3 3001 Bern Schweiz [3001 Bern, Switzerland]",
142
143 "Stanford UniversityCenter of European Studies Stanford CA 94305-2024 USA University of Copenhagen Centre for the Study of the Cultural Heritage of Medieval Rituals Kebmagergade 46 1150 København Dänemark Universidad Católica ArgentinaFacultad de DerechoFacultad de Derecho Canónico Avda. Alicia Mereau de Justo 1300 C1107AFD Buenos Aires Argentinien Princeton UniversityHistory Department 129 Dickinson Hall Princeton NJ 08544-1017 USA Rijksuniversiteit GroningenFaculty of Theology and Religious Studies Oude Boteringestraat 38 9712 GK Groningen Niederlande The Hebrew University of Jerusalem Mt. Scopus Jerusalem 91905 Israel [91905 Isreal, Germany] École des hautes études en sciences sociales (EHESS) 190-198 avenue de France 75244 Paris [75244 Paris, Germany] cedex 13 Frankreich"=
144 "Stanford UniversityCenter of European Studies Stanford CA 94305-2024 USA [94305-2024 Stanford, USA] University of Copenhagen Centre for the Study of the Cultural Heritage of Medieval Rituals Kebmagergade 46 1150 København Dänemark [1150 Kobenhavn, Denmark] Universidad Católica ArgentinaFacultad de DerechoFacultad de Derecho Canónico Avda. Alicia Mereau de Justo 1300 C1107AFD Buenos Aires Argentinien [C1107AFD Buenos Aires, Argentinia] Princeton UniversityHistory Department 129 Dickinson Hall Princeton NJ 08544-1017 USA [08544-1017 Princeton, USA] Rijksuniversiteit GroningenFaculty of Theology and Religious Studies Oude Boteringestraat 38 9712 GK Groningen Niederlande [9712 Groningen, Netherlands] The Hebrew University of Jerusalem Mt. Scopus Jerusalem 91905 Israel [91905 Jerusalem, Israel] École des hautes études en sciences sociales (EHESS) 190-198 avenue de France 75244 Paris cedex 13 Frankreich [75244 Paris, France]",
145
146 "The Hebrew University of JerusalemMandel Institute for Jewish StudiesDepartment of Talmud Mt. Scopus 91905 Jerusalem [91905 Jerusalem, Germany] Israel The Hebrew University of JerusalemThe Melton Centre for Jewish Education Mt. Scopus 91905 Jerusalem [91905 Jerusalem, Germany] Israel"=
147 "The Hebrew University of JerusalemMandel Institute for Jewish StudiesDepartment of Talmud Mt. Scopus 91905 Jerusalem Israel [91905 Jerusalem, Isreal] The Hebrew University of JerusalemThe Melton Centre for Jewish Education Mt. Scopus 91905 Jerusalem Israel [91905 Jerusalem, Isreal]",
148
149 "Weizmann Institute of Science 234 Herzl Street Rehovot 7610001 Israel"=
150 "Weizmann Institute of Science 234 Herzl Street Rehovot 7610001 Israel [7610001 Rehovot, Isreal]",
151
152 "Weizmann Institute of Science Department of Neurobiology Rehovot 76100 Israel [76100 Israel, Germany] Institut für Vogelforschung - Vogelwarte Helgoland An der Vogelwarte 21 26386 Wilhelmshaven [26386 Wilhelmshaven, Germany] Max-Planck-Institut für Evolutionsbiologie August-Thienemann- Straße 2 24306 Plön [24306 Plön, Germany]"=
153 "Weizmann Institute of Science Department of Neurobiology Rehovot 76100 Israel [76100 Rehovot, Israel] Institut für Vogelforschung - Vogelwarte Helgoland An der Vogelwarte 21 26386 Wilhelmshaven [26386 Wilhelmshaven, Germany] Max-Planck-Institut für Evolutionsbiologie August-Thienemann- Straße 2 24306 Plön [24306 Plön, Germany]")
154
155
156# eine Tilde wird hinter allen "]", auf die ein Wort folgt, eingefügt
157df$Bet_Inst<-str_replace_all(df$Bet_Inst,"(])(\\s[[:upper:]][[:lower:]]+)", "\\1 ~\\2")
158```
159
160
161Der API Key muss angegeben werden
162```{r API Key}
163#API Key bestimmen
164set_key("X")
165api_key <- "X"
166register_google(key=api_key)
167
168```
169
170## 1. Erstelle Subset mit Distanz-relevanten Variablen
171Zum Testen der Visualisierungs-Funktion wird zunächst ein Dummy-Datensatz erstellt, der die generelle Wirksamkeit der Funktion testet.
172```{r subset nr 1}
173#Auswahl einer Bsp- Variable
174df_test <- df %>% select(Bet_Inst) %>%
175 mutate(Bet_Inst = as.factor(Bet_Inst))
176#eine Spalte wird an jede Adressspalte angefügt, die lediglich die Adressinformationen enthält (hier Bsp. Bet_Inst) -> inhalt eckigier Klammern
177df_test$Adress_Info <- str_extract_all(df_test$Bet_Inst, "\\[\\d+\\s\\w+\\,\\s\\w+\\]")
178#in dieser Spalte müssen NAs mit leeren Einträgen ersetzt werden
179df_test$Adress_Info <- str_replace_na(df_test$Adress_Info, "")
180#splittet in Spalten. Jedes Mal eine neue Spalte wenn '", "' auftaucht
181df_test <- str_split(df_test$Adress_Info, '", "',simplify = TRUE) %>% as.data.frame()
182#entferne alle überflüssigen Zeichen
183for (i in 1:ncol(df_test)){
184 df_test[, i] <- str_replace_all(df_test[[i]],"(\\[)|(\\])|c\\(|\"|\\)"," ")
185 df_test[, i] <- str_trim(df_test[[i]])
186}
187#Wähle Teil des subsets
188df_test <- df_test[1:15,]
189df_test <- df_test[,1:7]
190#Anfügen einer "fake"-ID Spalte
191df_test$ID <- c(1:15)
192ID <- df_test$ID
193# es werden Spalten mit long und lat hergestellt, die jeweils ihrem ID zugeordnet sind
194adress_test <- cbind(ID, geocode(as.character(c(df_test$V1, df_test$V2,df_test$V3, df_test$V4, df_test$V5, df_test$V6, df_test$V7))))
195#entferne leere Zeilen
196adress_test <- adress_test[complete.cases(adress_test), ]
197
198```
199
200Jetzt werden die Ergebnisse des ersten Dummy Subsets in einer Karte (Ausschnitt Deutschland) festgehalten.
201```{r Karte Vorbereitung test}
202Germany.map <- qmap(location= 'Germany' , zoom = 6, color="bw", legend= "topleft")
203
204#Einsetzen der Adressen auf Deutschland Karte
205Germany.map + geom_point(aes(x = lon, y = lat, color = ID),data = adress_test)
206```
207
208
209# 2. Vergleich von zwei verschiedenen Forschungslinien mit einer Ortsvariablen
210
211Im folgenden Abschnitt versuche ich, einen randomisierten Datensatz von einer Variable in einer Forschungslinie zu erstellen. Ziel ist dabei, eine Möglichkeit des Vergleichs zu erzeugen.(hier: Sonderforschungsgruppen)
212
213```{r Lade randomisierten Datensatz df_Sonderf}
214# aus der Gesamttabelle wird ein subset erstellt, das die gewünschte Variable, die Forschungslinie und die ID umfasst
215df_Bet_Inst <- df[c("Bet_Inst", "DFG_Verf", "Proj_Num")]
216# Entferne doppelte Zeilen
217df_Bet_Inst <- distinct(df_Bet_Inst)
218# Entferne leere Zeilen
219df_Bet_Inst <- df_Bet_Inst[complete.cases(df_Bet_Inst), ]
220# Wähle Variable "Sonderforschungsbereiche" aus
221df_Sonderf <- df_Bet_Inst %>% filter(DFG_Verf == "Sonderforschungsbereiche")
222# Erstelle subset aus 10 randomisierten Gruppen
223df_Sonderf <- df_Sonderf[sample(nrow(df_Sonderf), 20), ]
224
225```
226
227Dazu erstelle ich einen zweiten, ebenfalls randomisierten Datensatz aus der gleichen Variable, die jedoch eine andere Forschungslinie umfasst. (hier: Excellenzcluster)
228```{r Lade randomisierten Datensatz df_Excl}
229# aus der Gesamttabelle wird ein subset erstellt, das die gewünschte Variable, die Forschungslinie und die ID umfasst
230df_Bet_Inst <- df[c("Bet_Inst", "DFG_Verf", "Proj_Num")]
231# Entferne doppelte Zeilen
232df_Bet_Inst <- distinct(df_Bet_Inst)
233# Entferne leere Zeilen
234df_Bet_Inst <- df_Bet_Inst[complete.cases(df_Bet_Inst), ]
235# Wähle Variable "Sonderforschungsbereiche" aus
236df_Excl <- df_Bet_Inst %>% filter(DFG_Verf == "Exzellenzcluster")
237# Erstelle subset aus 10 randomisierten Gruppen
238df_Excl <- df_Excl[sample(nrow(df_Excl), 20), ]
239
240```
241
242Nun möchte ich zunächst für beide Subsets die Adressdaten auswerten und in long lat umformatieren
243```{r Adressspalten mit long lat erstellen}
244## für df_Bet_Inst_Sonderf
245
246#eine Spalte wird angefügt, die lediglich die Adressinformationen enthält -> inhalt eckiger Klammern
247df_Sonderf$Adress <- str_extract_all(df_Sonderf$Bet_Inst, "\\[\\d+\\s\\w+,\\s\\w+\\]")
248#korrigiere händisch ggf. fehlerhafte Einträge: abhängig von randomisierten sample
249# Die Adressinformationen werden separiert und in einem zweiten Df erfasst
250df_Sonderf2 <- str_split(df_Sonderf$Adress, '", "',simplify = TRUE) %>% as.data.frame()
251# Dort werden die Informationen lesbar aufgearbeitet: alle überflüssigen Zeichen werden entfernt
252for (i in 1:ncol(df_Sonderf2)){
253 df_Sonderf2[, i] <- str_replace_all(df_Sonderf2[[i]],"(\\[)|(\\])|c\\(|\"|\\)"," ")
254 df_Sonderf2[, i] <- str_trim(df_Sonderf2[[i]])
255}
256
257# die lat lon Koordinaten werden erstellt und dabei der ursprünglichen ID zugeordnet, angegeben werden müssen alle Spalten in Sonderf2
258df_Sonderf_geo <- cbind(df_Sonderf$Proj_Num, geocode(as.character(c(df_Sonderf2$V1, df_Sonderf2$V2, df_Sonderf2$V3, df_Sonderf2$V4))))
259#entferne leere Zeilen
260df_Sonderf_geo <- df_Sonderf_geo[complete.cases(df_Sonderf_geo), ]
261# Namensgebung ID
262names(df_Sonderf_geo)[names(df_Sonderf_geo)=="df_Sonderf$Proj_Num"] <- "ID"
263
264
265## für df_Bet_Inst_Excl
266
267#eine Spalte wird angefügt, die lediglich die Adressinformationen enthält -> inhalt eckiger Klammern
268df_Excl$Adress <- str_extract_all(df_Excl$Bet_Inst, "\\[\\d+\\s\\w+,\\s\\w+\\]")
269#korrigiere händisch ggf. fehlerhafte Einträge
270df_Excl$Adress[13] <- str_extract_all(df_Excl$Bet_Inst[13], "\\[\\d+\\s\\w+\\s\\w+,\\s\\w+\\]")
271# Die Adressinformationen werden separiert und in einem zweiten Df erfasst
272df_Excl2 <- str_split(df_Excl$Adress, '", "',simplify = TRUE) %>% as.data.frame()
273# Dort werden die Informationen lesbar aufgearbeitet: alle überflüssigen Zeichen werden entfernt
274for (i in 1:ncol(df_Excl2)){
275 df_Excl2[, i] <- str_replace_all(df_Excl2[[i]],"(\\[)|(\\])|c\\(|\"|\\)"," ")
276 df_Excl2[, i] <- str_trim(df_Excl2[[i]])
277}
278# die lat lon Koordinaten werden erstellt und dabei der ursprünglichen ID zugeordnet, angegeben werden müssen alle Spalten in Sonderf2
279df_Excl_geo <- cbind(df_Excl$Proj_Num, geocode(as.character(c(df_Excl2$V1, df_Excl2$V2, df_Excl2$V3, df_Excl2$V4, df_Excl2$V5, df_Excl2$V6))))
280#entferne leere Zeilen
281df_Excl_geo <- df_Excl_geo[complete.cases(df_Excl_geo), ]
282
283# Namensgebung ID
284names(df_Excl_geo)[names(df_Excl_geo)=="df_Excl$Proj_Num"] <- "ID"
285```
286
287Schließlich werden 2 Karten zum Vergleich vorbereitet
288Zunächst wird die Karte vorbereitet. Hier mit Ausschnitt Deutschland
289```{r Karte Sonderf}
290Germany.map <- qmap(location= 'Germany' , zoom = 6, color="bw")
291
292#Einsetzen der Adressen für Sonderf auf Deutschland Karte
293map_Sonderf <- Germany.map + geom_point(aes(x = lon, y = lat, color = ID),data = df_Sonderf_geo) + geom_path(aes(x = lon, y = lat, color = ID),data = df_Sonderf_geo)
294map_Sonderf
295```
296
297
298
299```{r Karte Excl}
300#Einsetzen der Adressen für Excl auf Deutschland Karte
301map_Excl <- Germany.map + geom_point(aes(x = lon, y = lat, color = ID),data = df_Excl_geo) + geom_path(aes(x = lon, y = lat, color = ID),data = df_Excl_geo)
302map_Excl
303```
304
305
306
307
308## Erklärung zu den Karten
309
310Die obigen Karten zeigen
3111. die Verteilung von einer randomisierten Auswahl an Beteiligten Institutionen der Sparte "Sonderforschungsgruppen". Institutionen aus einem Projekt sind in derselben Farbe markiert und der Abstand gekennzeichnet.
3122. die Verteilung von einer randomisierten Auswahl an Beteiligten Institutionen der Sparte "Exzellenzcluster". Institutionen aus einem Projekt sind auch hier in derselben Farbe markiert und der Abstand gekennzeichnet.
313
314In dieser Auswahl (die bei jedem Durchlauf der Randomisierung natürlich verändert wird) zeigen sich bisher keine auffälligen Unterschiede zwischen den Forschungslinien.