R ：按照区间计算唯一元素的数量

以下是一个示例代码，用于按照区间计算唯一元素的数量：

def count_unique_elements(arr, ranges):
    # 创建一个字典，用于存储每个元素的出现次数
    count_dict = {}
    
    # 遍历给定的区间
    for start, end in ranges:
        # 在区间内遍历数组元素
        for i in range(start, end+1):
            # 如果元素不在字典中，则将其添加到字典，并将值初始化为1
            if arr[i] not in count_dict:
                count_dict[arr[i]] = 1
            # 如果元素已经在字典中，则将其对应的值加1
            else:
                count_dict[arr[i]] += 1
    
    # 统计字典中值为1的元素的数量
    unique_count = sum(value == 1 for value in count_dict.values())
    
    return unique_count

# 示例调用
arr = [1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 6]
ranges = [(0, 4), (5, 9)]
result = count_unique_elements(arr, ranges)
print(result)  # 输出：3

在这个示例中，我们首先创建了一个字典count_dict，用于存储数组中每个元素的出现次数。然后，我们遍历给定的区间，在每个区间内遍历数组元素，并更新字典中对应元素的出现次数。最后，我们使用一个生成器表达式统计字典中值为1的元素的数量，并返回结果。