如何创建一个新列，对R中现有列的变量进行分组？

我有一个数据集，其中包括研究站点上的一列数据（X1_什么站点_是_你）。有8个因素。我想创建一个新的专栏，根据栖息地类型将这些因素分组，其中4个因素代表林地（曼恩森林公园1、曼恩森林公园2、纳什森林公园1、纳什森林公园2）和4个因素代表农田（纳什森林公园1、纳什森林公园2、苗圃森林公园1、苗圃森林公园2）

以下是数据结构：

'data.frame':   560 obs. of  16 variables:
 $ title                            : chr  "Mann's Copse 1 18/02/2021" "Mann's Copse 1 18/02/2021" "Mann's Copse 1 18/02/2021" "Mann's Copse 1 18/02/2021" ...
 $ X1_What_site_are_you_            : Factor w/ 8 levels "Mann's Copse 1",..: 1 1 1 1 1 1 1 1 1 1 ...
 $ lat_2_What_are_the_GPS_c         : num  51.4 51.4 51.4 51.4 51.4 ...
 $ long_2_What_are_the_GPS_c        : num  -0.653 -0.653 -0.653 -0.653 -0.653 ...
 $ accuracy_2_What_are_the_GPS_c    : int  27 27 27 27 27 6 6 6 6 6 ...
 $ UTM_Northing_2_What_are_the_GPS_c: int  5698309 5698309 5698309 5698309 5698309 5698310 5698310 5698310 5698310 5698310 ...
 $ UTM_Easting_2_What_are_the_GPS_c : int  663238 663238 663238 663238 663238 663239 663239 663239 663239 663239 ...
 $ UTM_Zone_2_What_are_the_GPS_c    : chr  "30U" "30U" "30U" "30U" ...
 $ X3_What_date_is_it               : chr  "18/02/2021" "18/02/2021" "18/02/2021" "18/02/2021" ...
 $ X4_What_time_is_it               : chr  "17:15:02" "17:15:02" "17:15:02" "17:15:02" ...
 $ X5_What_are_your_init            : chr  "JAJ" "JAJ" "JAJ" "JAJ" ...
 $ Count                            : int  1 2 3 4 5 1 2 3 4 5 ...
 $ robinalarm                       : int  0 0 0 0 0 0 0 0 1 0 ...
 $ robincall                        : int  0 0 1 0 0 0 1 4 4 3 ...
 $ robinsound                       : int  0 0 1 0 0 0 1 4 5 3 ...
 $ birdsight                        : int  24 0 0 0 0 24 0 1 0 0 ...

供日后参考：

 ##CREATE HABITAT COLUMN  
birds["Habitat"] <- rep(0, 560)
     # Run a for loop 
for (i in 1:nrow(birds)){
  if (str_detect(birds[i, 2], "Copse") == "TRUE"){
    birds[i, 17] <- "Forest". 
  }
  else {
    birds[i, 17] <- "Grassland"
  }
}

##创建栖息地列
鸟类[“栖息地”]