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 vote128 views1 answer
R seq
R
0 vote109 views1 answer
Find q1, q3 and iqr in r
R
0 vote111 views1 answer
How the print backslash in r
R
5 votes284 views2 answers
R load packages
R
9 votes228 views3 answers
R add row to dataframe
R
0 vote118 views1 answer
Number of rows by group in r
R
0 vote326 views1 answer
Log likelihood in r
R
0 vote133 views3 answers
Cbind vectors of different lengths r
R
3 votes140 views4 answers
Read csv file in r
R
2 votes145 views1 answer
Vars() in R
R