如何获取数据框中最常见的前3个元素？

from collections import Counter

# 示例数据框
data = [1, 2, 3, 4, 1, 2, 3, 1, 2, 1, 1, 1]
# 对数据进行计数
counter = Counter(data)
# 按照计数结果进行排序
sorted_counter = sorted(counter.items(), key=lambda x: x[1], reverse=True)
# 获取前3个最常见的元素
top_3_elements = [item[0] for item in sorted_counter[:3]]

print(top_3_elements)

# 示例数据框
data <- c(1, 2, 3, 4, 1, 2, 3, 1, 2, 1, 1, 1)
# 对数据进行计数
counter <- table(data)
# 按照计数结果进行排序
sorted_counter <- sort(counter, decreasing=TRUE)
# 获取前3个最常见的元素
top_3_elements <- names(sorted_counter)[1:3]

print(top_3_elements)