如何在R中将一个变量分成两个变量？

Question

我有一个变量 x ，它可以取五个值（0,1,2,3,4）。我想将变量分为两个变量。变量 1 应该包含值 0，变量 2 应该包含值 1、2、3 和 4。 我确信这很容易，但我不知道我需要做什么。

我的数据是什么样的：

|variable x|
|-----------|
|0|
|1|
|0|
|4|
|3|
|0|
|0|
|2|

所以我得到了表：

0	1	2	3	4
125	34	14	15	15

但我希望我的数据看起来像这个

变量 1
125

变量 2
78

所以变量 1 应该包含 0 在我的数据中出现的频率数据

和变量 2 应该包含我的数据中 1、2、3 和 4 出现频率的总和

Answer 1

您可以通过测试x == 0是否需要确切的标题来将变量转换为逻辑

x <- c(0, 1, 0, 4, 3, 0, 0, 2)

table(x)
#> x
#> 0 1 2 3 4 
#> 4 1 1 1 1 

table(x == 0)
#> FALSE  TRUE 
#>     4     4 

，请执行：

setNames(table(x == 0), c(0, paste(unique(sort(x[x != 0])), collapse = ","))
#>     0   1,2,3,4 
#>     4         4 

如果要将变量更改为可以执行的因素：

c("zero", "not zero")[1 + (x != 0)]
#>          x
#> 1     zero
#> 2 not zero
#> 3     zero
#> 4 not zero
#> 5 not zero
#> 6     zero
#> 7     zero
#> 8 not zero

^>由

Answer 2

基本 R

您可以使用cbind：

x = sample(0:5, 200, replace = T)
table(x)
# x
#  0  1  2  3  4  5 
# 29 38 41 35 27 30

cbind(`0` = table(x)[1], `1,2,3,4` = sum(table(x)[2:5]))
#    0 1,2,3,4
# 0 29     141

tidyverse

library(tidyverse)
ta = as.data.frame(t(as.data.frame.array(table(x))))
ta %>% 
  mutate(!!paste(names(.[-1]), collapse = ",") := sum(c_across(`1`:`5`)), .keep = "unused")

#    0 1,2,3,4,5
# 1 29       171

Answer 3

从向量开始，我们可以从table中获取频率，然后将其放入数据帧中。然后，我们可以创建一个名称折叠的新列（即 1,2,3,4），并获取除第一列之外的所有列的行总和。

library(tidyverse)

tab <- data.frame(value=c(0, 1, 2, 3, 4), 
              freq=c(125,   34, 14, 15, 15))
x <- rep(tab$value, tab$freq)

output <- data.frame(rbind(table(x))) %>%
  rename_with(~str_remove(., 'X')) %>%
  mutate(!!paste0(names(.)[-1], collapse = ",") := rowSums(select(., -1))) %>%
  select(1, last_col())

输出

    0 1,2,3,4
1 125      78

然后，要在 2 个数据框中创建 2 个变量，您可以将列拆分为列表，更改名称，然后放入全局环境中。

list2env(setNames(
  split.default(output, seq_along(output)),
  c("variable 1", "variable 2")
), envir = .GlobalEnv)

或者你可以直接子集：

variable1 <- data.frame(`variable 1` = output
从向量开始，我们可以从table中获取频率，然后将其放入数据帧中。然后，我们可以创建一个名称折叠的新列（即 1,2,3,4），并获取除第一列之外的所有列的行总和。
library(tidyverse)

tab <- data.frame(value=c(0, 1, 2, 3, 4), 
              freq=c(125,   34, 14, 15, 15))
x <- rep(tab$value, tab$freq)

output <- data.frame(rbind(table(x))) %>%
  rename_with(~str_remove(., 'X')) %>%
  mutate(!!paste0(names(.)[-1], collapse = ",") := rowSums(select(., -1))) %>%
  select(1, last_col())

 输出
    0 1,2,3,4
1 125      78

然后，要在 2 个数据框中创建 2 个变量，您可以将列拆分为列表，更改名称，然后放入全局环境中。
list2env(setNames(
  split.default(output, seq_along(output)),
  c("variable 1", "variable 2")
), envir = .GlobalEnv)

或者你可以直接子集：
0`, check.names = FALSE)
variable2 <- data.frame(`variable 2` = output
从向量开始，我们可以从table中获取频率，然后将其放入数据帧中。然后，我们可以创建一个名称折叠的新列（即 1,2,3,4），并获取除第一列之外的所有列的行总和。
library(tidyverse)

tab <- data.frame(value=c(0, 1, 2, 3, 4), 
              freq=c(125,   34, 14, 15, 15))
x <- rep(tab$value, tab$freq)

output <- data.frame(rbind(table(x))) %>%
  rename_with(~str_remove(., 'X')) %>%
  mutate(!!paste0(names(.)[-1], collapse = ",") := rowSums(select(., -1))) %>%
  select(1, last_col())

 输出
    0 1,2,3,4
1 125      78

然后，要在 2 个数据框中创建 2 个变量，您可以将列拆分为列表，更改名称，然后放入全局环境中。
list2env(setNames(
  split.default(output, seq_along(output)),
  c("variable 1", "variable 2")
), envir = .GlobalEnv)

或者你可以直接子集：
1,2,3,4`, check.names = FALSE)

Answer 4

更新：删除第一个答案：

df[paste(names(df[2:5]), collapse = ",")] <- rowSums(df[2:5])
df[, c(1,6)]

# A tibble: 1 × 2
    `0` `1,2,3,4`
  <dbl>     <dbl>
1   125        78

数据：

df <- structure(list(`0` = 125, `1` = 34, `2` = 14, `3` = 15, `4` = 15), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, -1L))