用分隔符将列文本分割成R中的多个不同的列
用分隔符将列文本分割成R中的多个不同的列
提问于 2021-12-13 16:22:13
我有以下问题。我必须把下面的文字分成几列。这些数据是通过web抓取来提取的，我需要对其进行转换以进行分析。举个例子，我复制了一行，其中我只需要"id":357和“片段”：“新闻/音频”作为信息。你知道我如何在R中变换它吗？下面的代码来自df列：
{"id":357,"name":"Audio","analytics_name":"Audio","slug":"journalism/audio","position":1,"parent_id":13,"parent_name":"Journalism","color":1228010,"urls":{"web":{"discover":"http://www.kickstarter.com/discover/categories/journalism/audio"}}}
回答 2
Stack Overflow用户
发布于 2021-12-13 16:40:10
从这样的字符串开始
stri
[1] "\"id\":357,\"name\":\"Audio\",\"analytics_name\":\"Audio\",\"slug\":\"journalism/audio\",\"position\":1,\"parent_id\":13,\"parent_name\":\"Journalism\",\"color\":1228010,\"urls\":{\"web\":{\"discover\":\"http://www.kickstarter.com/discover/categories/journalism/audio"首先，用逗号将字符串分成块，然后删除引号。
d <- gsub( "\"","", strsplit(stri, ",")[[1]] )
[1] "id:357"
[2] "name:Audio"
[3] "analytics_name:Audio"
[4] "slug:journalism/audio"
[5] "position:1"
[6] "parent_id:13"
[7] "parent_name:Journalism"
[8] "color:1228010"
[9] "urls:{web:{discover:http://www.kickstarter.com/discover/categories/journalism/audio"最后构建数据帧
dat <- data.frame( strsplit( d[grep("^id|^slug",d)], ":" ) )[2,]
colnames( dat ) <- data.frame( strsplit( d[grep("^id|^slug",d)], ":" ) )[1,]
dat
id slug
2 357 journalism/audio数据
stri <- "\"id\":357,\"name\":\"Audio\",\"analytics_name\":\"Audio\",\"slug\":\"journalism/audio\",\"position\":1,\"parent_id\":13,\"parent_name\":\"Journalism\",\"color\":1228010,\"urls\":{\"web\":{\"discover\":\"http://www.kickstarter.com/discover/categories/journalism/audio"Stack Overflow用户
发布于 2021-12-13 16:40:13
从您在这里提供的一行数据出发，可能是这样吗？
library(magrittr)
library(stringr)
library(tidyr)
library(dplyr)
#Toy data.
df <- data.frame(category = '{"id":357,"name":"Audio","analytics_name":"Audio","slug":"journalism/audio","position":1,"parent_id":13,"parent_name":"Journalism","color":1228010,"urls":{"web":{"discover":"http://www.kickstarter.com/discover/categories/journalism/audio"}}}')
df[2, ] <- df[1, ]
df %>%
mutate(ucol = row_number()) %>%
separate_rows(category, sep = ",") %>%
mutate(category = str_replace_all(category, '[\\"\\{\\}]', "")) %>%
filter(str_detect(category, "^id|^slug")) %>%
separate(category, sep = ":", into = c("key", "val")) %>%
pivot_wider(names_from = key, values_from = val)
# # A tibble: 2 × 3
# ucol id slug
# <int> <chr> <chr>
# 1 1 357 journalism/audio
# 2 2 357 journalism/audio页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/70337778
复制相关文章
相似问题
腾讯云开发者
