如何比较R中两个独立数据框的列名？

df1 <- data.frame(a = 1:5, b = letters[1:5])
df2 <- data.frame(a = 6:10, b = letters[6:10])

if (identical(colnames(df1), colnames(df2))) {
  print("两个数据框的列名相同")
} else {
  print("两个数据框的列名不同")
}

if (all.equal(colnames(df1), colnames(df2))) {
  print("两个数据框的列名相同")
} else {
  print("两个数据框的列名不同")
}