查找tibble特定值的行名和列名

# 安装并加载tibble包
install.packages("tibble")
library(tibble)

# 创建一个示例tibble
data <- tribble(
  ~A, ~B, ~C,
  1, 2, 3,
  4, 5, 6,
  7, 8, 9
)

# 查找值为5的行名和列名
value <- 5

# 查找匹配的行和列的索引
row_index <- which(data == value, arr.ind = TRUE)[,1]
col_index <- which(data == value, arr.ind = TRUE)[,2]

# 获取行名和列名
row_name <- rownames(data)[row_index]
col_name <- colnames(data)[col_index]

# 打印结果
cat("行名:", row_name, "\n")
cat("列名:", col_name, "\n")