使用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