Outlier tagging boxplot r

library(dplyr)
library(ggplot2)

is_outlier <- function(x) {
  return(x < quantile(x, 0.25) - 1.5 * IQR(x) | x > quantile(x, 0.75) + 1.5 * IQR(x))
}

mtcars %>%
  group_by(cyl) %>%
  mutate(outlier = ifelse(is_outlier(drat), drat, as.numeric(NA))) %>%
  ggplot(., aes(x = factor(cyl), y = drat)) +
    geom_boxplot() +
    geom_text(aes(label = outlier), na.rm = TRUE, hjust = -0.3)

Source: stackoverflow.com

Similar codes

1 vote197 views1 answer
R ddply
R
0 vote198 views1 answer
List to vector r
R
0 vote343 views1 answer
Combine scripts into a pipeline
R
0 vote194 views1 answer
Score pairs of records probabilistically in r
R
0 vote191 views1 answer
How to tell if a variable is discrete or continuous in r
R
0 vote192 views1 answer
Geom_point transparency
R
0 vote203 views1 answer
R language
R
0 vote186 views1 answer
R glm select all variables
R
0 vote164 views1 answer
Autoplot confusion matrix
R
1 vote181 views1 answer
To numeric in r
R