函數的摘要方法

Question

我將如何嘗試爲以下函數編寫摘要方法，使用它來查找文本塊中的單詞總數和文本中使用的最頻繁的單詞？

編輯 - 換句話說，我想返回以下函數的摘要對象並將其格式化爲摘要。

findwords = function(tf) { 
    txt = unlist(strsplit(tf,' ')) 
    wl = list() 
    for(i in 1:length(txt)) { 
    wrd = txt[i] 
    wl[[wrd]] = c(wl[[wrd]],i) 
    } 
    return(wl) 
} 

我已經試過

summary.findwords = function(obj) { 
txt = unlist(strsplit(obj,' ')) 
cat(「the total number of words\n」) 
print(length(txt)) 
cat(「the frequency of words\n」) 
print(rev(sort(table(txt)))) 
} 

Answer 1

我認爲這會讓你開始。這裏是你的函數的一個稍微修改過的版本，只是將類myClass添加到結果中。

findwords = function(tf) { 
    txt = unlist(strsplit(tf,' ')) 
    wl = list() 
    for(i in seq_along(txt)) { 
     wrd = txt[i] 
     wl[[wrd]] = c(wl[[wrd]], i) 
    } 
    class(wl) <- "myClass" 
    return(wl) 
} 

和打印和彙總方法（真的簡化的例子）。

print.myClass <- function(x, ...){ 
    cl <- oldClass(x) 
    oldClass(x) <- cl[cl != "myClass"] 
    NextMethod("print") 
    invisible(x) 
} 

summary.myClass <- function(x) { 
    stopifnot(inherits(x, "myClass")) 
    cat("\t\n", 
     sprintf("Unique Words (Length): %s\n", length(x)), 
     sprintf("Total Words: %s", sum(sapply(x, length)))) 
} 

然後測試運行使用的流行詞

library(qdapDictionaries) 
data(Top25Words) 
samp <- paste(sample(Top25Words, 200, TRUE), collapse = " ") 
fw <- findwords(samp) 
class(fw) 
# [1] "myClass" 
head(fw, 3) 
# $that 
# [1] 1 36 54 63 76 165 182 191 
# 
# $the 
# [1] 2 68 70 92 97 132 151 168 186 
# 
# $they 
# [1] 3 75 199 

summary(fw) 

# Unique Words (Length): 25 
# Total Words: 200 

Answer 2

我不知道這是否是你想要什麼：

str = "How would I attempt to write a Summary Method for the following function, using it to find the total number of words in a block of text and the most frequent words used in the text" 

ll = unlist(strsplit(str, ' ')) 
length(ll) 
[1] 36 

rev(sort(table(ll))) 
ll 
     the  words  to  text  of  in   a  write  would  using  used  total Summary 
     4   2   2   2   2   2   2   1   1   1   1   1   1 
    number  most Method  it   I  How function, frequent  for following  find  block attempt 
     1   1   1   1   1   1   1   1   1   1   1   1   1 
     and 
     1 

或者，如果你想有一個數據幀：

data.frame(rev(sort(table(ll)))) 
     rev.sort.table.ll... 
the       4 
words      2 
to       2 
text       2 
of       2 
in       2 
a       2 
write      1 
would      1 
using      1 
used       1 
total      1 
Summary      1 
number      1 
most       1 
Method      1 
it       1 
I       1 
How       1 
function,     1 
frequent      1 
for       1 
following     1 
find       1 
block      1 
attempt      1 
and       1