Помогите в написании задания. И скрин написания кода в программе.
Для работы с новыми функциями подключите библиотеки: tidyr, dplyr, haven, ggplot2, tidyverse.
Загрузите базу данных diamonds в новую переменную diam.
С помощью функции filter выберете из датасета бриллианты отличной огранки уровня Premium, Ideal (переменная cut).
В новой переменной new, с помощью mutate, рассчитайте значение цены от карат (price / carat).
Создайте еще одну переменную new_group, в которой с помощью mutate и case_when распределите значения на три группы:
Если значение меньше или равен 7000, группа «small»
Если значение больше 7000 и меньше или равен 13000, группа «medium»
Если значение больше 13000, группа «large».
Выберете с помощью select 1,7, 11 и 12 колонки и запишите новый датасет в переменную resul
library(tidyr) library(dplyr) library(haven) library(ggplot2) library(tidyverse) diam <- read_sas(“ diamonds.sas 7bdat”)
diam_premium_ideal <- diam %>% filter(cut == “Premium” | cut == “Ideal”)
diam_premium_ideal$new <- with(diam_premium_ideal, price / carat)
diam_premium_ideal$new_group <- with(diam_premium_ideal, case_when(price <= 7000 ~ “small”,
price > 7000 & price <= 13000 ~ “medium”,
TRUE ~ “large”))
result <- diam_premium_ideal %>% select(1, 7, 11, 12)