R语言代码问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

R语言如何进行缩尾处理，有相应的函数吗，谢谢。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言

1. 可能有，但是自己也可以写，毕竟不是很难
   
2. 
   
3. myfunc<- function(x, direction = "both", trim = 0.01, data) {
   
4.   if (! is.data.frame(data)) stop("data必须为数据框")
   
5.   if (! direction %in% c("both", "left", "rigth")) {
   
6.     stop("direction 参数仅限'both','left', 'rigth' ")
   
7.   }
   
8.   myda <- unlist(data[deparse(substitute(x))])
   
9.   if (direction == 'both') {
   
10.     quanmax <- quantile(myda, 1 - trim/2)
    
11.     quanmin <- quantile(myda, trim/2)
    
12.     data <- data[quanmin < myda & myda < quanmax, ]
    
13.   } else if (direction == 'left') {
    
14.     quanmin <- quantile(myda, trim)
    
15.     data <- data[myda > quanmin, ]
    
16.   } else {
    
17.     quanmax <- quantile(myda, 1 - trim)
    
18.     data <- data[myda < quanmax, ]
    
19.   }
    
20.   data
    
21. }
    
22. 
    
23. mydata <- as.data.frame(cbind(x = 1:1000, y = x[order(-x)]))
    
24. myfunc(x, direction = 'left', trim = 0.01, mydata)

复制代码