如何將鍵值對 ia 文本文件轉換為 R 中的 dataframe

Question

我有這樣的數據：

3 : 124wr332::::::::::::::::Ident:::123456A::::::::::::::::img src="Images Captured with Proc Data Audit.files/img21.jpg" width="152" height="99" alt="":::::::::Date of procedure:::2018-03-01::::::::Procedure Performed:::A thingy::::::::Image label:::Top of:::::::::::::::::::Image Comment:::: ::::::::::::::::::::::::::::::Ident:::123456A::::::::::::::::img src="Images Captured with Proc Data Audit.files/img22.jpg" width="152" height="99" alt="":::::::::Date of procedure:::2018-03-01::::::::Procedure Performed:::A thingy::::::::Image label:::Gastric Antrum:::::::::::::::::::Image Comment:::: ::::::::::::::::::::::::::::::Patient MRN:::123456A::::::::::::::::img src="Images Captured with Proc Data Audit.files/img23.jpg" width="152" height="99" alt="":::::::::Date of procedure:::2018-03-01::::::::Procedure Performed:::Gastroscopy (OGD)::::::::Image label:::Other place:::::::::::::::::::Image Comment:::: ::::::::::::::::::::::::::::::::::::::::::07/05/2018 13:25:45::::::::::Page 2::::::::::::::::::::::::::::::::Ident:::123456A::::::::::::::::img src="Images Captured with Proc Data Audit.files/img16.jpg" width="152" height="99" alt="":::::::::Date of procedure:::2018-03-01::::::::Procedure Performed:::A thingy::::::::Image label:::2nd part:::::::::::::::::::Image Comment:::Lovely: ::::::::::::::::::::::::::::::

但我希望它位於 dataframe 中，其中列 label 是任何關鍵定義為 label 出現在三個之前：如下：

Ident    img DateOfProcedure ProcedurePerformed ImageLabel ImageComment
123456A  21   2018-03-01      A thingy          Top of
123456A  22   2018-03-01      A thingy          Other place
123456A  23   2018-03-01      A thingy          2nd part       Lovely

我嘗試使用a <- strsplit(as.character(my$key_value), ":::")但它給了我不同行上的鍵值對，而我希望鍵是上面的列名

Answer 1

splitstackshape package 是您所需要的。 請參見下面的示例：

library(splitstackshape)
library(tidyverse)

x <- '3 : 124wr332::::::::::::::::Ident:::123456A::::::::::::::::img src="Images Captured with Proc Data Audit.files/img21.jpg" width="152" height="99" alt="":::::::::Date of procedure:::2018-03-01::::::::Procedure Performed:::A thingy::::::::Image label:::Top of:::::::::::::::::::Image Comment::::&nbsp;::::::::::::::::::::::::::::::Ident:::123456A::::::::::::::::img src="Images Captured with Proc Data Audit.files/img22.jpg" width="152" height="99" alt="":::::::::Date of procedure:::2018-03-01::::::::Procedure Performed:::A thingy::::::::Image label:::Gastric Antrum:::::::::::::::::::Image Comment::::&nbsp;::::::::::::::::::::::::::::::Patient MRN:::123456A::::::::::::::::img src="Images Captured with Proc Data Audit.files/img23.jpg" width="152" height="99" alt="":::::::::Date of procedure:::2018-03-01::::::::Procedure Performed:::Gastroscopy (OGD)::::::::Image label:::Other place:::::::::::::::::::Image Comment::::&nbsp;::::::::::::::::::::::::::::::::::::::::::07/05/2018 13:25:45::::::::::Page 2::::::::::::::::::::::::::::::::Ident:::123456A::::::::::::::::img src="Images Captured with Proc Data Audit.files/img16.jpg" width="152" height="99" alt="":::::::::Date of procedure:::2018-03-01::::::::Procedure Performed:::A thingy::::::::Image label:::2nd part:::::::::::::::::::Image Comment:::Lovely:&nbsp;::::::::::::::::::::::::::::::'

data.frame(col = x) %>% 
splitstackshape::cSplit(splitCols = "col", sep = ":::") %>% 
    glimpse