How to extract adjectives and adverbs from vector of text in R

Question

I want to extract adjectives and adverbs from a vector, is there any way to do this ?

input <- "It's a good phone"

Expected output : "good"

Wide open question here, but I'd recommend looking at NLP projects in R like [this one](https://rpubs.com/lmullen/nlp-chapter) or [this one](https://github.com/quanteda/spacyr) or other SO questions like [this one](https://stackoverflow.com/questions/4600612/extracting-nounnoun-or-adjnounnoun-from-text) — Forrest, Apr 01 '19 at 21:17
I see no reason at all to close this question. @cody-gray can you elaborate ? The question is precise enough and has sample data and an expected output.`r` is often used for text mining and I don't see how a question on parts of speech is out of scope. — moodymudskipper, Apr 02 '19 at 01:20

moodymudskipper · Accepted Answer · 2019-04-02T21:51:03.650

4

You can use tidytext :

library(tidytext)
library(tidyverse)
unnest_tokens(tibble(txt="It's a good phone"),word, txt) %>%
  left_join(parts_of_speech) %>%
  filter(pos %in% c("Adjective","Adverb")) %>%
  pull(word) %>%
  unique
# [1] "good"

edited Apr 02 '19 at 21:51

answered Apr 01 '19 at 21:44

moodymudskipper

46,417
11
121
167

Error in Ribble(text="it's a good phone",word,text) could not find function Ribble ,it's after package installed – Malek Mohamed Apr 02 '19 at 21:15
yeah but i didn't write that :) – moodymudskipper Apr 02 '19 at 21:17
Sorry tibble*,but now could not find function "%>%" – Malek Mohamed Apr 02 '19 at 21:36
I edited to attach *tidyverse*, please see how it goes now – moodymudskipper Apr 02 '19 at 21:52
Could not find function unnest_tokens :'( – Malek Mohamed Apr 02 '19 at 22:03
make sure to run `library(tidytext)` first, and if you didn't install the package before, do it with `install.packages("tidytext")` – moodymudskipper Apr 02 '19 at 22:15
1

It's worked,thank you. – Malek Mohamed Apr 02 '19 at 22:24

How to extract adjectives and adverbs from vector of text in R

1 Answers1