Попытка удалить выбросы в R для ggplot с файлом Excel

Question

ggplot(data = Flint %>% filter(Flint$Lead <=7), aes(y=Flint$Lead, group=Flint$Ward)) + geom_boxplot() + stat_boxplot()

У меня есть файл Excel, который я пытаюсь создать в ggplot. Я должен удалить все значения выше 7 из ggplot, поскольку он считается выбросом. Я пытался использовать подмножество и фильтр, но получаю эту ошибку. Ошибка: Эстетика должна быть длиной 1 или такой же, как data (5): y, group. Есть ли способ получить данные для Flint $ First_Draw, чтобы все значения были ниже. Пример вывода будет несколько коробочных графиков, основанных на подопечных. Примером может служить Уорд 1: отведение 5.0 6.3, 2-е отделение: отведение 3.6, 3-е отделение: 2.8. Для Ward 1 Lead 7.8 не будет отображаться, поскольку это выброс и выше 7. Спасибо заранее!

Answer 1

Если вы удалите элементы Flint$ из вызова aes, это должно сработать.

Это работает:

data(mtcars)
ggplot(mtcars %>% filter(mpg <= 20), aes(y = hp, group = cyl)) +
  geom_boxplot()

Но это не удается с похожим сообщением об ошибке:

ggplot(mtcars %>% filter(mtcars$mpg <= 20), aes(y = mtcars$hp, group = mtcars$cyl)) +
  geom_boxplot()

Error: Aesthetics must be either length 1 or the same as the data (18): y, group