#> 15 school academy, alma mater, college, department, discipline
#> 14 romance affair, affaire (du coeur), affair of the heart, amour, at~ #> 13 resource ability, capability, cleverness, ingenuity, initiative #> 12 reason apprehension, brains, comprehension, intellect, judgment #> 11 passion animation, ardour, eagerness, emotion, excitement #> 10 mobile ambulatory, itinerant, locomotive, migrant, motile #> 9 medicine cure, drug, medicament, medication, nostrum #> 8 limited bounded, checked, circumscribed, confined, constrained #> 7 intelligence acumen, alertness, aptitude, brain power, brains #> 6 hygiene cleanliness, hygienics, sanitary measures, sanitation #> 5 health fitness, good condition, haleness, healthiness, robustness #> 4 development advance, advancement, evolution, expansion, growth #> 3 change alter, convert, diversify, fluctuate, metamorphose #> 2 adapt acclimatize, accommodate, adjust, alter, apply #> 1 ability adeptness, aptitude, capability, capacity, competence Ungroup() # So there are not unintended effects of having the data grouped when using the data later Summarise(synonyms = paste(Syn, collapse = ", ")) %>% # Combine the synonyms together comma separated using paste Slice(1:5) %>% # Keep the first 5 rows for each word Group_by(Word) %>% # Group by words, so that when we select rows it is done for each word Separate(Word_DefNumber, c("Word", "DefNumber"), sep = "\\.") %>% # Find the word part of the word and definition number Rename("Word_DefNumber" = 1, "Syn" = 2) %>% # Rename the columns with a name that is more intuitive Plyr::ldply(ame) %>% # Change the list to a dataframe (See ) #> consortium, ebodac, consists, deployment, efpia, grameen, janssen, london, lshtm, partners, settings, software, tropical #> 5 q5 If I have seen further it is by standing on. #> 4 q4 Science is a of reason of romance and passion. #> 3 q3 Intelligence is the ability to adapt to change.
Tidy up synonym software#
#> 2 q2 "world vision) mobile health software development and deployment~ #> 1 q1 ".\n\nthe ebodac consortium consists of partners: janssen (efpia~ #> The following object is masked from 'package:qdap':
#> The following object is masked from 'package:base': #> Loading required package: RColorBrewer #> The following object is masked from 'package:plyr': #> The following object is masked from 'package:dplyr': #> Loading required package: qdapDictionaries #> The following objects are masked from 'package:base': #> The following objects are masked from 'package:stats': #> arrange, count, desc, failwith, id, mutate, rename, summarise, #> The following objects are masked from 'package:plyr': One way this can be done using a tidyverse solution is library(plyr) What is an elegant way of merging the list of 5 words from qdap synonym function and separate by commas? The qdap out put is a list, and I am looking to pick the first 5 synonym for each word in the tidy data frame and create a column called synonyms as below: word n synonymsĪbility 1 adeptness, aptitude, capability, capacity, competenceĪdapt 1 acclimatize, accommodate, adjust, alter, apply,Īuthority 1 ascendancy, charge, command, control, direction I have sample data frame as below: quoteiD %įurther, I have searched the synonyms using qdap package as below library(qdap)
0 kommentar(er)
