R:如何通过只比较每个字符串中前3个制表符分隔的项来对两个字符串向量使用setdiff？

# 两个字符串向量
vector1 <- c("A\tB\tC\tD", "E\tF\tG\tH", "I\tJ\tK\tL")
vector2 <- c("A\tB\tC\tD", "I\tJ\tK\tL", "M\tN\tO\tP")

# 定义一个函数，用于比较两个字符串向量的差异
compareStrings <- function(vector1, vector2) {
  # 将每个字符串拆分为子字符串
  splitStrings1 <- lapply(vector1, function(x) strsplit(x, "\t")[[1]])
  splitStrings2 <- lapply(vector2, function(x) strsplit(x, "\t")[[1]])
  
  # 提取每个子字符串列表中的前3个元素
  first3Items1 <- sapply(splitStrings1, function(x) paste(x[1:3], collapse = "\t"))
  first3Items2 <- sapply(splitStrings2, function(x) paste(x[1:3], collapse = "\t"))
  
  # 比较两个新列表的差异
  diffItems <- setdiff(first3Items1, first3Items2)
  
  return(diffItems)
}

# 调用函数比较两个字符串向量的差异
result <- compareStrings(vector1, vector2)
print(result)