arcs<-structure(list(col1 = structure(c(4L, 1L, 2L, 3L, 5L), .Label = c("blah 2",
"blah 3", "blah 4", "data 1", "data 4"), class = "factor"), col2 = structure(c(1L,
3L, 4L, 2L, 5L), .Label = c("blah 1", "blah 5", "data 2", "data 3",
"data 5"), class = "factor")), .Names = c("col1", "col2"), class = "data.frame", row.names = c(NA,
-5L))
> arcs
col1 col2
1 data 1 blah 1
2 blah 2 data 2
3 blah 3 data 3
4 blah 4 blah 5
5 data 4 data 5
data2<-structure(list(oldname = structure(1:5, .Label = c("data 1",
"data 2", "data 3", "data 4", "data 5"), class = "factor"), newname = structure(1:5, .Label = c("real 1",
"real 2", "real 3", "real 4", "real 5"), class = "factor")), .Names = c("oldname",
"newname"), class = "data.frame", row.names = c(NA, -5L))
> data2
oldname newname
1 data 1 real 1
2 data 2 real 2
3 data 3 real 3
4 data 4 real 4
5 data 5 real 5
arcs$col1<-ifelse(as.character(arcs$col1)==as.character(data2$oldname),as.character(data2$newname),as.character(arcs$col1))
> arcs$col1
[1] "real 1" "blah 2" "blah 3" "blah 4" "data 4"
arcs$col2<-ifelse(as.character(arcs$col2)==as.character(data2$oldname),as.character(data2$newname),as.character(arcs$col2))
> arcs$col2
[1] "blah 1" "real 2" "real 3" "blah 5" "real 5"
>arcs
col1 col2
1 real 1 blah 1
2 blah 2 real 2
3 blah 3 real 3
4 blah 4 blah 5
5 data 4 real 5