Как я могу удалить определенные символы из списка и сохранить как фрейм данных?

Question

Я хотел бы

получить чистый набор данных без специальных символов только с реальными словами без цифр это происходит из файла JSON .

 library(rvest); library(XML); library(dplyr);library(tidyr); library(purrr); library(rjson)

 url <- "http://suggestqueries.google.com/complete/search?client=chrome&q=Nike"
 nike_autocomplete <- read_html(url)

Вывод должен выглядеть так:

[1] "Nike" "nike air" "nike air max" "nike schuhe" "nike air force" "nike air max 97"
[7] "nike tn" "nike id" "nike air max 270" "nike vapormax" "nike pullover" "nike schweiz"   
[13] "nike 97" "nike off white" "nike air max plus" "nike winterschuhe" "nike schuhe damen" "nike huarache"  
[19] "nike shoes" "nike logo" "nike air max 90"

Таким образом, в конце нет пустых вещей

Answer 1

Текст, который вы пытаетесь извлечь, представлен в формате JSON, поэтому вам будет гораздо лучше использовать утилиту чтения json, чем пытаться использовать регулярные выражения.Мне нравится jsonlite::fromJSON за это.

library(rvest)
library(jsonlite)
library(purrr)

url <- "http://suggestqueries.google.com/complete/search?client=chrome&q=Nike"
read_html(url) %>%
  xml_text %>%
  fromJSON() %>%
  extract(1:2) %>%
  unlist
#  [1] "Nike"                  "nike shox"             "nike shoes"            "nike air max"         
#  [5] "nike outlet"           "nike air force 1"      "nike basketball shoes" "nike vapormax"        
#  [9] "nike air max 97"       "nike id"               "nike store"            "nike stock"           
# [13] "nike air max 270"      "nike promo code"       "nike windbreaker"      "nike sweatshirts"     
# [17] "nike huarache"         "nike hoodie"           "nike cortez"           "nike sweatpants"      
# [21] "nike slides"