R语言条件判断 简单问题困扰挺久

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

要求是写一个函数function(type,attribute) type就是iris这个数据集里的Species, attribute就是长啊宽啊那些的，输入这个函数，自动把这个type里的这个attribute中最大最小值输出来。我现在大概思路是这样：

irisfilter<- function(type,attribute){
  #attach(iris)
  setosa<-subset(iris,Species=='setosa')
  versicolor<-subset(iris,Species=="versicolor")
  virginica<-subset(iris,Species=="virginica")

  if (type =='setosa'){

    if(attribute=='Sepal.Length'){
      max<-max(seota$Sepal.Length)
      list(max=max)


   }
    else if(attribute==Sepal.Width){

    }
    else if(attribute==Petal.Length){

    }
    else if(attribute==Petal.Width){


    }
    list("test")

  }

}

但是现在的问题就是运行函数，什么结果都没有，等于第一个if判断就没进去，求好心人士解答问题出在哪。。。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：简单问题 R语言 attribute function tribute function

1. attach必须显示，否则你后面的名称属性将会找不到。2. 你第8行求最大值时，名称出错了（是setosa还是seota）。3. 第9行，只有list(max=max),而没有返回这个列表，所以显示不出你要返回的值，只有return(list(max=max))这样才能返回值。后面没看，都是空的。

1. irisfilter <- function(type,attribute){
   
2.   library(dplyr)
   
3.   jj<-iris %>% filter(Species==type) %>% select(get(attribute))
   
4.   m1<- c(min(as.matrix(jj)),max(as.matrix(jj)))
   
5.   names(m1) <- c('min','max')
   
6.   return(m1)
   
7. }
   
8. 
   
9. irisfilter('setosa','Petal.Width')

复制代码

小朝 发表于 2017-1-20 18:45

写得很好，但是。。。哎 要求不能用library = =

irisfilter<- function(type,attribute){
  tp = iris[iris$Species == type, attribute]
  return(list(ma = max(tp), mi = min(tp)))
}
irisfilter('setosa','Petal.Width')

少年，楼上写的很好了，会用library也是一种能力，未来是你的。

czrdiao 发表于 2017-1-21 09:09
irisfilter

强，简单有效。

czrdiao 发表于 2017-1-21 09:09
irisfilter

卧槽 我想了好几天 设计了几十行。。。强无敌啊