Renamed columns

odissei-data · Aug 7, 2024 · 28755d7 · 28755d7
1 parent e9fc368
commit 28755d7
Show file tree

Hide file tree

Showing 6 changed files with 16 additions and 12 deletions.
diff --git a/Data/odissei-projects-clean_CBS.csv b/Data/odissei-projects-clean_CBS.csv
@@ -1,4 +1,4 @@
-"","title","CBS_project_nr","project_lead","ODISSEI_grant","publication","data","code","programming.language"
+"","Title","CBS project nr.","Project lead","ODISSEI grant","Publication","Data","Code","Code Language"
 "1","Children's strains, parents' pains? How adult children's union dissolution influences older parents' health","","<a href=""https://orcid.org/0000-0002-6215-203X"">Damiano Uccheddu</a>",NA,"<a href=""https://doi.org/10.20377/jfr-774"">doi</a>","CBS microdata, SHARE","<a href=""https://doi.org/10.5281/zenodo.7443895"">link</a>","Stata"
 "2","Let's Stick Together: Peer Effects in Secondary School Choice and Variations by Student Socio-Economic Background","9232","<a href=""https://orcid.org/0000-0002-5898-5557"">Dieuwke Zwier</a>",NA,"<a href=""https://doi.org/10.1093/esr/jcac033"">doi</a>","CBS microdata, NCO","<a href=""https://osf.io/xt4cq/"">link</a>","Stata"
 "3","Knowing me, knowing you: Socio-economic status and (segregation in) peer and parental networks in primary school","9232","<a href=""https://orcid.org/0000-0002-5898-5557"">Dieuwke Zwier</a>",NA,"<a href=""https://doi.org/10.1016/j.socnet.2023.03.003"">doi</a>","CBS microdata, PRIMS","<a href=""https://osf.io/fvqtc/"">link</a>","R"

diff --git a/Data/odissei-projects-clean_LISS.csv b/Data/odissei-projects-clean_LISS.csv
@@ -1,4 +1,4 @@
-"","title","project_lead","ODISSEI_grant","publication","data","link_data","code","programming.language"
+"","Title","Project lead","ODISSEI grant","Publication","Data","Link to data","Code","Code Language"
 "1","Hours and income dynamics during the Covid-19 pandemic: The case of the Netherlands","<a href=""https://orcid.org/0000-0001-8519-9781"">Hans-Martin von Gaudecker</a>","","<a href=""https://doi.org/10.1016/j.labeco.2021.102055"">Journal article</a>","LISS panel data","<a href=""https://doi.org/10.17026/dans-zva-nzcq"">data</a>","<a href=""https://github.com/ChristianZimpelmann/replication-work-hours-covid/tree/main"">link</a>","Python"
 "2","Greed:What Is It Good for?","<a href=""https://orcid.org/0000-0003-4029-9847"">Karlijn Hoyer</a>","LISS Grant 2018","<a href=""https://doi.org/10.1177/01461672221140355"">Journal article</a>","LISS panel data","<a href=""https://doi.org/10.17026/dans-2xb-7f3j"">data</a>","<a href=""https://researchbox.org/572"">link</a>","R"
 "3","Further tests of the scarcity and luxury hypotheses in dispositional greed: Evidence from two large-scale Dutch and American samples","<a href=""https://orcid.org/0000-0003-4029-9847"">Karlijn Hoyer</a>","LISS Grant 2018","<a href=""https://doi.org/10.1007/s12144-021-02467-z"">Journal article</a>","LISS panel data","<a href=""https://doi.org/10.17026/dans-2xb-7f3j"">data</a>","<a href=""https://researchbox.org/177"">link</a>","R"

diff --git a/Scripts/data_cleaning_CBS.R b/Scripts/data_cleaning_CBS.R
@@ -25,6 +25,7 @@ df2 = df2 |>
 
 head(df2)
 
+colnames(df2) = c("Title", "CBS project nr.", "Project lead", "ODISSEI grant", "Publication", "Data", "Code", "Code Language")
 
 ## Export ----
 write.csv(df2, "Data/odissei-projects-clean_CBS.csv")

diff --git a/Scripts/data_cleaning_LISS.R b/Scripts/data_cleaning_LISS.R
@@ -35,6 +35,8 @@ df2 = df2 |>
 
 head(df2)
 
+colnames(df2) = c("Title", "Project lead", "ODISSEI grant", "Publication", "Data", "Link to data", "Code", "Code Language")
+
 
 ## Export ----
 write.csv(df2, "Data/odissei-projects-clean_LISS.csv")
diff --git a/Scripts/script.Rmd b/Scripts/script.Rmd
@@ -33,9 +33,9 @@ Do you want to submit your own project and code to be added to the library? Plea
 # Code libraries
 ## CBS microdata 
 ```{r loaddataCBS}
-df = read.csv("C:/Users/angel/Documents/GitHub/odissei/ODISSEI-code-library/Data/odissei-projects-clean_CBS.csv", encoding = "UTF-8")
-df$project_lead = gsub("<e8>", "è", df$project_lead)
-
+df = read.csv("C:/Users/angel/Documents/GitHub/odissei/ODISSEI-code-library/Data/odissei-projects-clean_CBS.csv", encoding = "UTF-8", check.names=FALSE)
+colnames(df)[1] = c("X")
+df$`Project lead` = gsub("<e8>", "è", df$`Project lead`)
 df = df |> dplyr:::select(-c("X")) 
 DT::datatable(df, escape = FALSE,
               filter = "top", 
@@ -47,7 +47,8 @@ DT::datatable(df, escape = FALSE,
 
 ## LISS panel
 ```{r loaddataLISS}
-df2 = read.csv("C:/Users/angel/Documents/GitHub/odissei/ODISSEI-code-library/Data/odissei-projects-clean_LISS.csv", encoding = "UTF-8")
+df2 = read.csv("C:/Users/angel/Documents/GitHub/odissei/ODISSEI-code-library/Data/odissei-projects-clean_LISS.csv", encoding = "UTF-8", check.names=FALSE)
+colnames(df2)[1] = c("X")
 df2 = df2 |> dplyr:::select(-c("X")) 
 DT::datatable(df2, escape = FALSE,
               filter = "top",