Может быть, это может помочь. Вы можете сделать это без каких-либо дополнительных пакетов.
Вы можете выбрать 9 дней из подмножества, где temp <9, а затем удалить эти строки: </p>
set.seed(123)
df[-sample(which(df$temp < 9), 9), ]
Вывод
[1] 15 15 14 10 2 6 11 14 9 10 11 3 11 9 12 9 9 13 3 8 10 10 9 14 4 14 1 11 7 5 12
[32] 15 10 13 9 9 10 7 11 12 5
Данные
df <- structure(list(temp = c(15L, 15L, 3L, 14L, 3L, 10L, 2L, 6L, 11L,
5L, 4L, 14L, 6L, 9L, 10L, 11L, 5L, 3L, 11L, 9L, 12L, 9L, 9L,
13L, 3L, 8L, 10L, 7L, 10L, 9L, 14L, 3L, 4L, 14L, 1L, 11L, 7L,
5L, 12L, 15L, 10L, 13L, 7L, 9L, 9L, 10L, 7L, 11L, 12L, 5L)), class = "data.frame", row.names = c(NA,
-50L))
df$temp
[1] 15 15 3 14 3 10 2 6 11 5 4 14 6 9 10 11 5 3 11 9 12 9 9 13 3 8 10 7 10 9 14
[32] 3 4 14 1 11 7 5 12 15 10 13 7 9 9 10 7 11 12 5