将字符数据构造成数据帧

Question

我在R中使用了租赁包来刮取一些网络数据，但是我很难把它转换成一种通用的格式。

我目前的数据如下：

     test
     [1] "v.  Philadelphia"                                           
     [2] "TD GardenRegular Season"                                    
     [3] "PTS: 23. Jayson TatumREB: 10. M. MorrisAST: 7. Kyrie Irving"
     [4] "PTS: 23. Joel EmbiidREB: 15. Ben SimmonsAST: 8. Ben Simmons"
     [5] "100.7 - 83.4" 
     [6] "@  Toronto"                                                         
     [7] "Air Canada Centre Regular Season"                              
     [8] "PTS: 21. Kyrie IrvingREB: 10. Al HorfordAST: 9. Al Horford" 
     [9] "PTS: 31. K. LeonardREB: 10. K. LeonardAST: 7. F. VanVleet"  
     [10] "115.6 - 103.3"        

有人能帮我执行正确的操作以使它看起来像这样(作为数据框架)并提供代码吗？

     Opponent       Venue   
     Philadelphia   TD Garden
     Toronto        Air Canada Centre

我不需要任何其他信息。

Answer 1

(如有任何问题，请告诉我:)

# put your data in here
input <- c("v. Philadelphia", "TD GardenRegular Season", 
           "", "", "",
           "@ Toronto", "Air Canada Centre Regular Season",
           "", "", "")
index <- 1:length(input)

# raw table format
out_raw <- data.frame(Opponent = input[index%%5==1],
                      Venue = input[index%%5==2])

# using stringi package
install.packages("stringi")
library(stringi)

# copy and clean up
out_clean <- out_raw
out_clean$Opponent <- stri_extract_last_regex(out_raw$Opponent, "(?<=\\s).*$")
out_clean$Venue <- trimws(gsub("Regular Season", "", out_raw$Venue))
out_clean