Hi. Please help me understand why I am getting error message:
In mean.default(amount) :
argument is not numeric or logical: returning NA
library(dplyr)
amount <- c(1,2,3,4,5)
part <- c("arm","eye", "brain", "brain", "eye")
df <- data.frame(cbind(part, amount))
serious <- c("brain","eye","heart")
df %>%
dplyr::group_by(part) %>%
dplyr::filter(part %in% serious) %>%
dplyr::summarize(avg_amount= mean(amount)) %>%
arrange(desc(avg_amount))