R-如何:对于某个列表中的每个单词，计算该单词在一个包含3000个单词的列中出现的频率

def calculate_frequency(word_list, column):
    frequencies = []
    for word in word_list:
        count = 0
        for col_word in column:
            if word == col_word:
                count += 1
        frequency = count / len(column)
        frequencies.append(frequency)
    return frequencies

# 示例数据
word_list = ["apple", "banana", "orange"]
column = ["apple", "banana", "apple", "orange", "banana", "apple"]

frequencies = calculate_frequency(word_list, column)
for i in range(len(word_list)):
    print(f"The frequency of {word_list[i]} is {frequencies[i]}")