R +重塑:使用colsplit w/regex

Question

我试图使用colsplit来分解数据帧中的矢量。事实上，我们有正则表达式作为一个参数来colsplit使我认为它可以是灵活的，但我有麻烦(这可能只是我不理解R中的regex)。

问题来了:

让我们创建一个向量…

> library(reshape)
> my_var_1 <- factor(c("x00_aaa_123","x00_bbb_123","x00_ccc_123","x01_aaa_123","x01_bbb_123","x01_ccc_123","x02_aaa_123","x02_bbb_123","x02_ccc_123"))

我想在第一个下划线上把它分成两列。换句话说，我希望我的最终结果是这样的…

    x whatever
1 x00  aaa_123
2 x00  bbb_123
3 x00  ccc_123
4 x01  aaa_123
5 x01  bbb_123
6 x01  ccc_123
7 x02  aaa_123
8 x02  bbb_123
9 x02  ccc_123

我正试图在colspan中找到正确的正则表达式，但没有运气。这是我能找到的最接近的…

> colsplit(my_var_1, split="_", c("x","whatever")) 
    x whatever NA.
1 x00      aaa 123
2 x00      bbb 123
3 x00      ccc 123
4 x01      aaa 123
5 x01      bbb 123
6 x01      ccc 123
7 x02      aaa 123
8 x02      bbb 123
9 x02      ccc 123

使用拆分正则表达式作为简单的分隔符，它给了我三列。我不希望分割第二个下划线(更糟糕的是，在我的实际数据中，我有任意数量的下划线，而不仅仅是两个)。

是否有一个表达式，我可以使用"分裂"，将给我想要的?

我曾希望colsplit中的正则表达式允许我对组进行匹配，组匹配将是拆分的内容，但情况似乎并非如此。

* edit(感谢@Joshuaulrich) colsplit在使用较新的shape2时"按预期"工作!!

Answer 1

你的代码为我抛出了一个错误:

> colsplit(my_var_1, split="_", c("x","whatever"))
Error in colsplit(my_var_1, split = "_", c("x", "whatever")) : 
  unused argument(s) (split = "_")

split不是colsplit的参数。你想要的参数是pattern，或者你可以只依赖位置匹配:

> colsplit(my_var_1, "_", c("x","whatever"))
    x whatever
1 x00  aaa_123
2 x00  bbb_123
3 x00  ccc_123
4 x01  aaa_123
5 x01  bbb_123
6 x01  ccc_123
7 x02  aaa_123
8 x02  bbb_123
9 x02  ccc_123