In wpa: Tools for Analysing and Visualising Viva Insights Data

Trends

How are behaviors impacting wellbeing evolving?

Column {data-width=33%}

Balance {.no-title}

# Weekend work
# % Active on the weekend

if(sum(my_sq_data$Weekend_work, na.rm = TRUE) == 0){

  md2html("## Note: there is insufficient data to display.")

} else {

  create_tracking(
    data = my_sq_data,
    metric = "Weekend_work",
    plot_title = "Weekend work",
    plot_subtitle = "% of employees active on the weekend",
    percent = TRUE
)
}

Focus {.no-title}

# % of work week with focus time
create_tracking(
  data = my_sq_data,
  metric = "Total_focus_hours_daily",
  plot_title = "Focus Time",
  plot_subtitle = "Average daily focus hours",
  percent = FALSE
)

Column {data-width=33%}

Flexibility {.no-title}

# % of employees who limit their activity to 8 or fewer distinct hours
create_tracking(
  data = flex_index_data,
  metric = "ControlHours",
  plot_title = "Control Active Hours",
  plot_subtitle = "% of employees controlling active hours",
  percent = TRUE
)

Urgency {.no-title}

# PREVIOUS: Average after hours collaboration for urgent weeks

if(sum(my_sq_data$IsUrgent, na.rm = TRUE) == 0){

  md2html("## Note: there is insufficient data to display.")

} else {

  my_sq_data %>%
    # filter(IsUrgent == TRUE) %>%
    create_tracking(
      metric = "IsUrgent",
      plot_title = "Urgent collaboration",
      plot_subtitle = "% of employees who have experienced urgent collaboration",
      percent = TRUE
    )
}

Column {data-width=33%}

Activity patterns {.no-title}

# Always on
# % of employees who are active for over 13+ hours a day

wp_list$data %>%
  mutate(IsAlwaysOn = (Personas == "6 Always on (13h+)")) %>%
  create_tracking(
    metric = "IsAlwaysOn",
    plot_title = "Always On",
    plot_subtitle = "% of employees who are active for over 13+ hour blocks a day",
    percent = TRUE
    )

Community {.no-title}

# small group meetings
# % of meeting time in a small group setting

if(sum(my_sq_data$Intimate_group_meeting_hours, na.rm = TRUE) == 0){

  md2html("## Note: there is insufficient data to display.")

} else {

  my_sq_data %>%
    mutate(SmallGroupMeetingPercent = Intimate_group_meeting_hours / Meeting_hours) %>%
    create_tracking(
      metric = "SmallGroupMeetingPercent",
      plot_title = "Small group meetings",
      plot_subtitle = "Average % of meeting time in a small group setting",
      percent = TRUE
  )
}