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

0 vote265 views1 answer
Truncate string in r
R
0 vote283 views1 answer
How to create dates in a range in R
R
2 votes355 views1 answer
Convert latin accents to ascii R
R
0 vote275 views1 answer
Order barplot ggplot2 by value
R
0 vote274 views1 answer
Not displaying prints and on.exit in r
R
0 vote272 views1 answer
Get string without ending in R
R
1 vote280 views1 answer
R lists vs vectors
R
0 vote292 views1 answer
Regex in r
R
1 vote282 views2 answers
Load multiple packages in r
R
0 vote287 views1 answer
Save large nested list to text R
R