How to replace values in a vector with values in the same vector in R?

R ProgrammingServer Side ProgrammingProgramming

The replacement of values in a vector with the values in the same vector can be done with the help of replace function. The replace function will use the index of the value that needs to be replaced and the index of the value that needs to be placed but the output will be the value in the vector.

Example1

Live Demo

> x1<-rpois(10,1)
> x1

Output

[1] 3 0 1 0 1 1 1 1 2 1

Example

> replace(x1,c(10),x1[c(1)])

Output

[1] 3 0 1 0 1 1 1 1 2 3

Example2

Live Demo

> x2<-rpois(150,5)
> x2

Output

[1] 5 1 4 2 3 4 2 4 5 3 6 2 2 5 4 9 12 3 6 4 7 4 4 4 4
[26] 6 4 6 2 1 6 5 1 6 7 6 8 7 5 0 3 6 2 3 5 2 3 7 8 8
[51] 6 4 5 3 3 4 6 7 4 5 5 2 6 5 6 6 8 2 5 4 2 4 5 7 4
[76] 6 5 4 4 6 12 4 7 3 5 1 4 6 6 4 1 5 4 2 4 3 5 3 7 4
[101] 9 4 4 5 4 4 5 7 4 3 6 7 3 3 3 6 7 2 7 8 4 4 3 7 10
[126] 2 5 8 3 9 5 9 4 6 7 10 2 4 7 5 7 5 5 2 5 3 7 5 6 6

Example

> replace(x2,c(1,5,10),x2[c(101,120,126)])

Output

[1] 9 1 4 2 8 4 2 4 5 2 6 2 2 5 4 9 12 3 6 4 7 4 4 4 4
[26] 6 4 6 2 1 6 5 1 6 7 6 8 7 5 0 3 6 2 3 5 2 3 7 8 8
[51] 6 4 5 3 3 4 6 7 4 5 5 2 6 5 6 6 8 2 5 4 2 4 5 7 4
[76] 6 5 4 4 6 12 4 7 3 5 1 4 6 6 4 1 5 4 2 4 3 5 3 7 4
[101] 9 4 4 5 4 4 5 7 4 3 6 7 3 3 3 6 7 2 7 8 4 4 3 7 10
[126] 2 5 8 3 9 5 9 4 6 7 10 2 4 7 5 7 5 5 2 5 3 7 5 6 6

Example3

Live Demo

> x3<-sample(10:99,150,replace=TRUE)
> x3

Output

[1] 24 84 31 18 83 87 11 99 23 24 84 13 51 63 62 61 71 75 54 24 81 88 71 17 41
[26] 61 10 48 39 85 61 29 55 25 55 58 49 74 19 56 90 18 35 52 48 71 79 73 13 88
[51] 30 90 55 35 33 27 26 97 96 69 14 84 51 56 97 13 33 63 97 80 22 91 57 58 18
[76] 17 87 84 22 28 42 92 70 62 82 41 29 46 69 49 24 45 69 57 46 93 90 25 83 18
[101] 10 67 16 15 62 52 27 19 18 16 88 67 97 38 43 54 93 68 58 41 67 79 37 94 46
[126] 62 39 62 53 64 68 37 89 37 58 50 54 56 47 48 18 19 95 32 78 58 79 66 38 26

Example

> replace(x3,c(1:10),x3[c(141:150)])

Output

[1] 18 19 95 32 78 58 79 66 38 26 84 13 51 63 62 61 71 75 54 24 81 88 71 17 41
[26] 61 10 48 39 85 61 29 55 25 55 58 49 74 19 56 90 18 35 52 48 71 79 73 13 88
[51] 30 90 55 35 33 27 26 97 96 69 14 84 51 56 97 13 33 63 97 80 22 91 57 58 18
[76] 17 87 84 22 28 42 92 70 62 82 41 29 46 69 49 24 45 69 57 46 93 90 25 83 18
[101] 10 67 16 15 62 52 27 19 18 16 88 67 97 38 43 54 93 68 58 41 67 79 37 94 46
[126] 62 39 62 53 64 68 37 89 37 58 50 54 56 47 48 18 19 95 32 78 58 79 66 38 26

Example4

Live Demo

> x4<-rnorm(60,5,1)
> x4

Output

[1] 5.203250 6.155795 5.445043 4.114447 3.708124 5.256640 4.334518 4.088861
[9] 5.223277 4.274886 4.318537 4.642169 3.285436 4.679269 6.872902 4.930993
[17] 5.262924 5.867779 6.184103 5.846095 7.168070 4.421855 5.272398 5.769937
[25] 5.402096 4.330439 4.684108 5.818921 5.895338 4.744801 5.939168 5.274320
[33] 4.002676 5.815148 6.419991 4.509990 5.324781 5.411056 5.667747 4.203748
[41] 4.617290 5.729405 4.588399 3.624062 4.773437 5.203597 4.589123 4.207467
[49] 6.344622 4.266597 5.208964 5.201127 5.362012 6.548678 5.548905 4.312633
[57] 4.169989 5.129504 4.693979 4.875804

Example

> replace(x4,c(1,6:10,21),x4[c(41:47)])

Output

[1] 4.617290 6.155795 5.445043 4.114447 3.708124 5.729405 4.588399 3.624062
[9] 4.773437 5.203597 4.318537 4.642169 3.285436 4.679269 6.872902 4.930993
[17] 5.262924 5.867779 6.184103 5.846095 4.589123 4.421855 5.272398 5.769937
[25] 5.402096 4.330439 4.684108 5.818921 5.895338 4.744801 5.939168 5.274320
[33] 4.002676 5.815148 6.419991 4.509990 5.324781 5.411056 5.667747 4.203748
[41] 4.617290 5.729405 4.588399 3.624062 4.773437 5.203597 4.589123 4.207467
[49] 6.344622 4.266597 5.208964 5.201127 5.362012 6.548678 5.548905 4.312633
[57] 4.169989 5.129504 4.693979 4.875804

Example5

Live Demo

> x5<-rexp(75,3.17)
> x5

Output

[1] 0.6301714207 0.0849452019 0.1441435371 0.4113142011 0.1435970926
[6] 0.4739139703 0.5321786633 0.2116885477 0.4138576102 0.0717753479
[11] 0.2565076697 0.7837426311 0.0141091437 0.0313407699 0.3248291717
[16] 0.1085675881 0.2005076134 0.7493867571 0.5829670716 0.2185303088
[21] 0.2532911149 0.9994490360 0.3659692108 0.0727952412 0.1949328345
[26] 0.5921509557 0.2604765644 0.5033974666 0.2095715146 0.1834696144
[31] 0.4641264025 0.3000919219 0.5795625477 0.1894028427 0.0686694537
[36] 0.1236184164 0.6636295193 1.3764335964 0.5022986936 0.0624637892
[41] 0.0698789223 0.0742836257 0.3393514399 0.0402216820 0.3230930905
[46] 0.2750161774 0.2149539154 0.0166986274 0.4734092166 0.5802175782
[51] 0.1643661184 0.0409281965 0.0625884016 0.0441048258 0.2232389768
[56] 0.0197731224 0.4486469981 0.4061614685 0.9600774628 0.4685170682
[61] 0.2572172289 0.3268631507 0.0072872105 0.4168536975 0.6068680100
[66] 0.4406034999 0.3389223152 0.2223058276 0.6331858868 0.2042540261
[71] 0.0007060446 0.0463169843 0.7482614235 0.0933565609 0.0716075965

Example

> replace(x5,c(71:75),x5[c(1:5)])

Output

[1] 0.63017142 0.08494520 0.14414354 0.41131420 0.14359709 0.47391397
[7] 0.53217866 0.21168855 0.41385761 0.07177535 0.25650767 0.78374263
[13] 0.01410914 0.03134077 0.32482917 0.10856759 0.20050761 0.74938676
[19] 0.58296707 0.21853031 0.25329111 0.99944904 0.36596921 0.07279524
[25] 0.19493283 0.59215096 0.26047656 0.50339747 0.20957151 0.18346961
[31] 0.46412640 0.30009192 0.57956255 0.18940284 0.06866945 0.12361842
[37] 0.66362952 1.37643360 0.50229869 0.06246379 0.06987892 0.07428363
[43] 0.33935144 0.04022168 0.32309309 0.27501618 0.21495392 0.01669863
[49] 0.47340922 0.58021758 0.16436612 0.04092820 0.06258840 0.04410483
[55] 0.22323898 0.01977312 0.44864700 0.40616147 0.96007746 0.46851707
[61] 0.25721723 0.32686315 0.00728721 0.41685370 0.60686801 0.44060350
[67] 0.33892232 0.22230583 0.63318589 0.20425403 0.63017142 0.08494520
[73] 0.14414354 0.41131420 0.14359709

Example6

Live Demo

> x6<-runif(60,2,5)
> x6

Output

[1] 4.339046 3.243330 3.288315 4.397854 2.198220 4.420135 2.458929 4.601673
[9] 3.314666 2.861216 2.210292 2.205213 3.270068 3.283999 4.794161 3.479959
[17] 4.392442 4.051383 3.139061 4.461510 4.322406 3.520107 3.841212 4.172056
[25] 4.311622 4.431082 4.588164 2.485019 3.528105 3.646765 2.677704 2.861034
[33] 3.918297 3.112947 3.891375 3.195276 3.622838 3.959689 4.842700 2.715498
[41] 2.676687 4.768234 3.503961 4.104186 4.747515 4.061376 2.783455 4.346077
[49] 2.364836 3.544960 2.945147 3.345168 3.674116 3.971326 3.167279 2.454910
[57] 4.972975 2.492759 4.899828 4.821637

Example

> replace(x6,c(2,7,11:20,25),x6[c(3:4,41:51)])

Output

[1] 4.339046 3.288315 3.288315 4.397854 2.198220 4.420135 4.397854 4.601673
[9] 3.314666 2.861216 2.676687 4.768234 3.503961 4.104186 4.747515 4.061376
[17] 2.783455 4.346077 2.364836 3.544960 4.322406 3.520107 3.841212 4.172056
[25] 2.945147 4.431082 4.588164 2.485019 3.528105 3.646765 2.677704 2.861034
[33] 3.918297 3.112947 3.891375 3.195276 3.622838 3.959689 4.842700 2.715498
[41] 2.676687 4.768234 3.503961 4.104186 4.747515 4.061376 2.783455 4.346077
[49] 2.364836 3.544960 2.945147 3.345168 3.674116 3.971326 3.167279 2.454910
[57] 4.972975 2.492759 4.899828 4.821637
raja
Published on 23-Nov-2020 10:21:45
Advertisements