Проблематика
Для того чтобы управлять командой сотрудников необходимы чёткие KPI показатели, которые будут служить точным ориентиром в оценке эффективности их работы. Если в продажах все просто (лиды, сделки, конверсия, ROI и пр. показатели), то в процессной работе программистов, маркетологов, аналитиков, дизайнеров так четко измерить эффективность будет сложно т.к.:
Если в вашей команде более 1 человека - встаёт проблема, связанная со сложностью того, чтобы собрать в кучу всю информацию, в рамках оцениваемой продуктивности сотрудников.
Их результаты работы часто трудно оцифровать, а если и выбраны kpi то обработка данных, их учёт и ежедневный контроль может отнимать огромное количество рабочих часов.
Как решить первую задачу, не покупая лицензии agile платформ, я рассказал в своей предыдущей статье, а вот о том, как это все считать и наглядно визуализировать для оценки в общей рабочей среде мы поговорим ниже.
Решение задачи
В своей работе мы будем использовать таскменеджер Trello и пакет trelloR на языке программирования R. Почему именно такой "стек" можно ознакомиться тут>>
Перед тем как начать оценивать продуктивность выберем для себя основные kpi. Я буду оценивать продуктивность команды аналитиков и ключевыми показателями будут служить:
Объем решаемых задач за период
Скорость решения задач
Число задач закрытых в день постановки
Число закрытия "сложных" задач за период
*Это индивидуально мои метрики, которые важны в моей работе. Оценивать продуктивность, описываемым в этой статье методом, можно в любом разрезе, который только может прийти вам в голову и исходя из индивидуально вашего бизнес-процесса.
И так, сначала устанавливаем среду разработки и ключевые пакеты необходимые для работы. Для решения вышеописанной задачи нам потребуется установить пакеты для:
работы с API Trello — «trelloR»
работы со временем и временными периодами — «lubridate»
работы с таблицами и агрегации данных — «dplyr»
работы с визуализацией — «ggplot2»
сбор нескольких визуализаций в одну — «ggpubr»
Чтобы установить пакеты из основного репозитория CRAN примените базовую функцию install.packages, а для загрузки пакетов с github функцию install_github:
remotes::install_github("jchrom/trelloR")
install.packages("lubridate", dependencies = TRUE)
install.packages("dplyr ", dependencies = TRUE)
remotes::install_github("jchrom/trelloR")
install.packages("ggplot2", dependencies = TRUE)
install.packages("ggpubr ", dependencies = TRUE)Для отправки запросов к API Trello нам потребуется токен, как его получить можно прочесть тут>>*
Еще одним важным шагом перед визуализацией является стандартизация всех досок сотрудников в рамках ваших бизнес-процессов. В своей работы мы внедрили:
Единый набор меток для каждой из задач в Trello, разделив их по "срочности-важности" и по направлениям деятельности в рамках задачи
Метки в карточках Trello
Обязательное заполнение даты начала и даты окончания выполнения каждой из задач
Настройка даты в карточке Trello
Перенос всех выполненных задач в столбцы с единым форматом и указания месяца выполнения задачи
К сожалению, без предварительной стандартизации всех досок выполнить дальнейший анализ будет невозможно
Получаем данные для визуализации
# Подключаем все необходимые пакеты для работы
library(trelloR)
library(lubridate)
library(dplyr)
library(ggplot2)
library(ggpubr)
# Указываем путь к папке где лежит полученный ранее token
setwd("C:\\*********\\R_script\\trello")
# Собираем в список доски сотрудников, которых мы будем анализировать
board_id <- c("https://trello.com/b/wNV1HMse/максим-м",
"https://trello.com/b/tXrO68ix/максим-я",
"https://trello.com/b/fCZrgJYg/арсений",
"https://trello.com/b/HeLC3RVE/анатолий",
"https://trello.com/b/xweaki49/софия")
# Собираем циклом статистику со всех досок в общую таблицу
stattrello <- data.frame() # будущая сводная таблица
for (xi in 1:length(board_id)) {
cardList <- get_board_lists(board_id[xi], query = list(customFieldItems = "true"))
cardList$zadach <- NA # число задач за каждый период
for (i in 1:length(cardList$id)) {
cardList$zadach[i] <- nrow(get_list_cards(cardList$id[i]))
}
cardList$spec <- stringr::str_to_title(basename(board_id[xi]))
cardList <- cardList %>% select(id, spec, name, zadach)
stattrello <- bind_rows(stattrello,cardList)
}
Собираем списки карточек всех сотрудников и сводим их в единую таблицу для получения ID столбцов по периодам и числа выполненных задач за данные периоды:
# Фильтруем сводные данные только по задачам за последние 3 месяца.
# (эффективность по основным kpi будет оцениваться в разрезе этого периода)
lid <- stattrello %>% filter(grepl("20",stattrello$name)==T)
lid$name <- parse_date_time(lid$name, "my")
lidvse <- lid
lid <- lid %>% filter(name > floor_date(today() - months(3), "month"))
# Используя ID списков с карточками собираем задачи по каждому списку
allvcard <- data.frame() # Все задачи всех сотрудников
type_zadach <- data.frame() # Типы задач по направлениям
#Запускаем цикл для сбора
for (i in 1:nrow(lid)) {
cards_v <- get_list_cards(lid$id[i])
cards_v$spec <- lid$spec[i]
cards_v$datezad <- lid$name[i]
if(length(bind_rows(cards_v$labels))!=0){
tmp <- bind_rows(cards_v$labels) %>% group_by(name) %>% summarise(ЧислоЗадач = n())
tmp$spec <- max(cards_v$spec)
tmp$datezad <- max(cards_v$datezad)
type_zadach <- bind_rows(type_zadach,tmp)
cards_v <- tidyr :: unnest_longer(cards_v,labels)
cards_v <- rename(cards_v$labels, Naprav=3) %>% select(Naprav) %>%
bind_cols(cards_v) %>% select(id, due, Naprav,spec)
# В поле ID зашифрована дата создания карточки. Проводим расшифровку для всех задач
cardID <- cards_v$id[i]
dateList <- data.frame(dateadd = NA)
dateList[1,1] <- strtoi(strtrim(cardID, 8), 16L)
dateList$dateadd <- as.POSIXct(dateList$dateadd, origin = "1970-01-01")
dateList <- data.frame(dateadd = NA)
for (i in 1:length(cards_v$id)) {
cardID <- cards_v$id[i]
dateList[i,1] <- strtoi(strtrim(cardID, 8), 16L)
}
dateList$dateadd <- as.POSIXct(dateList$dateadd, origin = "1970-01-01")
cards_v["dateadd"] <- dateList$dateadd
# Вычисляем время от создания задачи до плановой даты её завершения
cards_v <- cards_v %>% bind_cols() %>% data.frame(
raznica = trunc(as.numeric(as.POSIXct(cards_v$due) - cards_v$dateadd)/24)) %>%
select(-due)
allvcard <- bind_rows(allvcard,cards_v)
}else{print("no")
}}После выполнения всех предварительных манипуляций с данными, мы можем приступить к оформлению
Визуализация
Выводим цифры в среду визуализации используя пакет ggplot2 и строим графики по каждому из показателей:
# Задаем единый стандарт отображения данных (стиль графиков)
tema <- theme(legend.position="right",axis.text=element_text(size=7),
axis.title=element_text(size=10,face="bold"),
legend.text=element_text(size=10),
legend.title = element_text(size=9),
plot.title = element_text(size=10),
plot.margin = margin(5, 20, 5.5, 5))
# Строим график по общему числу решенных задач за период
# Переводим даты в стандартный вид из того что были в списках Trello
stattrello$id <- as.character(as.Date(floor_date(as.POSIXct(strtoi(strtrim(stattrello$id, 8), 16L), origin = "1970-01-01"),"month"))+1)
# Подготавливаем столбцы к отображению на графике
stattrello <- stattrello %>% rename(date=id) %>% group_by(spec,date) %>% summarise(zadach = sum(zadach))
# Строим график
grafik_vse <- ggplot(data=stattrello, aes(x=as.character(date), y=zadach)) +
scale_fill_discrete(name = "Сотрудники" ) +
geom_bar(aes(fill=spec), position = position_dodge(), stat="identity") +
geom_text(aes(label=zadach, y = zadach +1, group = spec),
position = position_dodge(0.9), size=2.5) +
theme(legend.position="bottom",axis.text=element_text(size=7),
axis.title=element_text(size=10,face="bold"),
legend.text=element_text(size=10),
legend.title = element_text(size=9),
plot.title = element_text(size=10),
plot.margin = margin(10, 50, 20, 10)) +
labs(title = "Закрыто задач в прошлом периоде",
x = "Дата",
y = "Задач, шт.")
В результате получаем график по числу выполненных задач на каждого из сотрудников
Получаем графики и таблицы для остальных интересующих нас показателей:
# Формируем график по задачам для направлений деятельности
type_zad <- type_zadach %>% filter(grepl("ВАЖНО|Пауза", name)!=T) %>%
mutate(date = format(datezad, "%m-%Y")) %>%
group_by(spec,name) %>%
summarise(nwork= sum(ЧислоЗадач))
typ_p <- ggplot(data=type_zad, aes(x=name, y=nwork, group=spec)) +
scale_fill_discrete(name = "Сотрудники" ) +
geom_bar(aes(fill=spec), position = position_dodge(), stat="identity") +
geom_text(aes(label=nwork, y = nwork+1, group = spec),
position = position_dodge(0.9), size=2.5) +
tema +
labs(title = "Задачи по направлениям за 3 мес.",
x = "Дата",
y = "Задач, шт.")График по "фокусу" в направлениях деятельности для каждого из сотрудников
*Получение графиков и таблиц остальных kpi показателей происходит аналогично выше описанному методу визуализации данных. Дабы не мучать вас кодом, ограничимся на этих примерах=)
После того как мы собрали нужные нам графики их необходимо соединить в один файл - дашборд:
# Объединение визуализации
ggarrange(grafik_vse,
ggarrange(typ_p, p1,
ncol = 2, nrow = 1,
heights = c(1, 1),common.legend = T,legend = "bottom"),
nrow = 2,legend = "right")
# Сохраняем полученный файл для загрузки в Trello
ggsave("sotrudniki.png", width =25, height = 20, units = "cm", device="png")Итог сведения графиков:
Теперь визуализацию передаем в 1-ый список на нашем общем дашборде, который мы создавали в прошлой статье.
#Сначала удаляем старые визуалы если они там были
bid = get_id_board("o****W")
# 1ый лист в доске куда пишем наши графики
lid <- get_board_lists(bid)$id[1]
cid <- get_list_cards(lid)
# Удаление
delete_resource(resource = "card", id = cid$id[1])
delete_resource(resource = "card", id = cid$id[2])
# Создаем новые карточки в которые после добавим графики
payload = list(
idList = lid,
name = "Показатели работы",
pos = "bottom"
)
create_resource("card", body = payload)
payload = list(
idList = lid,
name = "Сводка",
pos = "bottom"
)
create_resource("card", body = payload)
# Снова обращаемся к этому листу с уже новыми но пока пустыми карточками
bid = get_id_board("o****W")
lid <- get_board_lists(bid)$id[1]
cid <- get_list_cards(lid)
# Добавляем наши сводные графики
add_card_attachment(cid$id[1], file = "sotrudniki.png", cover = TRUE)
add_card_attachment(cid$id[2], file = "zadachi.png", cover = TRUE)
По итогу на общей доске появились сводные графики по тем KPI которые важны для ежедневного контроля. При нажатии на изображения в Trello можно сразу раскрыть превью и оперативно оценить как идут дела в рамках необходимых показателей:
Далее настраиваем автоматический запуск скрипта для актуализации дашборда и задаём нужное количество раз обновлений в день.
Итог
Полученные данные, карточки и задачи расположены на одном листе и для оценки эффективности департамента не нужно открывать +100500 разных досок. Такой подход экономит кучу времени и делает контроль за исполнением задач оперативным, а работу с сотрудниками эффективнее.
При желании, можно анализировать и делать выводы о том, кто с какой эффективностью решает задачи с детализацией до каждого сотрудника, создавая им свои мини отчеты.
Используя оценочные коэффициенты по каждому из KPI, можно формировать стандарты работы, в рамках любого периода, наблюдать динамику и принимать решение о дополнительном премировании или депремирование сотрудников на основе близких к объективным* данных.
*Для повышения точности оценки сотрудников, перед построением автоматизации необходимо как следует продумать критерии "сложных" задач, чтобы присвоение и закрытие таких карточек контролировалось руководителем и не происходила чрезмерная "переоценка" важности-сложности работ.
Но это уже совсем другая история =)
П.С.: Буду признателен комментариям и конструктивной критике кода.
