如何在R中组合多列

Question

假设我有这个数据集：

     age      height       weight
   "1/2/3"  "12/15/18"   "30/40/37"

我怎样才能拥有像下面的数据集这样的数据集？

   age height weight
    1    12     30
    2    15     40
    3    18     37

如果我的数据集是这样的怎么办：

  name     age      height       weight
 "Jack"  "1/2/3"  "12/15/18"   "30/40/37"

我想要一个如下所示的数据集：

    name  age height weight
   "Jack"  1    12     30
   "Jack"  2    15     40
   "Jack"  3    18     37

我该怎么做？

Answer 1

如果您不介意使用外部软件包，则可以从TIDYR软件包中使用axtim_rows（）。

library(tidyverse)

df %>% separate_rows(-name, sep = "/")

# A tibble: 3 × 4
  name  age   height weight
  <chr> <chr> <chr>  <chr> 
1 Jack  1     12     30    
2 Jack  2     15     40    
3 Jack  3     18     37    

Answer 2

如果您的数据采用这样的数据帧格式：

df <- data.frame(age = '1/2/3', height = '12/15/18', weight = '30/40/37')

df
#>     age   height   weight
#> 1 1/2/3 12/15/18 30/40/37

您可以这样做

as.data.frame(lapply(df, function(x) as.numeric(unlist(strsplit(x, '/')))))
#>   age height weight
#> 1   1     12     30
#> 2   2     15     40
#> 3   3     18     37

如果您的数据是命名向量，则相同的代码也将起作用（从问题中不清楚您的数据采用什么格式，但上面的代码在任何情况下都应该起作用只要您的数据名为 df)

^{由 reprex 包 (v2.0.1)}