find the kth most frequent element in an array in r

main.r
# create an array with some values
my_array <- c(5, 1, 3, 2, 5, 4, 5, 3, 2, 2)

# create an empty dictionary to hold the frequency of each element
freq_dict <- list()

# iterate over the elements of the array
for (element in my_array) {
  # if the element is already in the dictionary, increase its frequency by 1
  if (element %in% names(freq_dict)) {
    freq_dict[[as.character(element)]] <- freq_dict[[as.character(element)]] + 1
  }
  # if the element is not in the dictionary, add it with a frequency of 1
  else {
    freq_dict[[as.character(element)]] <- 1
  }
}

# sort the dictionary by frequency in descending order
sorted_dict <- sort(freq_dict, decreasing = TRUE)

# get the kth most frequent element from the sorted dictionary
k <- 2  # for example, find the 2nd most frequent element
if (k <= length(sorted_dict)) {
  kth_freq_element <- as.numeric(names(sorted_dict)[k])
  print(kth_freq_element)
}
else {
  print("Array does not have k unique elements")
}
973 chars
31 lines