Добавление и удаление ключей
Часть раздела Логика и потоки выполнения путешествия по R на Coddy. Урок 9 из 64.
Присваивание имени обновляет его значение, если ключ существует, и добавляет новую запись, если ключа нет:
stock <- c(apples = 12, pears = 3)
stock["pears"] <- 5
stock["plums"] <- 8
print(stock)Результат:
apples pears plums
12 5 8 Чтобы изменить значение на основе его текущего значения, прочитайте и запишите один и тот же ключ:
stock <- c(apples = 12, pears = 3)
stock["apples"] <- stock["apples"] - 2
print(stock[["apples"]])Вывод:
[1] 10Таблица поиска может начинаться пустой с помощью c() и расти по одному ключу за раз:
ages <- c()
ages["Ada"] <- 36
ages["Linus"] <- 21
print(names(ages))Результат:
[1] "Ada" "Linus"Удалите элемент из именованного вектора, сохранив все остальные имена:
stock <- c(apples = 12, pears = 3, plums = 8)
stock <- stock[names(stock) != "pears"]
print(names(stock))Вывод:
[1] "apples" "plums" Для списка присваивание NULL удаляет элемент:
user <- list(name = "Ada", temp = TRUE)
user[["temp"]] <- NULL
print(names(user))Результат:
[1] "name"
Задание
ЛегкоЗавершите apply_delivery(stock, item, qty). Добавьте qty к запасу товара item или добавьте item с количеством qty, если его ещё нет на складе. Верните обновлённый запас.
Предоставленный код считывает запас в виде пар name=quantity, затем товар и количество. Он выводит каждую запись возвращённого запаса в виде name: quantity в порядке расположения в запасе.
Попробуйте сами
apply_delivery <- function(stock, item, qty) {
# Напишите ваш код здесь
stock
}
# Предоставленный код ввода/вывода: оставьте его как есть
input <- suppressWarnings(readLines(file("stdin")))
stock <- c()
for (pair in strsplit(input[1], ",")[[1]]) {
kv <- strsplit(pair, "=")[[1]]
stock[kv[1]] <- as.numeric(kv[2])
}
stock <- apply_delivery(stock, input[2], as.numeric(input[3]))
for (name in names(stock)) {
cat(name, ": ", stock[[name]], "\n", sep = "")
}
Проверьте себяВ этом уроке есть небольшой тест. Начните урок, чтобы ответить на вопросы и сохранить прогресс.
Все уроки раздела Логика и потоки выполнения
1Строки углублённо
Подстроки с substr()Форматирование с sprintf()Разделение и объединениеПоиск в строкахЗамена текстаПовторение — создание имени пользователя4Матрицы
Создание матрицИндексация матрицСводные данные по строкам и столбцамАрифметика матрицПовторение — схема рассадки7Семейство Apply
lapply и sapplyMap и mapplyFilter и FindReduceПовторение — конвейер обработки данных10Продвинутые конструкции управления
Функция switch()Векторизованный ifelse()repeat и breakРекурсивные функцииПовторение — классификатор оценок2Поиск по ключам и значениям
Поиск в именованных векторахПроверка ключейДобавление и удаление ключейПеребор имёнПовторение — биржа акций5Проект — Журнал оценок
Добавление учениковВыставление оценок
Средние оценки учениковОтчёт по классуЛучший ученик3Множества и подсчёт
Уникальные значенияОперации с множествамиПроверка принадлежностиПодсчёт с помощью table()Повторение — гости мероприятия6Функции как значения
Анонимные функцииПередача функцийВозврат функцийЗамыкания с состояниемПовторение — правила скидок9Таблицы данных
Создание таблиц данныхСтолбцы и строкиФильтрация строкДобавление и сортировкаПовторение — отчёт о продажах12Проект — Трекер расходов
Запись расходовОбщие расходыРасходы по категориямСамые большие расходыИтоги за месяцПотренируйтесь самостоятельно: Онлайн-компилятор R