Pode usar cbind
para colocar os dois data.frames lado a lado e depois ordenar as colunas pelo nome:
df1 <- read.table(
text = "Nom1 Nom2
15.1 20.3
45.5 40.1
32.1 50.2",
header = TRUE)
df2 <- read.table(
text = "Nom1 Nom2
10.1 90.3
35.5 80.1
42.1 50.2",
header = TRUE)
df3 <- cbind(df1, df2)
df3
#> Nom1 Nom2 Nom1 Nom2
#> 1: 15.1 20.3 10.1 90.3
#> 2: 45.5 40.1 35.5 80.1
#> 3: 32.1 50.2 42.1 50.2
df3[order(names(df3))]
#> Nom1 Nom1.1 Nom2 Nom2.1
#> 1 15.1 10.1 20.3 90.3
#> 2 45.5 35.5 40.1 80.1
#> 3 32.1 42.1 50.2 50.2
Note que mesmo que o cbind
mantenha nomes duplicados, ao ordenar eles serão modificados. O mesmo acontecerá se usar qualquer forma de seleção ou indexação, pois não é possível indexar adequadamente nomes duplicados. Por exemplo:
names(subset(df3, select = c("Nom1", "Nom1")))
#> [1] "Nom1" "Nom1.1"
names(df3[, c(1,3)])
#> [1] "Nom1" "Nom1.1"
Se por qualquer motivo realmente precisa que os nomes sejam mantidos duplicados, terá que usar alguma alternativa à data.frames. data.table
aceita nomes duplicados, mas mesmo nesse caso para reordenar terá que estabelecer manualmente o número das colunas:
library(data.table)
setDT(df3)
df3[, c(1,3,2,4)]
#> Nom1 Nom1 Nom2 Nom2
#> 1: 15.1 10.1 20.3 90.3
#> 2: 45.5 35.5 40.1 80.1
#> 3: 32.1 42.1 50.2 50.2
Mas isso é altamente não recomendado. Manter nomes duplicados é simplesmente uma prática ruim.
merge(df1, df2, by = "row.names")
?