Problem with comparing multiple data sets

Hi Jim,

Thank you for your advice.

I'm not sure how to exactly incorporate this function though. I added a
portion of the actual data sets. all 3 data sets have the same items (text)
with different class values. So I need to assign the most repeated class
(0,1,2) for each text.

For example: if line1 has text "aaa". It may be assigned to class 0 in
dat1, 2 in dat 2 and 0 in dat3. in this case the "aaa" will be assigned to
0 (most repeated value). So it goes for each text.

I really appreciate your help.

=========================================

*dat1*

structure(list(class.1 = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 2L, 1L, 1L, 1L,
1L, 2L, 2L, 1L, 1L, 2L, 1L, 2L), terms = structure(c(1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 4L, 4L, 4L, 4L, 4L, 3L, 3L, 3L, 3L, 2L, 2L, 2L), .Label =
c("#dac",
"#mac,#security", "accountability,anonymous", "data
security,encryption,security"
), class = "factor")), .Names = c("class.1", "terms"), class =
"data.frame", row.names = c(NA,
-49L))


*dat2*

structure(list(class.2 = c(2L, 2L, 2L, 2L, 0L, 0L, 2L, 0L, 0L,
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 2L, 0L, 2L, 2L, 2L, 1L, 1L, 2L,
2L, 0L, 0L, 0L, 0L, 1L, 1L, 1L), terms = structure(c(1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 4L, 4L, 4L, 4L, 4L, 3L, 3L, 3L, 3L, 2L, 2L, 2L), .Label =
c("#dac",
"#mac,#security", "accountability,anonymous", "data
security,encryption,security"
), class = "factor")), .Names = c("class.2", "terms"), class =
"data.frame", row.names = c(NA,
-49L))


*dat3*

structure(list(class.3 = c(0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 2L, 1L, 1L, 1L,
1L, 0L, 0L, 0L, 0L, 2L, 1L, 2L), terms = structure(c(1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 4L, 4L, 4L, 4L, 4L, 3L, 3L, 3L, 3L, 2L, 2L, 2L), .Label =
c("#dac",
"#mac,#security", "accountability,anonymous", "data
security,encryption,security"
), class = "factor")), .Names = c("class.3", "terms"), class =
"data.frame", row.names = c(NA,
-49L))

===========================================================


On Sun, May 24, 2015 at 1:15 AM, Jim Lemon <drjimlemon at gmail.com> wrote:

Hi Mohammad,
You know, I thought this would be fairly easy, but it wasn't really.

df1<-data.frame(Class=c(0,2,1),Comment=c("com1","com2","com3"),
 Term=c("aac","aax","vvx"),Text=c("text1","text2","text3"))
df2<-data.frame(Class=c(0,2,1),Comment=c("com1","com2","com3"),
 Term=c("aac","aax","vvx"),Text=c("text1","text2","text3"))
df3<-data.frame(Class=c(2,1,0),Comment=c("com1","com2","com3"),
 Term=c("aac","aax","vvx"),Text=c("text1","text2","text3"))
dflist<-list(df1,df2,df3)
dflist

# define a function that extracts the value from one field
# selected by a value in another field
extract_by_value<-function(x,field1,value1,field2) {
 return(x[x[,field1]==value1,field2])
}

# define another function that equates all of the values
sub_value<-function(x,field1,value1,field2,value2) {
 x[x[,field1]==value1,field2]<-value2
 return(x)
}

conformity<-function(x,fieldname1,value1,fieldname2) {
 # get the most frequent value in fieldname2
 # for the desired value in fieldname1
 most_freq<-as.numeric(names(which.max(table(unlist(lapply(x,
  extract_by_value,fieldname1,value1,fieldname2))))))
 # now set all the values to the most frequent
 for(i in 1:length(x))
  x[[i]]<-sub_value(x[[i]],fieldname1,value1,fieldname2,most_freq)
 return(x)
}

conformity(dflist,"Text","text1","Class")

Jim

On Sat, May 23, 2015 at 11:23 PM, John Kane <jrkrideau at inbox.com> wrote:

Hi Mohammad

Welcome to the R-help list.

There probably is a fairly easy way to what you want but I think we

probably need a bit more background information on what you are trying to
achieve.  I know I'm not exactly clear on your decision rule(s).

It would also be very useful to see some actual sample data in useable

R format.Have a look at these links
http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example
and http://adv-r.had.co.nz/Reproducibility.html for some hints on what
you might want to include in your question.

In particular, read up about dput()  in those links and/or see ?dput.

This is the generally preferred way to supply sample or illustrative data
to the R-help list.  It basically creates a perfect copy of the data as it
exists on 'your' machine so that R-help readers see exactly what you do.

John Kane
Kingston ON Canada

-----Original Message-----
From: mxalimohamma at ualr.edu
Sent: Fri, 22 May 2015 12:37:50 -0500
To: r-help at r-project.org
Subject: [R] Problem with comparing multiple data sets

Hi everyone,

I am very new to R and I have a task to do. I appreciate any help. I

have

3
data sets. Each data set has 4 columns. For example:

Class  Comment   Term   Text
0           com1        aac    text1
2           com2        aax    text2
1           com3        vvx    text3

Now I need t compare the class section between 3 data sets and assign

the

most available class to that text. For example if text1 is assigned to
class 0 in data set 1&2 but assigned as 2 in data set 3 then it should

be

assigned to class 0. If they are all the same so the class will be the
same. The ideal thing would be to keep the same format and just update
the
class. Is there any easy way to do this?

Thanks a lot.

      [[alternative HTML version deleted]]

--
Mohammad Alimohammadi | Graduate Assistant
University of Arkansas at Little Rock | College of Science and Mathematics
(CSAM)
| mxalimohamma at ualr.edu | ualr.edu

Public URL: http://scholar.google.com/citations?user=MsfN_i8AAAAJ