Question

我有一个数据帧df，它看起来像：

                               V1              V2      V3 New
1 - SIERRA MIJAS  (MA) - (001M02)  03/12/15 10:00  11,390 1
1 - SIERRA MIJAS  (MA) - (001M02)  03/12/15 11:00  11,830 1
1 - SIERRA MIJAS  (MA) - (001M02)  03/12/15 12:00  12,370 1
2 - SIERRA MIJAS  (MA)2- (001M02)  03/12/15 13:00  14,550 2
2 - SIERRA MIJAS  (MA)2- (001M02)  03/12/15 14:00  15,510 2
3 - SIERRA MIJAS  (MA)3- (001M02)  03/12/15 15:00  15,220 3

我需要在第一列的第一个标记的基础上添加一个新列。我的意思是，我需要这样的东西：

df$New<-strsplit(df[,1]," ")[[1]][1]

我尝试过类似的东西：

#include <pthread.h>
int Global;
void *Thread1(void *x) {
  Global = 42;
  return x;
}
int main() {
  pthread_t t;
  pthread_create(&t, NULL, Thread1, NULL);
  Global = 43;
  pthread_join(t, NULL);
  return Global;
}

但我对任何一行都有相同的值：“1”。

有没有简单的方法可以搞清楚？

由于

Answer 1

使用strsplit执行此操作的一种方法：

#strsplit returns a list so you need a function like sapply to 
#extract the first element from each vector of each element of the list
df$New <- sapply(strsplit(df[,1], ' '), '[', 1)

输出：

> df
                                 V1             V2     V3 New
1 1 - SIERRA MIJAS  (MA) - (001M02) 03/12/15 10:00 11,390   1
2 1 - SIERRA MIJAS  (MA) - (001M02) 03/12/15 11:00 11,830   1
3 1 - SIERRA MIJAS  (MA) - (001M02) 03/12/15 12:00 12,370   1
4 2 - SIERRA MIJAS2 (MA)2- (001M02) 03/12/15 13:00 14,550   2
5 2 - SIERRA MIJAS2 (MA)2- (001M02) 03/12/15 14:00 15,510   2
6 3 - SIERRA MIJAS3 (MA)3- (001M02) 03/12/15 15:00 15,220   3

数据：

df<-read.table(header=T, text='                             V1              V2      V3
"1 - SIERRA MIJAS  (MA) - (001M02)"  "03/12/15 10:00"  11,390
           "1 - SIERRA MIJAS  (MA) - (001M02)"  "03/12/15 11:00"  11,830
           "1 - SIERRA MIJAS  (MA) - (001M02)"  "03/12/15 12:00"  12,370
           "2 - SIERRA MIJAS2 (MA)2- (001M02)"  "03/12/15 13:00"  14,550
           "2 - SIERRA MIJAS2 (MA)2- (001M02)"  "03/12/15 14:00"  15,510
           "3 - SIERRA MIJAS3 (MA)3- (001M02)"  "03/12/15 15:00"  15,220')

使用strsplit添加新列

1 个答案: