如何在tibble列中找到最长的重复序列(后续问题)？

vector <- pull(tibble, column_name)

longest_sequence <- NULL
current_sequence <- NULL

for (i in 1:length(vector)) {
  if (i == 1 || vector[i] == vector[i-1]) {
    current_sequence <- c(current_sequence, vector[i])
  } else {
    if (length(current_sequence) > length(longest_sequence)) {
      longest_sequence <- current_sequence
    }
    current_sequence <- vector[i]
  }
}

if (length(current_sequence) > length(longest_sequence)) {
  longest_sequence <- current_sequence
}

print(longest_sequence)