您可以使用：

library(xml2)
library(rvest)
library(tidyverse)

httr::set_config(httr::user_agent("Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/108.0.0.0 Safari/537.36"))

# 423 instead of 1
for (i in 0:1) {
  url <- paste("https://sdgs.un.org/partnerships/browse?page=",i, sep = "")
  PARTNERSHIPS <- read_html(url)
  
  PROJECTNAMES <- PARTNERSHIPS %>% html_elements("span a")
  
  PROJECT_URLS <- PARTNERSHIPS %>% 
    html_elements("span a") %>%
    html_attr("href")
  
  PROJECT_NAMES <- PARTNERSHIPS %>%
    html_elements("span a") %>%
    html_text2()
  
  for (j in 1:((length(PARTNERSHIPS |> html_elements("div.field-content")))/2)) {
    if(j == 1)
      GOALS <- PARTNERSHIPS %>%
        html_elements("div.field-content") %>%
        .[[2*j-1]] %>%
        html_elements("div.layout.layout--onecol") %>%
        html_elements("div.layout__region.layout__region--content") %>%
        html_elements("div.goals-lists") %>%
        html_elements("a") %>%
        html_text2() %>%
        paste(collapse = ",")
    else
      GOALS <- c(GOALS,
                 PARTNERSHIPS %>%
                   html_elements("div.field-content") %>%
                   .[[2*j-1]] %>%
                   html_elements("div.layout.layout--onecol") %>%
                   html_elements("div.layout__region.layout__region--content") %>%
                   html_elements("div.goals-lists") %>%
                   html_elements("a") %>%
                   html_text2() %>%
                   paste(collapse = ","))
  }
  
  if (i == 0) PARTNERSHIP_ANALYSIS <- data.frame(PROJECT_NAMES,PROJECT_URLS,GOALS)
  else PARTNERSHIP_ANALYSIS <- rbind.data.frame(PARTNERSHIP_ANALYSIS,
                                                data.frame(PROJECT_NAMES,PROJECT_URLS,GOALS))
}

nrow(PARTNERSHIP_ANALYSIS)

#> [1] 36

我刚读了这个网站的2个第一页，每个页面有18个项目，2个页面有36个 Dataframe 的观察结果。