小白求问R语言大神，怎么解！！！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有一个包含N个元素的向量A。形成一个向量B，其中前半部分为A中的负数，后半部分为A中的正数。保持负数和正数的顺序。这个怎么做，求问大神！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 怎么做

1. library(plyr)
   
2. fun1 <- function(x,B1,B2){
   
3.   len1 <- length(B1)
   
4.   len2 <- length(B2)
   
5.   ifelse(x<=0, B1[len1+1] <- x ,B2[len1+1] <- x)
   
6.   B1
   
7.   }
   
8. fun2 <- function(x,B1,B2){
   
9.   len1 <- length(B1)
   
10.   len2 <- length(B2)
    
11.   ifelse(x<=0, B1[len1+1] <- x ,B2[len1+1] <- x)
    
12.   B2
    
13.   }
    
14. x=c(-1,-3,-4,5,3,-4,6,-7,9,10)
    
15. B1=NULL
    
16. B2=NULL
    
17. #这个有点笨，仔细研究一下apply族，会有进步。
    
18. b1=sapply(x,fun1,B1,B2)
    
19. b2=sapply(x,fun2,B1,B2)
    
20. B=c(unlist(b1),unlist(b2))
    
21. B
    
22. ##  [1] -1 -3 -4 -4 -7  5  3  6  9 10

复制代码

1. B <- (sort(A))
   
2. #OR
   
3. B <- c(A[A <= 0], A[A>0])

复制代码

这样可以吗？

drunkfish69 发表于 2020-4-14 07:58
这样可以吗？

高。谢谢！

f<-function(x){
  n<-length(x)
  B1<-c()
  B2<-c()
  B<-c()
  for (i in 1:n) {
    if(x[i]<0)
      B1<-c(B1,x[i])
    else
      B2<-c(B2,x[i])
  }
  B<-c(B1,B2)
  B
}

x=c(-1,-3,-4,5,3,-4,6,-7,9,10)
f(x)