CODEWITHSUNDEEP
rloopsfor-loopdata-cleaning
Colleen Joan
Colleen Joan

Reputation: 35

Conditionally Remove Values in an Vector Base on Previous Value

I have a vector of 1-60 values, that could only be one of three values

For example:

x <- c("VAL1","VAL1","VAL1","VAL2","VAL2","VAL3","VAL3","VAL3","VAL3","VAL1")

I would like to condense this vector by removing values base on the previous value, ie. remove n+1 if n = n+1, but if n != n+1 return n and n+1

The desired output would look like this:

x <- c("VAL1","VAL2","VAL3","VAL1")

I think am going to need to use a for loop, checking where i matches i+1, but I am having trouble with the syntax

Upvotes: 2

Views: 68

Answers (3)

ThomasIsCoding
ThomasIsCoding

Reputation: 101247

I think the simplest approach is using rle (as done by @akrun), or using the lagged difference by @onyambu.

If you want to have a practice of coding with for loops, you can try

res <- x[1]
for (i in 2:length(x)) {
    if (x[i] != x[i - 1]) {
        res <- append(res, x[i])
    }
}

Upvotes: 0

Onyambu
Onyambu

Reputation: 79208

You could also use indexing

x[c(x[-1] != x[-length(x)], TRUE)]

[1] "VAL1" "VAL2" "VAL3" "VAL1"

Upvotes: 2

akrun
akrun

Reputation: 887048

We can use rle from base R instead of using a for loop

rle(x)$values
[1] "VAL1" "VAL2" "VAL3" "VAL1"

Upvotes: 4

Related Questions