函数封装问题求助！！！！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请教各位大牛！！

我在写函数的是否碰见了下面这个问题。但是如果我把 read.csv 这一步放在外面，就是可以出结果的。是不能把路径写进function（），还是我的写法有问题呢？

> remove_free_orders <- function(file, n) {
+   original <- read.csv(file)
+   original[,n] <- as.character(original[,n])
+   test <- original[order(original$购买订单),]
+   freq <- data.frame(table(test$购买订单))
+   uniq <- subset(freq,freq[,2]==1)
+   uniq <- rename(uniq,c(Var1="购买订单"))
+   merge(test, uniq, by = '购买订单', all.y = TRUE)
+ }
> payed_orders <- remove_free_orders(file='D:/iCarbonX/PBACK3.csv,original',5)

Error in file(file, "rt") : cannot open the connection
In addition: Warning message:
In file(file, "rt") :




谢谢！！！！！！！！！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：function Orders REMOVE Order Move

",original"是什么？

cheetahfly 发表于 2018-1-23 09:17
",original"是什么？

就是读一个 csv 文件进去，这个data frame 叫“original”

香菇酱紫 发表于 2018-1-22 17:55
请教各位大牛！！

我在写函数的是否碰见了下面这个问题。但是如果我把 read.csv 这一步放在外面，就是可 ...

好像必须先读进来才行。

hopui2017 发表于 2018-1-29 13:07
好像必须先读进来才行。

可以查看function的参数优先原则，希望能帮到你