R函数解析

Question

我正在使用 R，但在解析数据集中的列时遇到问题。列名称为read_data，每一行的值如下： "val":"O;P;Q8;S"}] 我想解析这个并能够在单独的列中获得 O、P、Q8 和 S。 有人可以帮我解决这个问题吗？

该列具有来自 JSON 的值，如下所示：

    "val":"O;P;Q8;S"}]
    "val":"P;V;I9;J"}]
    "val":"Z;A;G8;N"}]


    Expected Output:
    O P Q8 S
    P V I9 J
    Z A G8 N

Answer 1

一种选择是使用fromJSON 提取内容，并使用read.csv/read.table 读取

library(jsonlite)
read.table(text = paste(sapply(paste0('{', sub("\\]", "",  df1$col)),
    function(x) fromJSON(x)$val), collapse="\n"), header = FALSE, sep=";")
#  V1 V2 V3 V4
#1  O  P Q8  S
#2  P  V I9  J
#3  Z  A G8  N

---

或者另一个选项是base R，我们提取:之后的字符而不是}（[^}]+），在删除双引号（ ") 和gsub，然后通过将sep 指定为; 和header 为FALSE 来使用read.table/read.csv

v1 <- paste(gsub('"', "", regmatches(df1$col, regexpr("(?<=:)[^}]+", 
    df1$col, perl = TRUE))), collapse="\n")
read.table(text = v1, header = FALSE, sep = ";")
#  V1 V2 V3 V4
#1  O  P Q8  S
#2  P  V I9  J
#3  Z  A G8  N

数据

df1 <- structure(list(col = c("\"val\":\"O;P;Q8;S\"}]", "\"val\":\"P;V;I9;J\"}]", 
"\"val\":\"Z;A;G8;N\"}]")), class = "data.frame", row.names = c(NA, 
-3L))