[R] character comp

[Val]

Thank you Erin and Rui!


On Sat, Feb 9, 2019 at 1:08 PM Erin Hodgess <erinm.hodgess using gmail.com> wrote:
>
> Nice, Rui!  Thanks
>
> On Sat, Feb 9, 2019 at 11:55 AM Rui Barradas <ruipbarradas using sapo.pt> wrote:
>>
>> Hello,
>>
>> The following will do it.
>>
>> mydataframe$dvar <- c(sapply(mydataframe[-1], nchar) %*% c(1, -1))
>>
>>
>> Hope this helps,
>>
>> Rui Barradas
>>
>> Às 18:05 de 09/02/2019, Val escreveu:
>> > Hi  All,
>> > In a given data frame I  want to compare character values of two columns.
>> > My sample data looks like as follow,
>> >
>> > mydataframe <- read.table( text='ID  var1 var2
>> >    R1   AA  AAA
>> >    R2   AAA AAA
>> >    R3    A  AAAA
>> >    R4   AA   A
>> >    R5   A  AAA', header = TRUE, as.is = TRUE )
>> >
>> > For each ID, I want  create the third column "dvar" as  difference
>> > between var1 and var2
>> >   Row1( R1)   the "dvar" value will be -1 and the complete  desired out
>> > put looks like as follow.
>> >
>> >   ID    var1 var2   dvar
>> >   R1   AA    AAA    -1
>> >   R2  AAA  AAA      0
>> >   R3    A    AAAA    -3
>> >   R4   AA       A        1
>> >   R5    A     AAA      -2
>> >
>> > How do i do this? Any help please?
>> > Thank you
>> >
>> > ______________________________________________
>> > R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
>> > https://stat.ethz.ch/mailman/listinfo/r-help
>> > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>> > and provide commented, minimal, self-contained, reproducible code.
>> >
>>
>> ______________________________________________
>> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>
> --
> Erin Hodgess, PhD
> mailto: erinm.hodgess using gmail.com