R中根据匹配原则将一列拆分为几列

使用stringr包中的str_split_fixed函数:

> head(raw)
  Sample    A260   A280
1 C-1d-1 0.39255 0.3688
2 S-1d-1 0.22385 0.2613
3 P-1d-1 0.25075 0.2498
4 N-1d-1 0.32495 0.3121
5 C-2d-1 0.43085 0.4619
6 S-2d-1 0.05365 0.0974

# 根据"-"拆分Sample为三列
# 使用stringr包中的str_split_fixed函数
> library(stringr)
> raw[, c("trt", "DAG", "repl")] <- str_split_fixed(raw$Sample, "-", 3)
> head(raw)
  Sample    A260   A280 trt DAG repl
1 C-1d-1 0.39255 0.3688   C  1d    1
2 S-1d-1 0.22385 0.2613   S  1d    1
3 P-1d-1 0.25075 0.2498   P  1d    1
4 N-1d-1 0.32495 0.3121   N  1d    1
5 C-2d-1 0.43085 0.4619   C  2d    1
6 S-2d-1 0.05365 0.0974   S  2d    1

 

评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值