On Apr 23, 2013, at 12:13 PM, arun wrote:
> Hi,
> Try this:
> set.seed(25)
> dat1<-
> data.frame(ID=c(10011001,10011004,20012001,2022001,12002),val=rnorm(5),stringsAsFactors=FALSE)
>
> dat2<- dat1
> library(stringr)
> dat1$ID<-as.numeric(str_sub(dat1$ID,-4,-1))
> dat1
> #IDval
> #
Hi,
Try this:
set.seed(25)
dat1<-
data.frame(ID=c(10011001,10011004,20012001,2022001,12002),val=rnorm(5),stringsAsFactors=FALSE)
dat2<- dat1
library(stringr)
dat1$ID<-as.numeric(str_sub(dat1$ID,-4,-1))
dat1
# ID val
#1 1001 -0.2118336
#2 1004 -1.0415911
#3 2001 -1.1533076
#4 2001 0.3
Hi,
May be this helps:
set.seed(25)
dat1<-
data.frame(ID=c("1001#01","1001#02","1001#03","1002#01","1002#02"),val=rnorm(5),stringsAsFactors=FALSE)
dat1$ID<-as.numeric(gsub("#.*","",dat1$ID))
dat1
# ID val
#1 1001 -0.2118336
#2 1001 -1.0415911
#3 1001 -1.1533076
#4 1002 0.3215315
#5 10
3 matches
Mail list logo