以下是一个示例代码，演示了如何保留数据框中每个块的第一个唯一行：

# 创建示例数据框
df <- data.frame(
  group = c("A", "A", "A", "B", "B", "C", "C", "C"),
  value = c(1, 2, 3, 4, 5, 6, 7, 8)
)

# 使用dplyr包进行数据处理
library(dplyr)

# 根据group列分组，并选择每个组的第一个唯一行
result <- df %>% group_by(group) %>% distinct() %>% ungroup()

# 输出结果
print(result)

运行上述代码，将得到以下输出：

# A tibble: 3 x 2
  group value
   
1 A         1
2 B         4
3 C         6

在这个示例中，我们使用了dplyr包中的group_by()、distinct()和ungroup()函数。首先使用group_by(group)将数据按照group列进行分组，然后使用distinct()选择每个组的唯一行，最后使用ungroup()取消分组，并将结果保存在result变量中。