find the kth least frequent element in an array in r

main.r
# Example array
arr <- c(1, 2, 1, 3, 4, 2, 5, 4, 4)

# Step 1: compute frequency counts
freq <- table(arr)

# Step 2: sort frequency counts in increasing order
sorted_freq <- sort(freq)

# Step 3: index sorted frequency counts and get kth least frequent count
k <- 2 # example: find 2nd least frequent element
kth_freq <- sorted_freq[k]

# Step 4: find element(s) with kth least frequent count
least_freq_elems <- names(freq[freq == kth_freq])

# Print result
cat("The", k, "least frequent element(s) in the array are:", least_freq_elems, "\n")
545 chars
19 lines

main.r
The 2 least frequent element(s) in the array are: 3 5 
55 chars
2 lines