Jak połączyć dwa wektory w ramce danych

Question

Mam dwa wektory jak ten

x <-c(1,2,3) 
y <-c(100,200,300) 
x_name <- "cond" 
y_name <- "rating" 

Chciałbym wyjście dataframe tak:

> print(df) 
     cond rating 
     1 x 1 
     2 x 2 
     3 x 3 
     4 y 100 
     5 y 200 
     6 y 300 

Jaki jest sposób to zrobić?

Answer 1

x <-c(1,2,3) 
y <-c(100,200,300) 
x_name <- "cond" 
y_name <- "rating" 

require(reshape2) 
df <- melt(data.frame(x,y)) 
colnames(df) <- c(x_name, y_name) 
print(df) 

UPDATE (7.02.2017): Jako odpowiedź na @cdaringe komentarz - istnieje wiele rozwiązań możliwe, jednym z nich jest niższa.

library(dplyr) 
library(magrittr) 

x <- c(1, 2, 3) 
y <- c(100, 200, 300) 
z <- c(1, 2, 3, 4, 5) 
x_name <- "cond" 
y_name <- "rating" 

# Helper function to create data.frame for the chunk of the data 
prepare <- function(name, value, xname = x_name, yname = y_name) { 
    data_frame(rep(name, length(value)), value) %>% 
    set_colnames(c(xname, yname)) 
} 

bind_rows(
    prepare("x", x), 
    prepare("y", y), 
    prepare("z", z) 
) 

Answer 2

df = data.frame(cond=c(rep("x",3),rep("y",3)),rating=c(x,y))

Answer 3

To powinno załatwić sprawę, aby wytworzyć ramkę danych prosiłeś, używając tylko zasady R:

df <- data.frame(cond=c(rep("x", times=length(x)), 
         rep("y", times=length(y))), 
       rating=c(x, y)) 

df 
    cond rating 
1 x  1 
2 x  2 
3 x  3 
4 y 100 
5 y 200 
6 y 300 

Jednak ze swojego początkowego opisu, powiedziałbym, że jest to prawdopodobnie bardziej prawdopodobne użycie:

df2 <- data.frame(x, y) 
colnames(df2) <- c(x_name, y_name) 

df2 
    cond rating 
1 1 100 
2 2 200 
3 3 300 

[edytuj: przeniesione nawiasy w przykładzie 1]

Answer 4

Oto prosta funkcja. Generuje ramkę danych i automatycznie używa nazw wektorów jako wartości dla pierwszej kolumny.

myfunc <- function(a, b, names = NULL) { 
    setNames(data.frame(c(rep(deparse(substitute(a)), length(a)), 
         rep(deparse(substitute(b)), length(b))), c(a, b)), names) 
} 

Przykład:

x <-c(1,2,3) 
y <-c(100,200,300) 
x_name <- "cond" 
y_name <- "rating" 

myfunc(x, y, c(x_name, y_name)) 

    cond rating 
1 x  1 
2 x  2 
3 x  3 
4 y 100 
5 y 200 
6 y 300 

Answer 5

Choć to nie jest odpowiedź na pytanie zadane, to odpowiada powiązany wątpliwości, że wiele osób miało:

x <-c(1,2,3) 
y <-c(100,200,300) 
x_name <- "cond" 
y_name <- "rating" 

df <- data.frame(x,y) 
names(df) <- c(x_name,y_name) 
print(df) 

    cond rating 
1 1 100 
2 2 200 
3 3 300 

Answer 6

Można użyć expand.grid() Funkcja.

x <-c(1,2,3) 
y <-c(100,200,300) 
expand.grid(cond=x,rating=y) 

Answer 7

Alt uproszczenie https://stackoverflow.com/users/1969435/gx1sptdtda powyżej:

cond <-c(1,2,3) 
rating <-c(100,200,300) 
df <- data.frame(cond, rating) 
df 
    cond rating 
1 1 100 
2 2 200 
3 3 300