[求助]Help please. thank you.

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

dear All:

I have a following problem:

A=c(0,24,3,4,5,0,2,6,7,0,25,5,7,8)

I want combine A(add new column) with the following dataset (1,1,1,1,1,2,2,2,2,3,3,3,3,3) which need to be generated based on A.

How to generate this column BASED ON A?

I appreciate!

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Thank you please Lease Thank Help 求助 Help please Thank

countA<-c(which(A==0),length(A))
output<-rep(0,length(A))

for(i in seq(length(countA)-1))
{
curr<-rep(i,countA[i+1]-countA);
output[countA:countA[i+1]]<-curr;
}

the output is the column you wanted.

不错啊

Warning messages:
1: Replacement length not a multiple of number of elements to replace in: output[countA:countA[i + 1]] <- curr
2: Replacement length not a multiple of number of elements to replace in: output[countA:countA[i + 1]] <- curr
3: Replacement length not a multiple of number of elements to replace in: output[countA:countA[i + 1]] <- curr
Did you get this message? Thank you for your help.

a shorter one:

holder<-rep(0, length(A))
holder[which(A==0)]<-1
output<-cumsum(holder)
> output
[1] 1 1 1 1 1 2 2 2 2 3 3 3 3 3