如何合并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

如果您不介意使用外部 package，您可以使用tidyr package 中的separate_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 package (v2.0.1) 创建于 2022-04-10}