使用If语句的函数未执行

Question

我正在使用R中的dplyr软件包。我阅读了教科书和在线文章，但是我无法弄清楚为什么此功能不起作用。 有人可以指出如何修复我的功能吗？

##creating dataset - this dataset is ranked by group (ID)
dt <- data.frame(
    ID = c('A1','A2','A4','A2','A1','A4','A3','A2','A1','A3'),
    Value = c(4,3,1,3,4,6,6,1,8,4));
dt2<-transform(dt, order.by.group = 
    ave(Value, ID, FUN = function(x) rank(x, ties.method = "first")))


##This function does not work, but it's supposed to create dt3 which is based
##on condition such as "best","worst" ranking etc in each ID group

test<- function(num="best") {
    if (num=="best") {
        dt3<-filter(dt2,order.by.group==1)}
    else if (num=="worst") {
        #sort to make low rank come to the last row position
        dt2<-arrange(dt2,ID,order.by.group)
        # Select the last row by id
        dt3<-dt2[!duplicated(dt2$ID, fromLast=TRUE), ]}
    else {dt3<-filter(dt2,order.by.group==num)}
}

Answer 1

现在呢？

test<- function(num="best") {
  if (num=="best") {
    dt3<-filter(dt2,order.by.group==1)
    } else if (num=="worst") {
    #sort to make low rank come to the last row position
    dt2<-arrange(dt2,ID,order.by.group)
    # Select the last row by id
    dt3<-dt2[!duplicated(dt2$ID, fromLast=TRUE), ]
    } else {
    dt3<-filter(dt2,order.by.group==num)
    }
 return(dt3)
 }

您的功能似乎缺少return语句。

---

更新：

哦，这可以解决我的问题。 但是我仍然想知道为什么对象dt3没有出现在全局环境中。 我的意思是，当我键入dt2在控制台，它显示的结果出现，但是当我输入dt3 ，它说：“错误：对象‘DT3’找不到”

调用该函数时，请执行dt3 <- test() 。 函数内部的dt3是局部变量 ； 它在函数退出时被销毁。 但是，通过显式分配： dt3 <- ，在全局环境中创建一个接受函数返回值的变量dt3 。

变量的范围不仅适用于R，而且适用于所有编程语言。