> dados_1 <- read.csv("Teste_01.csv")
> dados_2 <- read.csv("Teste_02.csv")

> dados_1

A Ins Run Time.s Acc
S In1 1   141.60 0.902
S In1 2   150.20 0.905
S In2 1   180.10 0.887
S In2 2   161.50 0.898
P In1 1    75.37 0.840
P In1 2    92.28 0.879
P In2 1   170.90 0.833
P In2 2   114.00 0.833

> dados_2

A Ins Run Time.s Acc
S In1 1   171.50 0.899
S In1 2   166.90 0.887
S In2 1   154.30 0.889
S In2 2   167.10 0.844
S In3 1   162.50 0.915
S In3 2   156.00 0.880
P In1 1   121.50 0.859
P In1 2   122.20 0.874
P In2 1   159.10 0.856
P In2 2    73.70 0.872
P In3 1    10.95 0.857
P In3 2   119.00 0.848

A Ins Run Time.s Acc
S In1 1   141.60 0.902     (veio de dados_1)
S In1 2   150.20 0.905     (veio de dados_1)
S In2 1   180.10 0.887     (veio de dados_1)
S In2 2   161.50 0.898     (veio de dados_1)
S In3 1   162.50 0.915     (veio de dados_2)
S In3 2   156.00 0.880     (veio de dados_2)
P In1 1    75.37 0.840     (veio de dados_1)
P In1 2    92.28 0.879     (veio de dados_1)
P In2 1   170.90 0.833     (veio de dados_1)
P In2 2   114.00 0.833     (veio de dados_1)
P In3 1    10.95 0.857     (veio de dados_2)
P In3 2   119.00 0.848     (veio de dados_2)

aux         <- dados_2[!(dados_2$Ins %in% unique(dados_1$Ins)) |
!(dados_2$A %in% unique(dados_1$A)), ]
dados_final <- rbind(dados_1, aux)

posicao <-
  which(!(dados_2$Ins %in% dados_1$Ins) |
          !(dados_2$A %in% dados_1$A))

# concatena linhas
dados_3 <- rbind(dados_1, dados_2[posicao, ])

dados_3

dados_1 <-
  data.frame(
A = c('S','S','S','S','P','P','P','P'),
Ins = c('In1','In1','In2','In2','In1','In1','In2','In2'),
Run = c(1,2,1,2,1,2,1,2),
Time.s = c(141.60,150.20,180.10,161.50,75.37,92.28,170.90,114.00),
Acc = c(0.902,0.905,0.887,0.898,0.840,0.879,0.833,0.833))

dados_2 <-
  data.frame(
A = c('S','S','S','S','S','S','P','P','P','P','P','P'),
Ins = c('In1','In1','In2','In2','In3','In3','In1','In1','In2','In2','In3','In3'),
Run = c(1,2,1,2,1,2,1,2,1,2,1,2),
Time.s = c(171.50,166.90,154.30,167.10,162.50,156.00,121.50,122.20,159.10,73.70,10.95,119.00),
Acc = c(0.899,0.887,0.889,0.844,0.915,0.880,0.859,0.874,0.856,0.872,0.857,0.848))

dados_1 <- mutate(dados_1, origem = 'veio de dados_1')
dados_2 <- mutate(dados_2, origem = 'veio de dados_2')