以下是一个使用tidyverse中的tibble包来比较两个tibbles列的示例代码：

library(tibble)

# 创建两个示例tibbles
tibble1 <- tibble(
  id = c(1, 2, 3, 4),
  name = c("Alice", "Bob", "Charlie", "David")
)

tibble2 <- tibble(
  id = c(1, 2, 3, 5),
  name = c("Alice", "Bob", "Charlie", "Eve")
)

# 使用left_join函数比较两个tibbles的列
comparison <- left_join(tibble1, tibble2, by = "id")

# 查看比较结果
comparison

在上述代码中，我们首先加载了tibble包。然后，我们创建了两个示例tibbles，每个tibble都包含一个"id"列和一个"name"列。

然后，我们使用left_join函数将这两个tibbles按照"id"列进行比较。left_join函数会将tibble1的所有行保留下来，并将tibble2中与tibble1的"id"列匹配的行合并进来。如果没有匹配的行，则相应位置上的值将为NA。

最后，我们将比较结果存储在名为"comparison"的新tibble中，并使用print函数查看比较结果。

希望这个示例代码能够帮助你理解如何比较tibbles的列。