Translates 4-digit ISCO88COM to WRIGHT. — isco88com_to

This function translates a vector of 4-digit ISCO88COM codes to the E.O Wright class schema.

Usage

isco88com_to_wright(
  x,
  is_supervisor,
  self_employed,
  n_employees,
  control_work,
  control_daily,
  type,
  label = FALSE,
  to_factor = FALSE
)

Arguments

x: A character vector of 4-digit ISCO codes. This should be the 4-digit equivalent so instead of 131, the code should be 1310, which is the 4-digit version of of the 4-digit ISCO.
is_supervisor: A numeric vector indicating whether each individual is a supervisor (1, e.g. responsible for other employees) or not (0).
self_employed: A numeric vector indicating whether each individual is self-employed (1) or an employee (0).
n_employees: A numeric vector indicating the number of employees under each respondent.
control_work: A likert-scale type question from 0 to 10 where 0 is whether an individual has no control over their work/organisation decisions and 10 is complete control over work/organization decisions. For an example, see the variable iorgact in the European Social Survey.
control_daily: A likert-scale type question from 1 to 4 where 1 means complete control to decide how their own daily work is/was organised and 4 means no control to decide how their own daily work is/was organised. For an example, see the variable orgwrk in the European Social Survey. Another example is recoding the variable wkdcorga from the European Social Survey such that 8-10 is 1, 5-7 is 2, 2-4 is 3 and 0-1 is 4.
type: The type of translation to make. Possible values are "simple", "decision-making" and "power-class".
label: A logical value indicating whether to return the labels of the translated WRIGHT codes (default is FALSE).
to_factor: A logical value indicating whether to return a factor instead of a character. The order of the labels is taken from the sorted codes of WRIGHT which can be found in the source code of each function.

Details

The translation implemented in this function was originally developed by Erik Olin Wright. There are three possible types of translations: the "simple" version, the "decision-making" version and the "power-class" version. This translation was implemented following the SPSS script from Håkon Leiulfsrud and Heidi Jensberg. For more information, please contact the authors.

For more information on this class schema, please check the references below:

Leiulfsrud, H., I. Bison & H. Jensberg (2005) Social Class in Europe: European Social Survey 2002/3. Official ESS Report. NTNU Social Research in Trondheim & Department of Social Research, Trento University. https://www.europeansocialsurvey.org/docs/methodology/ESS1_social_class.pdf
Leiulfsrud, H., Bison, I. and Solheim, E. (2010), Social Class in Europe II: The European Social Survey 2002–2008, Trondheim: NTNU. https://www.researchgate.net/publication/317624268_Social_Class_in_Europe_II
Wright, E. (1978): Class, Crises and the State. London: New Left Books.
Wright, E. O. (1985): Classes. London: New Left Books.
Wright, E. O. (1997): Class Counts: Comparative studies in class analyses. Cambridge: Cambridge University Press.
Wright, E. O. (2005) Approaches to Class Analysis. Cambridge: Cambridge University Press.

Examples

library(dplyr)

# E.O Wright - Simple translation
ess %>%
  transmute(
    isco88com,
    wr_simple = isco88com_to_wright(
      isco88com,
      is_supervisor,
      self_employed,
      emplno,
      control_work,
      control_daily,
      type = "simple"
    ),
    wr_simple_label = isco88com_to_wright(
      isco88com,
      is_supervisor,
      self_employed,
      emplno,
      control_work,
      control_daily,
      type = "simple",
      label = TRUE
    )
  )
#> # A tibble: 48,285 × 3
#>    isco88com wr_simple wr_simple_label           
#>    <chr>     <chr>     <chr>                     
#>  1 5169      3         Self empl w/no empoyees   
#>  2 1222      7         Skilled manager/superv    
#>  3 8120      12        Low skilled workers       
#>  4 7141      7         Skilled manager/superv    
#>  5 6111      9         Skilled workers           
#>  6 6111      7         Skilled manager/superv    
#>  7 9313      10        Low skilled manager/superv
#>  8 1221      7         Skilled manager/superv    
#>  9 1221      2         Self empl w/1-9 employees 
#> 10 6111      7         Skilled manager/superv    
#> # ℹ 48,275 more rows

# E.O Wright - Decision-making translation
ess %>%
  transmute(
    isco88com,
    wr_decision = isco88com_to_wright(
      isco88com,
      is_supervisor,
      self_employed,
      emplno,
      control_work,
      control_daily,
      type = "decision-making"
    ),
    wr_decision_label = isco88com_to_wright(
      isco88com,
      is_supervisor,
      self_employed,
      emplno,
      control_work,
      control_daily,
      type = "decision-making",
      label = TRUE
    )
  )
#> # A tibble: 48,285 × 3
#>    isco88com wr_decision wr_decision_label        
#>    <chr>     <chr>       <chr>                    
#>  1 5169      3           Self empl w/no empoyees  
#>  2 1222      9           Skilled workers          
#>  3 8120      NA          NA                       
#>  4 7141      9           Skilled workers          
#>  5 6111      9           Skilled workers          
#>  6 6111      8           Skilled supervisors      
#>  7 9313      NA          NA                       
#>  8 1221      NA          NA                       
#>  9 1221      2           Self empl w/1-9 employees
#> 10 6111      NA          NA                       
#> # ℹ 48,275 more rows

# E.O Wright - Power-class translation
ess %>%
  transmute(
    isco88com,
    wr_power = isco88com_to_wright(
      isco88com,
      is_supervisor,
      self_employed,
      emplno,
      control_work,
      control_daily,
      type = "power-class"
    ),
    wr_power_label = isco88com_to_wright(
      isco88com,
      is_supervisor,
      self_employed,
      emplno,
      control_work,
      control_daily,
      type = "power-class",
      label = TRUE
    )
  )
#> # A tibble: 48,285 × 3
#>    isco88com wr_power wr_power_label     
#>    <chr>     <chr>    <chr>              
#>  1 5169      3        Self empl          
#>  2 1222      7        Skilled workers    
#>  3 8120      NA       NA                 
#>  4 7141      7        Skilled workers    
#>  5 6111      7        Skilled workers    
#>  6 6111      5        Skilled supervisors
#>  7 9313      NA       NA                 
#>  8 1221      NA       NA                 
#>  9 1221      2        Small Employers    
#> 10 6111      NA       NA                 
#> # ℹ 48,275 more rows