自定义函数里面的input无效，求解

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

题目为从一张表中选出适合的几列字段，根据某列字段再做筛选，我写的代码中，state原本应该是一个筛选项，但是没有起到筛选作用，不知改如何解？代码如下

1. best <- function(state, outcome){
   
2.     myfile <- read.csv("outcome-of-care-measures.csv", na.strings = "Not Available", stringsAsFactors = FALSE)
   
3.     outcomes <- c("heart attack"=11,"heart failure"=17, "pneumonia"=23)
   
4.     mytable <- myfile[,c(2,7,outcomes[outcome])]
   
5.     names(mytable) <- c("hospital","state","outcome")
   
6.     my_data <- na.omit(mytable)
   
7.     my_data <- my_data[order(my_data$state, my_data$outcome, my_data$hospital),]  
   
8.     x <- split(my_data,my_data$state)
   
9.     y <- lapply(x,function(x) x[1,1])
   
10.     print(y)
    
11. }

复制代码

期望结果：若输入best（“AK”，“heart attack"),就能出现AK州的heart attack死亡率最低的医院，但是，现在不管输入那个州，所有州的heart attack死亡率最低的医院都会出现，求解～

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：自定义函数 Input put 自定义 State 如何

我知道问题出在split和lapply这一块，但是还是没想出来要怎么改