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 vote406 views1 answer
R grid all possibilites between two vectors
R
1 vote378 views1 answer
How to Convert a Factor in R
R
0 vote396 views1 answer
Base R change axis line width
R
0 vote373 views1 answer
Generate pair with one same variable in r
R
0 vote394 views5 answers
Layar names in R worldclim
R
0 vote380 views1 answer
Ggplot increase label font size
R
1 vote413 views1 answer
Remove rows in r based on row number using dplyr
R
0 vote374 views1 answer
Color code in r
R
0 vote394 views1 answer
Filter na in r
R
1 vote352 views1 answer
Paste no space r
R