Person

Context

Given increasing demands to improve diversity, equity, and inclusion (DEI) for women at work, imagine that there has been a mandate from your firm that each team (including yours) give insights about a new Gender Diversity, Equity, and Inclusion Advisor.

Your supervisor wants to know what would be useful for this role to be successful. The focus of this role is to improve DEI efforts.

This role is going to be occupied by an external hire who will help coordinate DEI efforts across the company.
Gender Diversity, Equity, and Inclusion Advisor:
– Form and organize a committee that is tasked with improving gender diversity, equity, and inclusion in the organization.
– Design, measure, analyze, and interpret internal surveys assessing employee’s current approval of initiatives around gender diversity, equity, and inclusion.
– Design, measure, analyze, and interpret internal surveys assessing employee’s desire for additional gender diversity, equity, and inclusion-based initiatives.
– Present results of these analyses to organizational stakeholders.
– Describe and justify gender diversity, equity, and inclusion-related processes to employees and organizational stakeholders.
– Receive and address all gender diversity, equity, and inclusion-related complaints from employees.
– Hold 1-2 weekly “office hours” for colleagues to get advice or input about effectively implementing gender diversity, equity, and inclusion practices.
– Identify and reinforce the industry standard for gender diversity, equity, and inclusion practices.
– Monitor project managers’ compliance with organizational guidelines for enhancing gender diversity, equity, and inclusion.
– Generate and maintain a network of people external to the organization with expertise in gender diversity, equity, and inclusion.

Vignette

Imagine that, during a meeting, [SOLICITOR PSEUDONYM] encourages you, specifically, to share suggestions and concerns with the team. Specifically, they ask:

“[PARTICIPANT PSEUDONYM], do you have anything to add about this position?”

Coworker characteristics

1. Voice solicitation (1 = Not at all, 4 = Sometimes, 7 = Very much so) - Asks me personally to tell them about things that I think would be helpful for improving this organization. - Asks me personally to tell them about how things have been done in my previous job(s).
- Seeks out task-related knowledge from me.
- Asks me personally what skills I have that they may not know about that might contribute to our performance.

2. Sentiment Before this interaction, how would you describe your general sentiment toward [SOLICITOR PSEUDONYM] (-3 = Very negative, 3 = Very positive)?

3. Years known How long have you known [SOLICITOR PSEUDONYM]? 6 months or less, 6 months to 1 year, 1-3 years, 4-6 years, 7-9 years, 10-12 years, 13-15 years, 15+ years

Manipulations

## 
## female   male        
##     96     98      0

Analyses

bind_rows(dlist)

Controls

bind_rows(dlist)

Moderators

moderatorlist <- expand.grid(
  moderators = c("sentiment_1", "years_known", "voicesol", "voice_solicit_1", "voice_solicit_2", "voice_solicit_3", "voice_solicit_4"),
  dvs = c("comp", "auto", "fsr", "token", "empower", "proactive", "agency", "warm", "reward", "socreward", "posstatus")
)
listmoderators <- vector("list")
graphlist <- vector("list")
graphs <- 1
for(variable in 1:nrow(moderatorlist)){
  data <- data.frame(
    iv = unlist(diffidp4raw$coworkergender),
    moderator = unlist(diffidp4raw[moderatorlist$moderators[variable]]),
    dv = unlist(diffidp4raw[moderatorlist$dvs[variable]]))
  regression <- lm(dv~iv*moderator, data)
  listmoderators[[variable]] <- regressiondata <-  coef(summary(regression)) %>% as.data.frame() %>%
    slice(4) %>% mutate(asterix = case_when(
      `Pr(>|t|)` < .10 ~ "*",
      `Pr(>|t|)` > .05 ~ "")) %>% mutate(moderator = moderatorlist$moderators[variable],
                                         dv = moderatorlist$dvs[variable]) %>% relocate(moderator, dv, asterix)
  if(regressiondata$`Pr(>|t|)` < .10){
    graphlist[[graphs]] <- sjPlot::plot_model(regression, type = "int", mdrt.values = "meansd", title = paste0("DV: ", moderatorlist$dvs[variable], "; Moderator: ", moderatorlist$moderators[variable]),
                       legend.title = moderatorlist$moderators[variable],
                       axis.title = moderatorlist$dvs[variable])
    graphs <- graphs+1
  }
}
bind_rows(listmoderators) %>%
  filter(asterix == "*")

graphlist

## [[1]]

## Ignoring unknown labels:
## • linetype : "moderator"
## • shape : "moderator"

## 
## [[2]]

## Ignoring unknown labels:
## • linetype : "moderator"
## • shape : "moderator"

## 
## [[3]]

## Ignoring unknown labels:
## • linetype : "moderator"
## • shape : "moderator"

## 
## [[4]]

## Ignoring unknown labels:
## • linetype : "moderator"
## • shape : "moderator"

## 
## [[5]]

## Ignoring unknown labels:
## • linetype : "moderator"
## • shape : "moderator"

## 
## [[6]]

## Ignoring unknown labels:
## • linetype : "moderator"
## • shape : "moderator"

## 
## [[7]]

## Ignoring unknown labels:
## • linetype : "moderator"
## • shape : "moderator"

## 
## [[8]]

## Ignoring unknown labels:
## • linetype : "moderator"
## • shape : "moderator"