Turn positive values into negative values in a data.frame based on one condition in another column (R)

Question

I have the following date. ::

df <- data.frame(Qtd=c(100,200,300,400,500),
             op=c('V','C','C','V','V'), stringsAsFactors=F)

How I can turn the values in the Qtd column to negative if the op column value is V ??

I tried this command but it was wrong :

Teste <- within(df, Qtd[op == 'V'] <- -Qtd[])

Warning message:
 In Qtd[op == "V"] <- -Qtd[] :
 number of items to replace is not a multiple of replacement length

Answer 1

Your code would also work normally, what you missed to do was to put the same logical condition within -Qtd[]. Correcting:

within(df, Qtd[op == 'V'] <- -Qtd[op == 'V'])
   Qtd op
1 -100  V
2  200  C
3  300  C
4 -400  V
5 -500  V

Answer 2

The ifelse can help you here:

df <- data.frame(Qtd=c(100,200,300,400,500),
                 op=c('V','C','C','V','V'), stringsAsFactors=F)
df$Qtd <- ifelse(df$op == "V", -df$Qtd, df$Qtd)

Or you can also use the which to first filter the lines, and then apply the operation:

df <- data.frame(Qtd=c(100,200,300,400,500),
                 op=c('V','C','C','V','V'), stringsAsFactors=F)
rows <- which(df$op == "V")
df$Qtd[rows] = -df$Qtd[rows]