Обнаруживать выбросы в векторе и нарисовать тепловую карту

Question

Как я могу обнаружить выбросы в векторе?

Например, у меня есть следующие векторы

color<-c("green","green","green","green","green","red","blue") 
size<-c("big","small","big","big","big","small","medium") 

для каждого вектора Я хочу, чтобы обнаружить выбросы и нарисовал карту тепла

• color выбросы находятся в положениях 6 и 7
• size выбросы находятся в позициях 2,6,7

Answer 1

Что-то вроде

color <- c("green","green","green","green","green","red","blue") 
tt <- table(color) 
names(tt)[tt<2] ## values with frequency < 2 
## 'blue', 'red' 
ptt <- prop.table(tt) 
names(ptt)[ptt<0.2] ## values with frequency < 20% 
## 'blue', 'red'