rename_tags: Rename a term_count Object's Term Columns

In trinker/termco: Counts of Terms and Substrings

Description

Safely rename a term_count object's tag columns and attributes.

Usage

rename_tags(x, old, new)

Arguments

x	A term_count object.
old	A vector of the current names.
new	A vector of new names corresponding to the order of old names.

Value

Returns a renamed term_count object.

Examples

data(presidential_debates_2012)

discoure_markers <- list(
    response_cries = c("\\boh", "\\bah", "\\baha", "\\bouch", "yuk"),
    back_channels = c("uh[- ]huh", "uhuh", "yeah"),
    summons = "hey",
    justification = "because"
)

(markers <- with(presidential_debates_2012,
    term_count(dialogue, list(person, time), discoure_markers)
))


rename_tags(markers, old = c('summons', 'back_channels'), new = c('s', 'bcs'))
rename_tags(markers, old = c('person'), new = c('people'))
rename_tags(markers, old = c('person', 'back_channels', 'summons'), new = c('people', 'bcs', 's'))
attributes(rename_tags(markers, old = c('back_channels', 'summons'), new = c('bcs', 's')))

#' ## Token Counts
token_list2 <- list(
    list(
        noun__person = c('sam', 'i')
    ),
    list(
        noun__place = c('here', 'house'),
        noun__thing = c('boat', 'fox', 'rain', 'mouse', 'box', 'eggs', 'ham')
    ),
    list(
        feeling__no_like = c('not like'),
        noun__thing = c('train', 'goat'),
        other__other = c('in')
    ),
    list(
        other__other = 'i'
    )
)


x <- token_count(sam_i_am, grouping.var = TRUE, token.list = token_list2)

## Not run: 
## Strips meta tags
x %>%
    rename_tags(
        c('noun__person', 'noun__place', 'feeling__no_like'), 
        c('human', 'ten_20', 'dislike')
    )

## End(Not run)

trinker/termco documentation built on Jan. 7, 2022, 3:32 a.m.