复制obs以适应df -R中的其他obs

Question

在下图中，您可以看到有12个团队对象和6个时间对象。当我将这个变量添加到Dataframe中时，它显然不适合并出现错误。有没有办法复制时间，让它在同一场比赛中出现两次，一次显示在顶部，一次显示在底部？

​

​

library(rvest)
library(dplyr)
library(tm)
library(stringi)
library(readr)


today <- Sys.Date()#+1
today <- gsub("-", "", today, fixed=TRUE)

url <- read_html(paste0('https://classic.sportsbookreview.com/betting-odds/nhl-hockey/?date=', as.character(today)))

gametime <- url %>%
  html_nodes('.eventLine-time .eventLine-book-value') %>%
  html_text()

teams <- url %>%
  html_nodes('.team-name a') %>%
  html_text()

roster <- data.frame(gametime = time, TEAM = teams)

在编辑中添加: gametime = rep(gametime，each=2)

library(rvest)
library(dplyr)
library(tm)
library(stringi)
library(readr)


today <- Sys.Date()#+1
today <- gsub("-", "", today, fixed=TRUE)

url <- read_html(paste0('https://classic.sportsbookreview.com/betting-odds/nhl-hockey/?date=', as.character(today)))

gametime <- url %>%
  html_nodes('.eventLine-time .eventLine-book-value') %>%
  html_text()

gametime = rep(gametime, each=2)

teams <- url %>%
  html_nodes('.team-name a') %>%
  html_text()

roster <- data.frame(gametime = time, TEAM = teams)

Answer 1

rep(gametime, each=2)将复制gametime的每个元素。