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 vote251 views1 answer
How to substring in R from position
R
0 vote226 views1 answer
R change column value conditionally
R
0 vote259 views1 answer
R: foreach multiple argument
R
3 votes210 views2 answers
Create dataframe or table in r
R
2 votes236 views1 answer
Dplyr replace na
R
0 vote234 views1 answer
Ggplot - subset top 10 in a stack bar plot
R
1 vote217 views1 answer
Principal component analysis in r
R
0 vote250 views1 answer
Ts object to data frame
R
0 vote223 views1 answer
How to read multiple csv files from a directory in r
R
0 vote235 views1 answer
Slope by row r
R