Hi Jim,

Thanks for you reply. Your solution works well for most of if the part
except that in the end its creating one column for all the comments and in
the result the comments needs to be in a separate column like DataComment1,
DataComment2 and so on.

Is there an option with which I can further split the output?

ROW_ID_CR,    Data1,    Data2,    Data3,    DataComment1,
 DataComment2,          DataComment3
1,                      aa,         bb,         cc,        This is
comment1,    This is comment2,     This is comment 3
2,                      dd,          ee,         ff,          This is
comment1


Thanks for your help, I appreciate.


On Mon, Jun 10, 2013 at 5:46 PM, jim holtman <jholtman@gmail.com> wrote:

> try this:
>
> > fileA <- read.csv(text = "Row_ID_CR,   Data1,    Data2,    Data3
> + 1,                   aa,          bb,          cc
> + 2,                   dd,          ee,          ff", as.is = TRUE)
> >
> > fileB <- read.csv(text = "Row_ID_N,   Src_Row_ID,   DataN1
> + 1a,               1,                   This is comment 1
> + 2a,               1,                   This is comment 2
> + 3a,               2,                   This is comment 1
> + 4a,               1,                   This is comment 3", as.is = TRUE)
> >
> > # get rid of leading/trailing blanks on comments
> > fileB$DataN1 <- gsub("^ *| *$", "", fileB$DataN1)
> >
> > # merge together
> > result <- merge(fileA, fileB, by.x = 'Row_ID_CR', by.y = "Src_Row_ID")
> >
> > # now partition by Row_ID_CR and aggregate the comments
> > result2 <- do.call(rbind,
> +     lapply(split(result, result$Row_ID_CR), function(.grp){
> +         cbind(.grp[1L, -c(5,6)], comment = paste(.grp$DataN1, collapse =
> ', '))
> +     })
> + )
> > result2
>   Row_ID_CR                 Data1        Data2        Data3
>                                   comment
> 1         1                    aa           bb           cc This is
> comment 1, This is comment 2, This is comment 3
> 2         2                    dd           ee           ff
>                         This is comment 1
> >
>
>
>
> On Mon, Jun 10, 2013 at 4:38 PM, Shreya Rawal <rawal.shreya@gmail.com>wrote:
>
>> Hello R community,
>>
>> I am trying to combine two CSV files that look like this:
>>
>> File A
>>
>> Row_ID_CR,   Data1,    Data2,    Data3
>> 1,                   aa,          bb,          cc
>> 2,                   dd,          ee,          ff
>>
>>
>> File B
>>
>> Row_ID_N,   Src_Row_ID,   DataN1
>> 1a,               1,                   This is comment 1
>> 2a,               1,                   This is comment 2
>> 3a,               2,                   This is comment 1
>> 4a,               1,                   This is comment 3
>>
>> And the output I am looking for is, comparing the values of Row_ID_CR and
>> Src_Row_ID
>>
>> Output
>>
>> ROW_ID_CR,    Data1,    Data2,    Data3,    DataComment1,
>>  DataComment2,          DataComment3
>> 1,                      aa,         bb,         cc,        This is
>> comment1,    This is comment2,     This is comment 3
>> 2,                      dd,          ee,         ff,          This is
>> comment1
>>
>>
>> I am a novice R user, I am able to replicate a left join but I need a bit
>> more in the final result.
>>
>>
>> Thanks!!
>>
>>         [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> R-help@r-project.org mailing list
>> 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.
>>
>
>
>
> --
> Jim Holtman
> Data Munger Guru
>
> What is the problem that you are trying to solve?
> Tell me what you want to do, not how you want to do it.
>

	[[alternative HTML version deleted]]

