本质上你的问题是你的列是not valid json：
除了数字、对象和数组之外，唯一允许的不带引号的实体是null、true、false。
我们可以使用模式gsub(":(.*?)([,}])", ':"\\1"\\2', txt)来替换:的所有示例，然后用引号中的值替换该值（例如将"dob" : 2002-03-04替换为"dob" : "2002-03-04"）。
我在这里使用了dplyr::bind_rows()，因为它是一种简单的方法来绑定一个json对象列表，这些对象的每行没有相同的键。

library(dplyr)
dat_list <- lapply(split(dat, seq(nrow(dat))), \(row) {
    txt <- row$submitted_data
    name_df <- data.frame(Name = row$Name)
    if (txt == "NULL") {
        df_out <- name_df
    } else {
        json_txt  <- jsonlite::fromJSON(gsub(":(.*?)([,}])", ':"\\1"\\2', txt))
        df_out <- cbind(name_df, data.frame(json_txt))
    }
    df_out
})

dat |>
    select(-submitted_data) |>
    left_join(bind_rows(dat_list), by = "Name")

#     Name     Company         dob   tel industry
# 1    Bob    Bob Inc.  2002-03-04  1234     <NA>
# 2 Fadela  Fadela Co.        <NA>  <NA>     <NA>
# 3   Andy Andrew Inc.  1999-10-10  <NA>   retail

字符串

输入数据：

dat  <- structure(list(Name = c("Bob", "Fadela", "Andy"), Company = c("Bob Inc.", 
"Fadela Co.", "Andrew Inc."), submitted_data = c("{\"dob\":2002-03-04, \"tel\": 1234}", 
"NULL", "{\"dob\": 1999-10-10, \"industry\": retail}")), class = "data.frame", row.names = c(NA, 
-3L))

型