为什么我的R函数一步一步地工作，但没有作为执行时运行

Question

我对此很困惑，我确信这很简单，希望有人能指出我的正确方向。

我正在使用TM包进行文本挖掘项目，当我在控制台中运行代码时，它完美地工作，但是当我调用函数本身时，最终输出为空。

下面是一些示例代码：

func <- function(filename, count=100, full=FALSE){ 

    packages <- c("ggplot2", "tm") 
    if (length(setdiff(packages, rownames(installed.packages()))) > 0) { 
    install.packages(setdiff(packages, rownames(installed.packages()))) 
    } 
    library(tm) 
    library(ggplot2) 

    ## get data 
    data <- read.csv(filename) 

    ##Create corpus and remove formatting from text 
    Tickets <- Corpus(DataframeSource(data)) 
    Tickets = tm_map(Tickets, removePunctuation) 
    Tickets = tm_map(Tickets, tolower) 

    ##Create stopwords vector to remove complete list from data 
    stopwords <- read.csv("stopwords.csv", header=FALSE) 
    stopwords <- as.character(stopwords[,1]) 
    stopwords <- c(stopwords("english"), stopwords) 

    ## create full analasis of whole data, if selected by user 
    if(full==TRUE){ 
    Tickets = tm_map(Tickets, PlainTextDocument) ##convert back to a text document we can analyse 
    Tickets.TDM <- TermDocumentMatrix(Tickets) ## create matrix for analysis 
    TDM.frame <- data.frame(as.matrix(Tickets.TDM)) 
    write.csv(TDM.frame, "Full_queue_analysis.csv") 
    } 

    ## Remove Stopwords and irrelevant data then convert to TDM for analysis 
    Tickets = tm_map(Tickets, removeWords, stopwords) 
    Tickets = tm_map(Tickets, removeNumbers) 
    Tickets = tm_map(Tickets, stripWhitespace) 
    Tickets = tm_map(Tickets, PlainTextDocument) 
    Tickets.TDM <- TermDocumentMatrix(Tickets) 

    ## matrix to frame for additional calculations 
    TDM.frame <- data.frame(as.matrix(Tickets.TDM)) 

    ##count each word once word per entry and only display those which count more than user specified amount 
    Counts.df <- data.frame(rowSums(TDM.frame > 0)) 
    colnames(Counts.df) <- "count" 
    Counts.df <- subset(Counts.df, count > count) 

    ## create csv file for final counts 
    write.csv(Counts.df, "Queue_analysis.csv") 

    ##Print basic analysis based on user option 
    cat("Terms which appear more than",count,"times:") 
    findFreqTerms(Tickets.TDM, count) 

事情似乎出问题的初始化向量Counts.df的时候，我完全可以通过控制台执行这一点，它用正确的数据填充然而，当在运行功能可按它是完全空的，尽管它确实存在。

没有错误，函数按预期结束，但打开csv文件时，只有“count”标题为空。

感谢您的任何建议！

编辑 - 添加功能本身，对不起！

Answer 1

你认为count > count在做什么？怎么能比自己大？给定显示的功能代码，100 > 100将用于subset()调用中的subset参数中。这个评估结果为FALSE（出于显而易见的原因）

> 100 > 100 
[1] FALSE 

因此您将丢弃所有行。

例如为：

> subset(mtcars, 100 > 100) 
[1] mpg cyl disp hp drat wt qsec vs am gear carb 
<0 rows> (or 0-length row.names) 

你在你的代码中的逻辑错误，但我不能做什么，你打算，所以你需要解决的是你自己。如果大于count（您在函数定义中默认设置为100），您希望保留哪些元素的计数向量是什么？你的意思是

Count.df <- subset(Counts.df, Count.df[,1] > count) 

啊，一分钱滴。这只是与subset()中count的评估相关的问题。这里是什么是错的一个简单的例子：

> foo <- function(foo, cyl = 3) { 
+ subset(mtcars, cyl > cyl) 
+ } 
> foo() 
[1] mpg cyl disp hp drat wt qsec vs am gear carb 
<0 rows> (or 0-length row.names) 

现在在subset通话cyl被评估为函数定义，cyl = 3，而不是在mtcars数据帧中的向量cyl定义的cyl值。因此你得到subset(mtcars, FALSE)的结果。

因此，如何调用列Count.dfCount而不是count，再有该行代码是：

Count.df <- subset(Counts.df, Count > count) 

这应该工作。