The universe

• r, RStudio, GitHub are the basic tools for an integrated workflow.

• Preferably, we work with r objects.

• Preferably, we save code in r script files.

• clone, push, pull, and commit the basic git verbs.

• Functions have the structure {function name}(). But, writing custom functions need this structure function(){}

• Packages simplify the workflow but may not be always maintained.

Work routine template

1. Forth-and-back code writing in the console

2. Save working code in an r script file

3. Create Rproject to ensure path dependencies

4. Create and/ or clone online repository on GitHub

5. git commit and git push the r script file on GitHub online repository

6. git pull commited updates from online repository

Good for

Repetitive tasks can be reduced through the use of code and a designated work environment.

Among the domains where this is an asset are:

1. Research: Data analysis and results interpretation, writing manuscripts, and adhering to open science.
2. Applied sector: Writing of repetitive reports.
3. Education: Transparent homework.

Elements and structure

Rmarkdown is an enhanced document type that supports plain text, code and formatting, and from which output file formats can be rendered: PDF, DOCX, HTML are the most common formats.

• .Rmd editable markdown document in R

• knitr engine (jupyter engine for python)

• md simplified markdown document in a markup language

• pandoc document converter

Elements and structure

What we need to focus on is the .Rmd (or the new generation .qmd addressed in the next sessions).

flowchart LR
  A(Plain text) --> Z{.Rmd}
  B(Code) --> Z{.Rmd}
  C(Images) --> Z{.Rmd}
  D(External source file) --> Z{.Rmd}
  E(Formatting source file) --> Z{.Rmd}
  F(...) --> Z{.Rmd}

Elements and structure

When knitting to an HTML output format we don’t need anything else to install.

But, when knitting to a PDF output format we’d need a latex distribution!

# to install tinytex distribution 
install.packages('tinytex')
tinytex::install_tinytex()
# to uninstall TinyTeX, run tinytex::uninstall_tinytex() 

Live/ enhanced documents

Documents that are coded to retrieve data and/ or information from external source material (e.g., datasets or meta-data such as from Excel sheets).

This is the building block for creating all sorts of automatized reports.

Path dependencies

Working with .Rprojtakes care of that.

Otherwise, paths to external source files need to be called adequately.

SUBFOLDER/FILE.FORMAT TYPE

.Rmd inside an .Rproj

.Rmd elements

`r code here`

Rmarkdown basics

`backstick`

* Item 1
* Item 2
    + Item 2a
    + Item 2b

1. Item 1
2. Item 2
3. Item 3
    + Item 3a
    + Item 3b

Some yaml parameters

Copy-paste from Stanciu et al. (2024)

title: "Can human values explain one’s interest in cryptocurrencies? An explorative study in Germany"
author: 
  - name: "Adrian Stanciu"
    affiliation_number: 1
  - name: "Melanie Partsch"
    affiliation_number: 1
  - name: "Clemens Lechner"
    affiliation_number: 1
affiliations:
  - "GESIS-Leibniz Institute for the Social Sciences, Mannheim"
  - "University of Bremen, Bremen"
shorttitle: "Values and cryptocurrencies"
authors_note: "For correspondence contact Dr. Adrian Stanciu, Data and Research on Society, GESIS-Leibniz Institute for the Social Sciences, PO Box 12215, 68072 Mannheim, Germany. Email: adrian.stanciu[at]gesis.org"
abstract: "Write abstract here"
keywords: "Values, Cryptocurrencies, Germany"
date: "`r format(Sys.time(), '%d. %B, %Y')`"
doctype: doc
header-includes:
  - \usepackage{subfig}
output: 
  bookdown::pdf_document2:
    toc: False
    number_sections: False
    template: "style/template.tex"
csl: style/apa.csl
bibliography: reference.bib

Some r code chunk attributes

echo=TRUE # whether the code is displayed in the output file

eval=TRUE # whether the code is ran and the outcome generated

include=TRUE # whether the code and its outcome is included in the output document

# sets attributes for entire document
knitr::opts_chunk$set(echo = TRUE,eval=FALSE,warning = FALSE,message = FALSE)

Packages

We install using pacman the packages tidyverse, readxl (for reading Excel sheets), haven (for reading SPSS files), sjlabelled (for dealing with labelled dataframes), kable and kableExtra (for creating tables).

install.packages("pacman")
pacman::p_load(tidyverse,readxl,haven,sjlabelled,kable, kableExtra)

Data

We use the subsample data from Stanciu et al. (2017) and the movies.xlsx metadata.

# create an object dataframe example `dfex` and assign to it the .sav file `sample.sav` that was introduced previously
dfex<-haven::read_sav("data/sample.sav")

# create an object movies metadata `dfmv` and assign to it the .xlsx file `movies.xlsx`
# note the different paths to these files
# note that we specify which sheet to read too; here only sheet 1 is imported
dfmv<-readxl::read_excel("mat/movies.xlsx",1)

# check if the source material was imported successfully 
# by observing the first lines in the tables
head(dfex)

# A tibble: 6 × 9
    ppn gen          age res       res_other men_warm men_comp wom_warm wom_comp
  <dbl> <dbl+lbl>  <dbl> <dbl+lbl> <chr>     <dbl+lb> <dbl+lb> <dbl+lb> <dbl+lb>
1   459 1 [Female]    24  5 [Iasi] -99        3 [Und…  4 [Agr… 3 [Unde… 4 [Agre…
2   592 2 [Male]      21  5 [Iasi] -99        3 [Und…  4 [Agr… 3 [Unde… 3 [Unde…
3   634 2 [Male]      21 NA        petrosani  4 [Agr…  5 [Str… 4 [Agre… 4 [Agre…
4   369 1 [Female]    30  8 [Gala… -99       NA       NA       4 [Agre… 4 [Agre…
5   121 1 [Female]    21  4 [Timi… -99        4 [Agr…  3 [Und… 3 [Unde… 4 [Agre…
6   127 1 [Female]    20  4 [Timi… -99        4 [Agr…  4 [Agr… 4 [Agre… 2 [Disa…

head(dfmv)

# A tibble: 4 × 6
  Movie                       Actor                 Like  Why     Grade Wikilink
  <chr>                       <chr>                 <chr> <chr>   <dbl> <chr>   
1 John Wick                   Keanu Reeves          Yes   Fight …    10 https:/…
2 Call me by your name        Timothee Chalamet     Yes   Beauti…    10 https:/…
3 Terminator                  Arnold Schwarzenegger Yes   Arnold      9 https:/…
4 4 months 3 weeks and 2 days <NA>                  Yes   Portra…     8 https:/…

Plain vs. enhanced text

What to look for:

• what is repetitive

• what can be integrated from external source material

• what vector contains the desired information (character strings and numeric vectors behave differently)

Plain vs. enhanced text

This is an example of how automatization can be implemented in the work flow. 
My list of movies include `r nrow(dfmv)` entries. 
The title of those movies are `r dfmv$Movie`. 
Is there a movie that I actually dont like on that list, well, the answer is that I dislike exactly 
`r dfmv %>% filter(Like %in% c("No","no","NO")) %>% nrow()`
movies on that list.

nrow(dfmv) # My list of movies includes...entries

[1] 4

dfmv$Movie # Title of those movies are...

[1] "John Wick"                   "Call me by your name"       
[3] "Terminator"                  "4 months 3 weeks and 2 days"

dfmv %>% filter(Like %in% c("No","no","NO")) %>% nrow() # ...I dislike exactly...

[1] 0

Graphs

dfex_n15<-haven::read_sav("data/tmpdf1.sav") %>% 
  sjlabelled::remove_all_labels() %>% 
  mutate(gen=factor(gen),
         res=factor(res))

ggplot(dfex_n15, aes(x=gen, y=wom_warm)) + 
  labs(x="Gender",
       y="Stereotype of warmth") +
  geom_boxplot() + 
  theme_light()

dfex_n60<-haven::read_sav("data/tmpdf2.sav") %>% 
  sjlabelled::remove_all_labels() %>% 
  mutate(gen=factor(gen),
         res=factor(res))

ggplot(dfex_n60, aes(x=gen, y=wom_warm)) + 
  labs(x="Gender",
       y="Stereotype of warmth") +
  geom_boxplot() + 
  theme_light()

dfex<-haven::read_sav("data/sample.sav") %>% 
  sjlabelled::remove_all_labels() %>% 
  mutate(gen=factor(gen),
         res=factor(res))

ggplot(dfex, aes(x=gen, y=wom_warm)) + 
  labs(x="Gender",
       y="Stereotype of warmth") +
  geom_boxplot() + 
  theme_light()

Tables

dfmv %>% knitr::kable(caption="Simple table using knitr::kable()",format = "pipe")

# does some data manipulation to retrieve the required information
tmptbl<-dfmv %>% 
  filter(Actor %in% c("Keanu Reeves", "Alec Baldwin"))

# creates an empty table holder that is our summary table that we'd
# want to include in the final output document
extbl<-tibble(
  
  like=tmptbl[ tmptbl$Grade >= 8 & tmptbl$Like %in% c("Yes","No"), ]$Like,
  name=tmptbl[ tmptbl$Grade >= 8 & tmptbl$Like %in% c("Yes","No"), ]$Actor,
  movie=tmptbl[ tmptbl$Grade >= 8 & tmptbl$Like %in% c("Yes","No"), ]$Movie,
  wiki=tmptbl[ tmptbl$Grade >= 8 & tmptbl$Like %in% c("Yes","No"), ]$Wikilink
  
)
  
extbl %>% knitr::kable(caption="Movies graded 8 or more from liked and least like actors", format="pipe")

DIY – Edit the .xlsx sheet

Open Microsoft Excel movies.xlsx and add one or more movies by actor Alec Baldwin while pretending you dislike the actor.

Or, you modify the table code and replace the two actors with actors you dislike and like and update the Excel sheet accordingly making sure you maintain the sheet structure.

Re-knit the tables.

Parameters

Defined the parameters in the yaml head.

Progress illustrative example

Name of actors in the Excel sheet movies.xlsx.

Which of the stereotype evaluation from subsample Stanciu et al. (2017) we’d want to use for graph creation.

Also, which dataset we use.

Set up – yaml header

title: "example"
output: html_document
date: "2025-03-31"
params:
  actor:
    label: "Actor"
    value: "Keanu Reeves"
    input: select
    choices: ["Keanu Reeves", "Alec Baldwin","Arnold Schwarzenegger"]
    multiple: yes
  stereotype:
    label: "Stereotype evaluation"
    value: wom_warm
    input: select
    choices: [wom_warm,wom_comp,men_warm,men_comp]
    multiple: no
  sampledf:
    label: "Dataset version"
    value: sample.sav
    input: select
    choices: [sample.sav,tmpdf1.sav,tmpdf2.sav]
    multiple: no

Using parameters in code

We can either use directly or assign to an object.

actor<-params$actor
st<-params$stereotype

Using parameters in code

# 1 - imports dataset into object tempdf
tempdf<-haven::read_sav("data/tmpdf1.sav") %>% 
  sjlabelled::remove_all_labels() %>% 
  pivot_longer(contains("warm") | contains("comp")) %>% 
  filter(name %in% st)

# 2 - applies the ggplot to the dataset
ggplot(tempdf, aes(x=factor(gen), y=value)) + 
  labs(title=paste0("Evaluation based on ",st), 
       x="Gender",
       y="Stereotype") +
  geom_boxplot() + 
  theme_light()

Using parameters in code

# does some data manipulation to retrieve the required information
tmptbl<-dfmv %>% 
  filter(Actor %in% actor)

# creates an empty table holder that is our summary table that we'd
# want to include in the final output document
extbl<-tibble(
  
  like=tmptbl[ tmptbl$Grade >= 8 & tmptbl$Like %in% c("Yes","No"), ]$Like,
  name=tmptbl[ tmptbl$Grade >= 8 & tmptbl$Like %in% c("Yes","No"), ]$Actor,
  movie=tmptbl[ tmptbl$Grade >= 8 & tmptbl$Like %in% c("Yes","No"), ]$Movie,
  wiki=tmptbl[ tmptbl$Grade >= 8 & tmptbl$Like %in% c("Yes","No"), ]$Wikilink
  
)

Where is the difference

tmptbl<-dfmv %>% 
  filter(Actor %in% c("Keanu Reeves", "Alec Baldwin"))

tmptbl<-dfmv %>% 
  filter(Actor %in% actor)

Knit with parameters

Even more…

One other way to work with parameterized reports is to code the document such that it creates tables (or anything else for that matter) using a specific dataset.

sampledf<-paste0("data/",params$sampledf) # assigns parameter
abc<-haven::read_sav(sampledf) # uses parameter in code

abc %>% 
  sjlabelled::remove_all_labels() %>% 
  pivot_longer(contains("warm") | contains("comp")) %>% 
  group_by(name) %>% 
  summarise(mean=mean(value, na.rm = TRUE), # we use missing remove TRUE (na.rm=TRUE) to make sure r gives an output
            sd=sd(value, na.rm = TRUE),
            min=min(value, na.rm = TRUE),
            max=max(value, na.rm = TRUE))

DIY – parameterized reports

Download from the R beyond data analysis book the Examples .rmd and think of new parameters to add to the document.

https://adrian-stanciu.quarto.pub/r-beyond-data-analysis/