Фильтрация данных фрейма данных. Не смогли. Ошибка выполнения

Question

Вот задача: Используя логический вектор air_fltr , выберите значения Acid.Con c. (из определенного стека кадров данных), для которого Air.Flow <60. Сами выбранные значения должны быть сохранены в переменной <strong>acid_subset , таблица частот уникальных значений концентраций кислоты для выбранных данных должна быть сохранено в переменной acid_concs .

Вот мое решение:

air_fltr <- stackloss[stackloss$'Air.Flow'<60, ]
acid_subset <- air_fltr[ , 3]
acid_concs <- table(acid_subset)

Произошла ошибка, с которой мне не удалось справиться.

Failed. Runtime error
Error in xj[i] : invalid subscript type 'list'
Calls: [ -> [.data.frame
Execution halted

Что не так с кодом?

Answer 1

Мы можем использовать dplyr

library(dplyr)
stackloss %>%
   filter(`Air.Flow` < 60) %>%
   select(3) %>%
   count(!! rlang::sym(names(.)))

Answer 2

Мы можем сделать:

1) создать логический вектор

air_fltr <- stackloss$`Air.Flow` < 60

2) выбрать значения

acid_subset <- stackloss[air_fltr, 3]

3) Создать таблицу.

table(acid_subset)