编辑代码

vector_operation <- function(vector1, vector2) {
      
        # 求并集
          union_vector <- union(vector1, vector2)
            
              # 求交集
                intersect_vector <- intersect(vector1, vector2)
                  
                    # 求补集
                      setdiff_vector1 <- setdiff(vector1, vector2)
                        setdiff_vector2 <- setdiff(vector2, vector1)
                          
                            # 输出结果
                              result <- list(union = union_vector, intersect = intersect_vector, 
                                               complement_vector1 = setdiff_vector1, complement_vector2 = setdiff_vector2)
                                                 return(result)
}
vector1 <- c(1, 2, 3, 4, 5)
vector2 <- c(4, 5, 6, 7, 8)

# 调用函数
result <- vector_operation(vector1, vector2)

# 输出结果
print(result$union)
print(result$intersect)
print(result$complement_vector1)
print(result$complement_vector2)