r - 将单词字符串转换为 R 中的自定义首字母缩略词/缩写并将其与其他行的数据连接？

Question

这是一个示例数据集:

data <- data.frame (author = c('bob', 'john', 'james'), 
                    year = c(2000, 1942, 1765), 
                    title = c('test title one two three', 
                              'another test title four five', 
                              'third example title'))

我想自动化 制作 bibtex 引用 的过程，例如具有这样的功能:

bibtexify <- function (author, year, title) {
      acronym <- convert.to.acronym(title)
      paste(author, year, acronym, sep='')
      }

以便我得到以下结果:

with(data, bibtexify(author, year, title))
[1] 'bob2000tto'
[2] 'john1942att'
[3] 'james1765tet'

可以在 R 中做到这一点吗？

Answer 1

你想要 abbreviate

R> abbreviate('test title one two three')
test title one two three 
             "ttott"