ПочатиПочніть безкоштовно

Базовий графік риджлайнів

Надано код для побудови графіка риджлайнів, який показує, на скільки відсотків водії перевищували ліміт швидкості під час зупинки, у розрізі днів тижня.

Змініть код так, щоб встановити ширину ядра (bandwidth) на задане значення, змінити межі осі x, щоб прибрати довгі „хвости", а також додати subtitle, який повідомляє читачеві, яке значення bandwidth ви використовуєте.

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

Найкращі практики візуалізації в R

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

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

  • Змініть bandwidth на 3.5 у geom_density_ridges().
  • Встановіть limits шкали x від 0 до 150.
  • Додайте до графіка підзаголовок 'Gaussian kernel SD = 3.5'.

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

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

library(ggridges)

md_speeding %>% 
    mutate(day_of_week = factor(day_of_week, levels = c("Mon","Tues","Wed","Thu","Fri","Sat","Sun") )) %>% 
    ggplot(aes( x = percentage_over_limit, y = day_of_week)) + 
    # Set bandwidth to 3.5
    geom_density_ridges() +
    # add limits of 0 to 150 to x-scale
    scale_x_continuous() 
    # provide subtitle with bandwidth
Редагувати та запускати код