向量的增减合并元素

cat(c(1,2,3),c(4,5,6))
1 2 3 4 5 6

> x<-c(1,2,3)
> x<-append(x,3)
> x
[1] 1 2 3 3

> x<-append(x,"a")
> x
[1] "1" "2" "3" "3" "a"

> x<-append(x,c(1,2,7))
> x
[1] "1" "2" "3" "3" "a" "1" "2" "7"

a <- c(1:10)
> append(x = a, 11, after = 5)

> a=1:100
> ins=function(x,pos,new){c(x[1:pos],new,x[(pos+1):length(x)])}
> ins(a,11,33)
  [1]   1   2   3   4   5   6   7   8   9  10  11  33  12  13  14
 [16]  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29
 [31]  30  31  32  33  34  35  36  37  38  39  40  41  42  43  44
 [46]  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59
 [61]  60  61  62  63  64  65  66  67  68  69  70  71  72  73  74
 [76]  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89
 [91]  90  91  92  93  94  95  96  97  98  99 100

> a <- 1:100
> a <- a[a!=1];a
 [1]   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  17
[17]  18  19  20  21  22  23  24  25  26  27  28  29  30  31  32  33
[33]  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49
[49]  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65
[65]  66  67  68  69  70  71  72  73  74  75  76  77  78  79  80  81
[81]  82  83  84  85  86  87  88  89  90  91  92  93  94  95  96  97
[97]  98  99 100

> paste(c("k","Q","K"),c(1,2,3)
+ )
[1] "k 1" "Q 2" "K 3"