Bioequivalence and Bioavailability Forum

ElMaestro
★★★

Denmark,
2016-09-21 14:59
(2764 d 05:54 ago)

Posting: # 16657
Views: 5,058

Smart recoding of vector values [🇷 for BE/BA]

Hi all, especially the R experts out there,

I have a vector like
a=c(1,1,2,2,3,5,5,6,6,7,8,8,9,9)
and I would like to rename/reorder/resomething this vector so that
a=c(1,1,2,2,3,4,4,5,5,6,7,7,8,8)

They are actually factor levels.

So far I took a look at reorder, rank, and sort and googled around but I am not really getting anywhere. I have written a clumsy function that does the trick, but I am sure this can be achieved with a one-liner somehow.

Anyone able to tell how?

Thanks a lot in advance and have a great day. :-)

—
Pass or fail!
ElMaestro

d_labes ★★★ Berlin, Germany, 2016-09-21 15:32 (2764 d 05:22 ago) @ ElMaestro Posting: # 16659 Views: 4,139	Vectorized if Post reply
	Dear öberster größter Meister! ❝ I have a vector like ❝ `a=c(1,1,2,2,3,5,5,6,6,7,8,8,9,9)` ❝ and I would like to rename/reorder/resomething this vector so that ❝ `a=c(1,1,2,2,3,4,4,5,5,6,7,7,8,8)` Vectorized if comes to rescue. `a <- ifelse(a<4, a, a-1)` Hope this helps and matches your problem. BTW: Hardcore Rusers never use `=` for assignments — Regards, Detlew

mittyri ★★ Russia, 2016-09-21 15:34 (2764 d 05:19 ago) @ ElMaestro Posting: # 16660 Views: 4,101	Smart recoding of vector values Post reply
	Hi ElMaestro, my noob version `a <- c(1,1,2,2,3,5,5,6,6,7,8,8,9,9) a <- as.integer(factor(a, unique(a)))` — Kind regards, Mittyri

ElMaestro
★★★

Denmark,
2016-09-21 16:02
(2764 d 04:51 ago)

@ mittyri
Posting: # 16661
Views: 4,141

Smart recoding of vector values

Post reply

Dear Mittyri and d_labes,

❝ my noob version

❝ a <- c(1,1,2,2,3,5,5,6,6,7,8,8,9,9)

❝ a <- as.integer(factor(a, unique(a)))

Thanks a lot to both of you. You guys are nothing short of geniuses.
I think Mityri's example is better. The example that I gave had one single missing integer, but there are frequently plenty, like
a=c(1,1,2,2,3,5,5,6,6,7,8,8,12,12, 13,13,14,16,16) etc. I apologise I should have written that.

a<-5

if(2*a<-<-10) cat("Yah, that '<-' business is very neat.\n")

—
Pass or fail!
ElMaestro

d_labes ★★★ Berlin, Germany, 2016-09-21 17:27 (2764 d 03:26 ago) @ mittyri Posting: # 16662 Views: 4,124	Smart recoding of vector values Post reply
	Dear mittyri, ❝ `a <- c(1,1,2,2,3,5,5,6,6,7,8,8,9,9)` ❝ `a <- as.integer(factor(a, unique(a)))` Smart — Regards, Detlew

Smart recoding of vector values [🇷 for BE/BA]

Vectorized if

Smart recoding of vector values

Smart recoding of vector values

Smart recoding of vector values