3

我有一个以下格式的数据框,有两列。

第一列是名称,第二列是描述,表示层次结构中的级别。即A校和B校同级,Class比学校低一级,所以他们的des更长,在其学校des1@123或1@124之后多了一个@。那么学生……

name        des
School A    1@123
School B    1@124
Class A     1@123@230
Class B     1@123@231
Class C     1@124@232
Class D     1@124@233
Student 1   1@123@230@001
Student 2   1@123@231@002
Student 3   1@123@231@003
Student 4   1@124@232@004
Student 5   1@124@233@005

我想根据他们的 des 将数据重新排列成几列,比如旋转。即不确定我们在 R 中是否有任何相关代码?谢谢。

School A    Class A   Student 1
School A    Class B   Student 2
School A    Class B   Student 3
School B    Class C   Student 4
School B    Class D   Student 5
4

1 回答 1

1

这应该可以帮助您完成大部分工作,其余的只是重新编码或查找

library(tidyr)
library(dplyr)

separate(df, des, into = c("School_1", "School_2", "Class"), 
         sep = "@", extra = "drop") %>%
  unite(School, School_1:School_2) %>%
  .[grepl("Student", .$name), ]

#         name School Class
# 7  Student 1  1_123   230
# 8  Student 2  1_123   231
# 9  Student 3  1_123   231
# 10 Student 4  1_124   232
# 11 Student 5  1_124   233
# 12 Student 5  1_124   233
于 2015-03-11T18:25:25.987 回答