Ручне об'єднання рівнів

У опитуванні було 16 посад (включно з "Other"), які респонденти могли обрати. Об'єднаймо їх у кілька великих категорій: "Computer Scientist", "Data analyst/scientist/engineer", "Researcher" та "Other". Набір даних multiple_choice_responses уже завантажено для вас.

Ця вправа є частиною курсу

Категоріальні дані в Tidyverse

Переглянути курс

Інструкції до вправи

Об'єднайте рівні CurrentJobTitleSelect у нову змінну grouped_titles.
Потім у grouped_titles замініть усе, що не належить до трьох згрупованих назв, на "Other Title".
Нарешті, підрахуйте кількість спостережень для всіх згрупованих назв.

Інтерактивна практична вправа

Спробуйте виконати цю вправу, доповнивши цей зразок коду.

multiple_choice_responses %>%
    # Create new variable, grouped_titles, by collapsing levels in CurrentJobTitleSelect
    ___(grouped_titles = ___(CurrentJobTitleSelect, 
        "Computer Scientist" = c("Programmer", "Software Developer/Software Engineer"), 
        "Researcher" = "Scientist/Researcher", 
        "Data Analyst/Scientist/Engineer" = c("DBA/Database Engineer", "Data Scientist", 
                                              "Business Analyst", "Data Analyst", 
                                              "Data Miner", "Predictive Modeler"))) %>%
    # Keep all the new titles and turn every other title into "Other"
    ___(grouped_titles = ___(grouped_titles, 
                             ___ = c("Computer Scientist", 
                                     "Researcher", 
                                     "Data Analyst/Scientist/Engineer"))) %>% 
    # Get a count of the grouped titles
    ___(___)

Редагувати та запускати код