请教一下，在R中用什么命令可以增加下图中的一列？

> data1<-data.frame(user_id=y,user_class=x)
> data1
   user_id user_class
1        1          1
2        2          1
3        3          1
4        4          1
5        5          1
6        6          1
7        7          1
8        8          2
9        9          2
10      10          2
11      11          2
12      12          2
13      13          3
14      14          3
15      15          3
16      16          3
> data1[which(data1$user_class=='1'),]
  user_id user_class
1       1          1
2       2          1
3       3          1
4       4          1
5       5          1
6       6          1
7       7          1
> data1[which(data1$user_class=='1'),'new_col']<-seq(1:nrow(data1[which(data1$user_class=='1'),]))
> data1[which(data1$user_class=='2'),'new_col']<-seq(1:nrow(data1[which(data1$user_class=='2'),]))
> data1[which(data1$user_class=='3'),'new_col']<-seq(1:nrow(data1[which(data1$user_class=='3'),]))
> data1
      user_id     user_class   new_col
1        1          1       1
2        2          1       2
3        3          1       3
4        4          1       4
5        5          1       5
6        6          1       6
7        7          1       7
8        8          2       1
9        9          2       2
10      10          2       3
11      11          2       4
12      12          2       5
13      13          3       1
14      14          3       2
15      15          3       3
16      16          3       4
>