R - как создать dataframe векторов с координатами xy

Question

Предположим, у меня есть следующие 2 фрейма данных

dfx <- data.frame(z = rpois(10,2), q = rpois(10,2), p = rpois(10,2), k = rpois(10,2), t = rpois(10,2))

dfy <- data.frame(a = rpois(10,2), b = rpois(10,2), c = rpois(10,2), d = rpois(10,2), e = rpois(10,2))

с dfx, согласующимся с набором значений x, и dfy, состоящим из набора значений y - z-партнер по a, q-партнер до б, et c.). Я хочу создать фрейм данных, в котором: 1) каждый столбец имеет координаты оси и у, чтобы он выглядел следующим образом

column1:    column2     column3:     column4:    column5:
z1,a1       q1,b1       p1,c1        k1,d1        t1,e1       
z2,a2       q2,b2       p2,c2        k2,d2        ...
z3,a3       q3,b3       p3,c3        ...          ...
z4,a4       q4,b4       ...          ...          ...
...         ...

etc.

Любая помощь приветствуется.

Answer 1

Один base R параметр может быть:

df <- data.frame(matrix(paste(unlist(dfx), unlist(dfy), sep = ","), dim(dfx)))
names(df) <- paste0("column", 1:length(df))

   column1 column2 column3 column4 column5
1      1,1     2,2     3,2     2,0     0,3
2      1,3     1,4     3,1     2,1     1,4
3      2,0     0,4     4,1     2,1     2,4
4      3,3     3,3     2,2     1,3     1,2
5      2,2     2,3     0,1     0,0     0,3
6      1,0     0,1     2,4     5,3     4,3
7      0,1     1,3     2,3     0,2     4,3
8      0,1     0,2     1,4     2,3     1,1
9      1,6     2,3     1,0     5,3     0,2
10     3,1     1,2     0,3     3,2     2,1

Answer 2

Мы можем сделать paste

out <- data.frame(Map(paste, dfx, dfy, MoreArgs = list(sep=",")))
names(out) <- paste0("column", seq_along(out))
out
#   column1 column2 column3 column4 column5
#1      2,2     1,6     1,0     1,0     1,5
#2      3,2     3,3     1,2     2,2     0,1
#3      3,3     1,0     2,2     1,3     1,1
#4      2,2     5,3     2,4     4,1     1,0
#5      3,1     4,1     1,3     1,1     0,1
#6      4,1     1,2     3,2     2,1     1,5
#7      5,2     5,0     0,2     4,3     2,1
#8      3,0     2,5     4,2     5,4     4,2
#9      3,3     3,2     0,3     5,1     0,3
#10     4,2     2,2     0,1     4,3     5,1

Или, если это должен быть list столбец

Map(list, dfx, dfy)

---

Или, если он преобразуется в matrix, paste может применяться непосредственно

array(paste(as.matrix(dfx), as.matrix(dfy), sep=","), dim = dim(dfx),
      dimnames = list(NULL, paste0("column", seq_along(dfx))))

---

С tidyverse мы можем использовать map2

library(purrr)
library(stringr)
map2_df(dfx, dfy, str_c, sep=",") %>%
    rename_all(~ str_c('column', seq_along(.)))