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 vote196 views1 answer
Square root calculation r
R
0 vote219 views1 answer
Two string in one string r
R
0 vote214 views1 answer
How to set the first column as row names in r
R
0 vote204 views1 answer
Stacked bar plot r with age groups
R
1 vote202 views3 answers
R for loop
R
1 vote178 views1 answer
Name elements in vector r
R
0 vote200 views1 answer
Link excel to r
R
0 vote200 views1 answer
Regex last word in string r
R
1 vote206 views1 answer
Show factor levels in r
R
0 vote140 views1 answer
Replace na with blank in r
R