выдает все минимальные значения, когда они удваиваются в r

Question

У меня есть такой фрейм данных в отсортированном табличном формате:

> sort(table(Daywork$hour))

 3  4  5  6  7  8  9 10 11 12 13 14 16 17 19  2 22  1 15 18 20  0 23 21 
 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  1  1  2  2  2  2  3  3  4 

Теперь я хочу добавить функцию, которая выдает минимум или максимум, например:

min.Work(Daywork$hour)
 3  4  5  6  7  8  9 10 11 12 13 14 16 17 19  
 0  0  0  0  0  0  0  0  0  0  0  0  0  0  0 

Какие функции могут применяться по такому вопросу

Answer 1

Вы можете подгруппировать свою таблицу.

set.seed(42)
x <- sample(1:10, 100, replace=T)

table(x)
# x
# 1  2  3  4  5  6  7  8  9 10 
# 9 13  6 13 13  9  6 11  9 11 

table(x)[table(x) == min(table(x))]
# x
# 3 7 
# 6 6 

Answer 2

Вы можете sort table и подмножество первого значения. Использование данных @ jay.sf.

temp <- sort(table(x))
temp[temp == temp[1]]

#x
#3 7 
#6 6 

чтобы получить max значение:

temp[temp == temp[length(temp)]]
x
# 2  4  5 
#13 13 13