如何在R中将两个或多个变量组合成一个？

Question

我目前正在尝试对我的数据进行 t 检验。我有三个变量（或者说组）。有猫或狗或没有宠物的人。现在我想组成小组，把猫和狗的人放在一个叫做“宠物”的小组中。然后我将此组与“无宠物”组进行比较。我该怎么做？

> mytable <- read.csv2("versuch.csv")
> mytable
  cats dogs none
1    3    1    3
2    5    2    2
3    3    6    5
4    8    8    9
5    5    5    8
6    6    9    2

我希望它看起来像这样：

> mytable <- read.csv2("versuch.csv")
> mytable
  cats dogs none  pets
1    3    1    3  3
2    5    2    2  5
3    3    6    5  3
4    8    8    9  8
5    5    5    8  5
6    6    9    2  6
7                 1
8                 2
9                 6
10                8
...               ....
 

所以基本上我想要一个额外的变量，它包含 cat 和 dog 变量的值。有没有可能做到这一点？

Answer 1

我们可以使用来自tibble 包的add_row：

library(tidyverse)

df %>% 
  mutate(pets = cats) %>% 
  add_row(pets = df$dogs)

输出：

    cats  dogs  none  pets
   <dbl> <dbl> <dbl> <dbl>
 1     3     1     3     3
 2     5     2     2     5
 3     3     6     5     3
 4     8     8     9     8
 5     5     5     8     5
 6     6     9     2     6
 7    NA    NA    NA     1
 8    NA    NA    NA     2
 9    NA    NA    NA     6
10    NA    NA    NA     8
11    NA    NA    NA     5
12    NA    NA    NA     9

数据：

df <- tibble::tribble(
~cats, ~dogs, ~none,
3, 1, 3, 
5, 2, 2, 
3, 6, 5, 
8, 8, 9,
5, 5, 8,
6, 9, 2)

Answer 2

数据框中的不同列的行数不能不相等。您可以将NA 附加到其他列。

vec <- unlist(mytable[c('cats', 'dogs')], use.names = FALSE)
mytable <- cbind(mytable[1:length(vec), ], pets = vec)
rownames(mytable) <- NULL
mytable

#   cats dogs none pets
#1     3    1    3    3
#2     5    2    2    5
#3     3    6    5    3
#4     8    8    9    8
#5     5    5    8    5
#6     6    9    2    6
#7    NA   NA   NA    1
#8    NA   NA   NA    2
#9    NA   NA   NA    6
#10   NA   NA   NA    8
#11   NA   NA   NA    5
#12   NA   NA   NA    9

数据

mytable <- structure(list(cats = c(3L, 5L, 3L, 8L, 5L, 6L), dogs = c(1L, 
2L, 6L, 8L, 5L, 9L), none = c(3L, 2L, 5L, 9L, 8L, 2L)), 
class = "data.frame", row.names = c(NA, -6L))