|
|
@@ -1,7 +1,8 @@
|
|
|
# clean workspace
|
|
|
rm(list=ls())
|
|
|
-#setwd("/home/aschmidt/R-Abbildungen/CK-Quest/")
|
|
|
-setwd("G:/OneDrive/paper/000_NFDI/create_images_for_paper")
|
|
|
+
|
|
|
+# The csv File has to be in the same directory
|
|
|
+setwd(dirname(rstudioapi::getSourceEditorContext()$path))
|
|
|
|
|
|
# clear the console
|
|
|
cat("\014")
|
|
|
@@ -26,23 +27,8 @@ neuro_data <- neuro_data2[!is.na(neuro_data2$My.current..primary..position.is.),
|
|
|
# Es geht um die Frage was die Leute die Daten teilen von den anderen Unterscheidet
|
|
|
# und insgesamt um die Frage was es fuer Probleme gibt in unserer Dateninfrastruktur
|
|
|
|
|
|
-# CK
|
|
|
colnames(neuro_data)[1]<-"Response.ID"
|
|
|
|
|
|
-#neuro_data = neuro_data %>%
|
|
|
-# select(-My.current..primary..position.is...Other.) %>%
|
|
|
-# mutate(My.current..primary..position.is. = str_replace(My.current..primary..position.is.,"imaging", "Imaging")) %>%
|
|
|
-# mutate(My.current..primary..position.is. = str_replace(My.current..primary..position.is.,"Theoretical", "Theoret.")) %>%
|
|
|
-# mutate(My.current..primary..position.is. = str_replace(My.current..primary..position.is.,"Theoretical", "Theoret.")) %>%
|
|
|
-# mutate(My.current..primary..position.is. = str_replace(My.current..primary..position.is.,"behavioral", "Behav.")) %>%
|
|
|
-# mutate(My.current..primary..position.is. = str_replace(My.current..primary..position.is.,"neuroscience", "Neurosci.")) %>%
|
|
|
-# mutate(My.current..primary..position.is. = str_replace(My.current..primary..position.is.,"Neuroscience", "Neurosci.")) %>%
|
|
|
-# mutate(My.current..primary..position.is. = str_replace(My.current..primary..position.is.,"e.g. electrophysiological recording behavior tracking ", "")) %>%
|
|
|
-# mutate(My.current..primary..position.is. = str_replace(My.current..primary..position.is.,"e.g. patient involvement clinical trials ", "")) %>%
|
|
|
-# mutate(My.current..primary..position.is. = str_replace(My.current..primary..position.is.,"science", "Science")) %>%
|
|
|
-# mutate(My.current..primary..position.is. = str_replace(My.current..primary..position.is.,"e.g. modeling simulation ", ""))
|
|
|
-
|
|
|
-
|
|
|
# remove one outlier ==> empty row
|
|
|
neuro_data = neuro_data[neuro_data$Response.ID != 78,]
|
|
|
|
|
|
@@ -2759,11 +2745,3 @@ pCP
|
|
|
|
|
|
|
|
|
|
|
|
-
|
|
|
-
|
|
|
-###########################################
|
|
|
-###########################################
|
|
|
-#### CK special plot wish ####
|
|
|
-# more elegant
|
|
|
-
|
|
|
-
|
