在数据框中查找回文词

Question

我正在尝试在数据框'data'的一列中查找所有回文词，如下所示：

name year amount 
 James 2010  934706
 Aza   2010  21042
 Rory  2010   869691
 Suzanne 2010 651674
 Felicity 2010 386115
 Oliver   2010  382388
 Anna     2010   43211

我尝试过：

palindrome <- function(word) {
rawWord <- charToRaw(tolower(word)) ## converts to lower case
 sprintf("%s is %sa palindrome", word,
    c("not ", "")[identical(rawWord, rev(rawWord)) + 1])
     }
palindrome(data)

但是这会返回“玛丽不是回文”列表“安娜不是回文” ...等等我希望能够仅对回文的单词进行子集处理，然后将它们返回到数据框，以便将它们与其他列相关联，以查找它们何时出现以及出现多少次。

[我正在尝试在数据框'data'的列中查找所有回文词，如下所示：名称年份金额James 2010 934706 Aza 2010 21042 Rory 2010 869691 Suzanne 2010 651674 ...]]

Answer 1

Answer 2