install.packages(c(“nycflights13”, “tidyverse”)) library(tidyverse) library(nycflights13) head(flights) install.packages(“dplyr”) library (dplyr)

Для каждого направления (dest) по набору flights посчитайте общее пройденное расстояние, используя функцию sum().

flights %>% group_by(dest) %>% summarise(dest_sum = sum(distance, na.rm = TRUE))

Перекодируйте переменную month таким образом, чтобы вместо цифр были названия месяцев.

flights %>% mutate(month = case_when( month == 1 ~ “январь”, month == 2 ~ “февраль”, month == 3 ~ “март”, month == 4 ~ “апрель”, month == 5 ~ “май”, month == 6 ~ “июнь”, month == 7 ~ “июль”, month == 8 ~ “август”, month == 9 ~ “сентябрь”, month == 10 ~ “октябрь”, month == 11 ~ “ноябрь”, month == 12 ~ “декабрь”))

На основе переменной air_time, показывающей время в полете в минутах, создайте переменную air_time_hours, в которой время переведено в часы.

flights_sml <- select(flights, air_time ) mutate(flights_sml, air_time_hours = (air_time / 60) )

набор о пингвинах

library(palmerpenguins)

penguins %>% group_by(species, sex) %>% summarise(bill_length_mm = mean(bill_length_mm, na.rm = TRUE)) %>% drop_na(sex) %>% pivot_wider(names_from = sex, values_from = bill_length_mm)