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 vote143 views1 answer
"R" bind rows
R
1 vote148 views1 answer
View table/dataframe in r
R
0 vote156 views1 answer
R df space in column name
R
2 votes137 views1 answer
Loop through list in r
R
0 vote136 views1 answer
How to randomly select R
R
0 vote163 views1 answer
Count certain number of alphabets in a string r
R
0 vote157 views1 answer
R for loop append to vector
R
1 vote136 views1 answer
R how to import tsv file
R
0 vote139 views1 answer
Derive end of the week date in r
R
0 vote149 views1 answer
Assert no missing values in r
R