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 vote190 views1 answer
Geom_abline vertical line
R
0 vote207 views2 answers
Modulo in r
R
0 vote193 views1 answer
How to get the number of individual numbers in a vector in r
R
0 vote211 views1 answer
Reorder factors in r
R
1 vote216 views1 answer
R dataframe column factor
R
0 vote213 views1 answer
Remove all empty strings from R
R
0 vote232 views1 answer
Emf from r plot
R
0 vote147 views1 answer
Switch variable position in r dplyr
R
0 vote223 views1 answer
Conditional mean statement r
R
0 vote188 views1 answer
Grep string that ends with R
R