使用R stringr r regex从url中提取youtube视频ID

install.packages("stringr")
library(stringr)

url <- "https://www.youtube.com/watch?v=dQw4w9WgXcQ"

# 使用正则表达式提取YouTube视频ID
video_id <- str_extract(url, "(?<=v=|/videos/|embed\\/|youtu.be\\/|\\/v\\/|\\/e\\/|watch\\?v=|&v=|\\?v=|\\?vi=|(?<=\\/))([-a-zA-Z0-9_]+)")

# 输出提取到的YouTube视频ID
print(video_id)