如何从字符串末尾提取名称？

Question

这是我第一次发帖提问。我无法格式化我从json文件中读取的一些数据。我只想提取每行的名称形式。这是第一行的示例。

> json_data$name[1]
[[1]]
[1] "\n        "           "\n        jim bob"

我已经尝试了很多不同的东西，我在这里搜索和搜索过，但是根本没有运气。我需要数据如下所示：

[1] jim bob

我所做的一切似乎都变成了这样的东西：

[1] "c(\"\n        \", \"\n        jim bob\")"  

有什么想法吗？

Answer 1

我们可以使用gsub

v1 <- gsub("\n +", "", str1) 
v1[nzchar(v1)]
#[1] "jim bob"

如果我们有list，请使用lapply循环list元素。考虑许多元素的'json_data $ name [1] is a list`

 lapply(json_data$name[1], function(x) {
            v1 <- gsub("\n +", "", x)
             v1[nzchar(v1)]
             })

数据

str1 <- c("\n        ",           "\n        jim bob")