r - Fusing dfs with equal dimmensions -

i fuse 3 data frames (aa, ab , bb) contain same dimensions , never contain number in same coordinate (if 1 contain number others contain na. can true specific coordinate contain na data frames). input:

aa <- 'pr_id  sample1  sample2 sample3             ax-1   na       120     130                 ax-2   na       na     na             ax-3   na       na     na' aa <- read.table(text=aa, header=t)  ab <- 'pr_id  sample1  sample2 sample3             ax-1   100       na     na                 ax-2   na       180     na             ax-3   na       120     na' ab <- read.table(text=ab, header=t)  bb <- 'pr_id  sample1  sample2 sample3             ax-1   na       na     na                 ax-2   150       na     na             ax-3   160       na     na' bb <- read.table(text=bb, header=t)  

my expected output:

fus <- 'pr_id  sample1  sample2 sample3             ax-1   100       120     130                 ax-2   150       180     na             ax-3   160       120     na' fus <- read.table(text=fus, header=t) 

some idea perform fusion?

here possible solution giving matrix

l <- lapply(list(aa, ab, bb), function(x) { row.names(x) <- x[[1]]; as.matrix(x[-1])}) reduce(function(x, y) ifelse(is.na(x), y, x), l) 

if want dataframe:

l <- lapply(list(aa, ab, bb), function(x) { row.names(x) <- x[[1]]; as.matrix(x[-1])}) x <- reduce(function(x, y) ifelse(is.na(x), y, x), l) as.data.frame(x)  # fus <- as.data.frame(x) 

you can in loop:

l <- lapply(list(aa, ab, bb), function(x) { row.names(x) <- x[[1]]; as.matrix(x[-1])}) x <- l[[1]] (i in 2:length(l)) x <- ifelse(is.na(x), l[[i]], x) x 

or

l <- lapply(list(aa, ab, bb), function(x) { row.names(x) <- x[[1]]; as.matrix(x[-1])}) x <- l[[1]] (i in 2:length(l)) x[is.na(x)] <- l[[i]][is.na(x)] x