下面是一个示例代码，该代码定义了一个函数unique_rows()，它可以识别与之前的行不重复的唯一行：

unique_rows <- function(data) {
  unique_rows <- data[1, ]  # 创建一个新的数据框用于存储唯一行
  for (i in 2:nrow(data)) {
    if (!any(duplicated(rbind(unique_rows, data[i, ])))) {
      unique_rows <- rbind(unique_rows, data[i, ])  # 将不重复的行添加到唯一行数据框中
    }
  }
  return(unique_rows)
}

这个函数使用一个循环遍历数据框的每一行，然后通过duplicated()函数检查该行是否与之前的行重复。如果行不重复，则将其添加到存储唯一行的数据框中。

以下是一个使用示例：

# 创建一个示例数据框
data <- data.frame(
  A = c(1, 2, 3, 1, 2),
  B = c("a", "b", "c", "a", "b")
)

# 调用unique_rows()函数
unique_data <- unique_rows(data)

# 打印唯一行数据框
print(unique_data)

输出：

  A B
1 1 a
2 2 b
3 3 c

这个输出显示了与之前的行不重复的唯一行。