d*******1
发帖数: 854 | 1 一个string, 像xxx_yyy_zzzz_1, 怎样把yyy parse出来，根据yyy是被_分割开的第二
个string. 试了strsplit(data,'_')得到一个list, 不是想要的 | g********r
发帖数: 8017 | 2 unlist()[2]
【在 d*******1 的大作中提到】
: 一个string, 像xxx_yyy_zzzz_1, 怎样把yyy parse出来，根据yyy是被_分割开的第二
: 个string. 试了strsplit(data,'_')得到一个list, 不是想要的
| d*******1
发帖数: 854 | 3 我的数据是这样：
dataframe: fm:
name
xxx_yyy_24hr_1
xxx_yyy_24hr_2
xxx_yyy_48hr_1
xxx_yyy_48hr_2
split<- strsplit(fm$name,'_')
这样每一行产生四个元素， 假设原来的DATA 一共100行， 我用unlist就会产生4X100
元素， 所以用 unlist(split)[3]就把24hr 赋值给所有rows了。 必须这样：
fm$time<- unlist(split)[c(3,7,11,15......)]
但是我的总行数一般是开始不知道的， 怎么办呢？
谢谢了
【在 g********r 的大作中提到】
: unlist()[2]
| g********r
发帖数: 8017 | 4 matrix(unlist(),nrow=4)[2,]
4X100
【在 d*******1 的大作中提到】
: 我的数据是这样：
: dataframe: fm:
: name
: xxx_yyy_24hr_1
: xxx_yyy_24hr_2
: xxx_yyy_48hr_1
: xxx_yyy_48hr_2
: split<- strsplit(fm$name,'_')
: 这样每一行产生四个元素， 假设原来的DATA 一共100行， 我用unlist就会产生4X100
: 元素， 所以用 unlist(split)[3]就把24hr 赋值给所有rows了。 必须这样：
| h******e
发帖数: 6 | 5 unlist(lapply(split, function(x) {x[2]})) | t**i
发帖数: 688 | 6 do.call("rbind", strsplit(....))[,2] | d*******1
发帖数: 854 | 7 需要transpose 才行：
split<- strsplit(test$Experiment, '_')
msplit<- t(matrix(unlist(split),nrow=4))
test$time<- msplit[,3]
【在 g********r 的大作中提到】
: matrix(unlist(),nrow=4)[2,]
:
: 4X100
|
|
