Try the following code.
It is basic but effective;

 *setwd("/home/user2/Documents")*

*Test_matrix=read.csv("Trial.csv",header=T) # The 1st table that you have
considered
*

*Test_matrix=as.matrix(Test_matrix)*

*Writer=function(mat){u=unique(mat[,"Subject"])*

*l=length(u)*

*dummy=lapply(1:l,FUN=function(x){string=u[x]*

*step1=unlist(strsplit(string,""))*

*file_name=substring(string,(which(step1=="[")+1),(which(step1=="]")-1))*

*m=mat[which(mat[,"Subject"]==string),]*

*dummy_matrix=matrix(rep(0,11*11),nrow=11)*

*colnames(dummy_matrix)=#Names of all the 11 ppl.*

*rownames(dummy_matrix)=#Names of all the 11 ppl.*

*for(i in 1:11)*

*{for(j in 1:11)*

*
{index=which(m[,"Receiver"]==rownames(dummy)[i]&m[,"Sender"]==colnames(dummy)[j])
*

*count=length(index)*

*dummy_matrix[i,j]=count}}*

*
write.csv(dummy_matrix,paste('/home/hduser/',file_name,'_counts','.csv',sep=''))
*

*write.csv(m,paste('/home/hduser/',file_name,".csv",sep=""))*

*})}*


*I hope this helps,*


*Best,*

*Heramb
*


On Tue, Sep 25, 2012 at 12:29 PM, PIKAL Petr <petr.pikal@precheza.cz> wrote:

> Hi
>
> your data are difficult to read so I make my own
>
> set.seed(111)
> sender<-sample(letters[1:5], 20, replace=T)
> receiver<-sample(letters[1:5], 20, replace=T)
> xtabs(~sender+receiver)
>       receiver
> sender a b c d e
>      a 1 1 3 1 0
>      b 0 1 0 1 1
>      c 1 3 2 2 0
>      d 0 1 0 0 1
>      e 0 0 0 1 0
>
> If you want such result from each subject of your table }presumably
> data.frame just split and lapply it
>
> untested
> lapply(split(your.data, by a column), function (x)
> xtabs(~x$sender+x$receiver))
>
> Regards
>
> Petr
>
>
> > -----Original Message-----
> > From: r-help-bounces@r-project.org [mailto:r-help-bounces@r-
> > project.org] On Behalf Of s.s.m. fauzi
> > Sent: Tuesday, September 25, 2012 4:06 AM
> > To: r-help@r-project.org
> > Subject: [R] mapping data from table to .csv template
> >
> > I have a .csv table named mailing.csv as below. It consist a receiver,
> > subject and sender.
> >
> >       Receiver                                subject       sender
> > 1   Adrian Cole    RE: [WHIRR-117] Composable services    Tom White
> > 2   Adrian Cole    RE: [WHIRR-117] Composable services    Tom White
> > 3   Adrian Cole    RE: [WHIRR-117] Composable services  Adrian Cole
> > 4   Adrian Cole    RE: [WHIRR-117] Composable services  Adrian Cole
> > 5   Adrian Cole    RE: [WHIRR-117] Composable services    Tom White
> > 6   Adrian Cole    RE: [WHIRR-117] Composable services  Adrian Cole
> > 7   Adrian Cole    RE: [WHIRR-117] Composable services    Tom White
> > 8   Adrian Cole    RE: [WHIRR-117] Composable services    Tom White
> > 9   Adrian Cole    RE: [WHIRR-117] Composable services  Adrian Cole
> > 10  Adrian Cole    RE: [WHIRR-117] Composable services  Adrian Cole
> > 11  Adrian Cole    RE: [WHIRR-117] Composable services    Tom White
> > 12  Adrian Cole    RE: [WHIRR-117] Composable services    Tom White
> > 13  Adrian Cole    RE: [WHIRR-117] Composable services    Tom White
> > 14  Adrian Cole    RE: [WHIRR-117] Composable services    Tom White
> > 15 Patrick Hunt RE: [WHIRR-123] Cassandra integration     Tom White
> > 16 Patrick Hunt RE: [WHIRR-123] Cassandra integration   Andrei Savu
> > 17 Patrick Hunt RE: [WHIRR-123] Cassandra integration   Andrei Savu
> > 18 Patrick Hunt RE: [WHIRR-123] Cassandra integration     Tom White
> > 19 Patrick Hunt RE: [WHIRR-123] Cassandra integration     Tom White
> > 20 Patrick Hunt RE: [WHIRR-123] Cassandra integration   Adrian Cole
> > 21 Patrick Hunt RE: [WHIRR-123] Cassandra integration     Tom White22
> > Patrick Hunt RE: [WHIRR-123] Cassandra integration  Patrick Hunt
> >
> > What I would like to do is to update/map the information from table
> > above to .csv template (namedAC_template.csv), and save it in a
> > separate file using subject details in backet as file name (for
> > instance AC_WHIRR-117). As for table above, it should create two new
> > files name as AC_WHIRR-117and AC_WHIRR-123.
> >
> > sample .csv template (AC_template.csv) is as below:
> >
> >                 Adrian.Cole Patrick.Hunt Andrei.Savu Bruno.Dumon
> > Edward.J..Yoon Eugene.Koontz Jakob.Homan Kelvin.Kakugawa Tom.White
> > Adrian Cole               0            0           0           0
> >        0             0           0               0         0
> > Patrick Hunt              0            0           0           0
> >        0             0           0               0         0
> > Andrei Savu               0            0           0           0
> >        0             0           0               0         0
> > Bruno Dumon               0            0           0           0
> >        0             0           0               0         0
> > Edward J. Yoon            0            0           0           0
> >        0             0           0               0         0
> > Eugene Koontz             0            0           0           0
> >        0             0           0               0         0
> > Jakob Homan               0            0           0           0
> >        0             0           0               0         0
> > Kelvin Kakugawa           0            0           0           0
> >        0             0           0               0         0
> > Tom White                 0            0           0           0
> >        0             0           0               0         0
> > Lars George               0            0           0           0
> >        0             0           0               0         0
> > Soren Macbeth             0            0           0           0
> >        0             0           0               0         0
> >                 Lars.George Soren.Macbeth
> > Adrian Cole               0             0
> > Patrick Hunt              0             0
> > Andrei Savu               0             0
> > Bruno Dumon               0             0
> > Edward J. Yoon            0             0
> > Eugene Koontz             0             0
> > Jakob Homan               0             0
> > Kelvin Kakugawa           0             0
> > Tom White                 0             0
> > Lars George               0             0
> > Soren Macbeth             0             0
> >
> > Sample output for this question is as below:
> >
> > sample output for AC_WHIRR-117:
> >
> >                 Adrian.Cole Patrick.Hunt Andrei.Savu Bruno.Dumon
> > Edward.J..Yoon Eugene.Koontz Jakob.Homan Kelvin.Kakugawa Tom.White
> > Adrian Cole               0            0           0           0
> >        0             0           0               0         9
> > Patrick Hunt              0            0           0           0
> >        0             0           0               0         0
> > Andrei Savu               0            0           0           0
> >        0             0           0               0         0
> > Bruno Dumon               0            0           0           0
> >        0             0           0               0         0
> > Edward J. Yoon            0            0           0           0
> >        0             0           0               0         0
> > Eugene Koontz             0            0           0           0
> >        0             0           0               0         0
> > Jakob Homan               0            0           0           0
> >        0             0           0               0         0
> > Kelvin Kakugawa           0            0           0           0
> >        0             0           0               0         0
> > Tom White                 9            0           0           0
> >        0             0           0               0         0
> > Lars George               0            0           0           0
> >        0             0           0               0         0
> > Soren Macbeth             0            0           0           0
> >        0             0           0               0         0
> >                 Lars.George Soren.Macbeth
> > Adrian Cole               0             0
> > Patrick Hunt              0             0
> > Andrei Savu               0             0
> > Bruno Dumon               0             0
> > Edward J. Yoon            0             0
> > Eugene Koontz             0             0
> > Jakob Homan               0             0
> > Kelvin Kakugawa           0             0
> > Tom White                 0             0
> > Lars George               0             0
> > Soren Macbeth             0             0
> >
> > Sample output for AC_WHIRR-123
> >
> >               Adrian.Cole Patrick.Hunt Andrei.Savu Bruno.Dumon
> > Edward.J..Yoon Eugene.Koontz Jakob.Homan Kelvin.Kakugawa Tom.White
> > Adrian Cole               0            1           0           0
> >        0             0           0               0         0
> > Patrick Hunt              1            0           2           0
> >        0             0           0               0         4
> > Andrei Savu               0            2           0           0
> >        0             0           0               0         0
> > Bruno Dumon               0            0           0           0
> >        0             0           0               0         0
> > Edward J. Yoon            0            0           0           0
> >        0             0           0               0         0
> > Eugene Koontz             0            0           0           0
> >        0             0           0               0         0
> > Jakob Homan               0            0           0           0
> >        0             0           0               0         0
> > Kelvin Kakugawa           0            0           0           0
> >        0             0           0               0         0
> > Tom White                 0            4           0           0
> >        0             0           0               0         0
> > Lars George               0            0           0           0
> >        0             0           0               0         0
> > Soren Macbeth             0            0           0           0
> >        0             0           0               0         0
> >                 Lars.George Soren.Macbeth
> > Adrian Cole               0             0
> > Patrick Hunt              0             0
> > Andrei Savu               0             0
> > Bruno Dumon               0             0
> > Edward J. Yoon            0             0
> > Eugene Koontz             0             0
> > Jakob Homan               0             0
> > Kelvin Kakugawa           0             0
> > Tom White                 0             0
> > Lars George               0             0
> > Soren Macbeth             0             0
> >
> > Appreciate help from the expert...
> >
> >       [[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.
>
> ______________________________________________
> 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.
>

	[[alternative HTML version deleted]]


