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 vote339 views1 answer
Ggplot2 black and white theme
R
1 vote389 views1 answer
Convert datetime from string r
R
0 vote356 views1 answer
Hackerrank input r
R
-1 vote291 views1 answer
How to take the mean of a row in r
R
1 vote349 views1 answer
R extract everything before character
R
0 vote419 views1 answer
Add another 'color' condition to jitter with ggboxplot
R
0 vote344 views1 answer
Convert all numeric columns to percentages R
R
0 vote364 views1 answer
Error installing devtools r
R
0 vote464 views1 answer
Round multiple columns in r
R
0 vote395 views1 answer
Gsub special characters r
R