我有一个看起来像这样的数据集 df1 <- tibble(ha_name = c("Interior", "Interior", "Interior", "Interior", "Interior"...