How to find the frequency of repeated and unique values in a vector in R?

If we unique values in a vector in R and they are repeated then we can find the frequency of those unique values, this will help us to understand the distribution of the values in the vector. On the basis of that distribution analysis, we can proceed with the further analysis that could be used. This can be done with the help of rle function.
 Live Demo
x1<-sample(0:2,20,replace=TRUE)
x1
[1] 1 0 1 2 0 2 1 0 1 1 0 2 0 0 1 0 2 0 2 2
with(rle(x1),table(lengths[values==1]))
1 2
4 1
 Live Demo
x2<-sample(0:2,140,replace=TRUE)
x2
[1] 0 2 2 2 2 0 2 1 1 2 1 1 0 1 2 2 1 0 1 1 0 2 0 2 2 0 2 1 1 1 0 0 0 1 1 0 1
[38] 0 0 1 1 0 2 2 2 0 1 1 0 1 0 1 0 1 2 2 0 1 2 0 2 2 1 1 0 2 1 2 1 2 2 1 2 1
[75] 0 0 1 1 1 2 2 1 1 2 1 2 1 0 2 0 0 0 1 2 2 2 1 0 2 2 1 1 0 2 1 2 2 1 0 0 1
[112] 0 2 1 0 2 0 2 1 2 0 1 1 2 1 1 1 0 2 1 2 0 2 2 2 0 1 1 2 0
with(rle(x2),table(lengths[values==1]))
 1  2 3
21 11 3
 Live Demo
x3<-sample(0:5,140,replace=TRUE)
x3
[1] 2 2 3 1 2 5 4 4 2 1 1 2 3 0 1 3 4 1 2 0 4 1 2 0 1 0 2 4 5 2 0 0 4 4 0 1 1
[38] 5 1 5 4 4 5 4 3 3 0 5 5 5 0 2 3 3 3 4 4 1 2 1 2 4 4 0 0 2 0 2 1 5 0 3 2 4
[75] 1 5 5 5 0 0 1 3 1 1 4 2 3 3 3 0 2 3 0 0 3 5 5 1 1 1 5 3 5 0 0 3 1 3 2 5 2
[112] 0 4 5 5 0 1 3 4 3 5 0 3 5 0 5 1 0 3 4 4 5 3 5 0 0 4 1 3 1
with(rle(x3),table(lengths[values==1]))
 1 2 3
16 3 1
with(rle(x3),table(lengths[values==2]))
 1 2
17 1
with(rle(x3),table(lengths[values==3]))
 1 2 3
16 1 2
with(rle(x3),table(lengths[values==4]))
1 2
9 6
with(rle(x3),table(lengths[values==5]))
 1 2 3
14 2 2
with(rle(x3),table(lengths[values==0]))
 1 2
15 6
 Live Demo
x4<-sample(1:10,150,replace=TRUE)
x4
[1] 9 6 2 2 3 8 7 3 2 6 10 8 5 4 1 5 8 10 7 7 4 3 8 1 7
[26] 4 10 6 9 7 6 4 3 1 5 2 10 1 8 8 7 3 1 4 1 7 8 5 2 1
[51] 6 2 6 9 1 9 1 9 9 4 8 6 10 5 2 5 10 7 8 7 9 6 8 3 3
[76] 7 10 1 2 4 5 6 10 2 3 1 8 4 4 6 1 2 8 1 8 8 6 6 5 8
[101] 6 8 6 4 6 4 2 7 5 8 7 1 7 10 1 8 3 2 1 7 1 5 10 5 9
[126] 5 6 2 8 4 7 9 5 6 8 8 5 1 1 5 8 1 4 10 6 8 6 1 10 6
with(rle(x4),table(lengths[values==1]))
 1 2
19 1
with(rle(x4),table(lengths[values==2]))
 1 2
11 1
with(rle(x4),table(lengths[values==3]))
1 2
7 1
with(rle(x4),table(lengths[values==4]))
 1 2
11 1
with(rle(x4),table(lengths[values==5]))
1
15
with(rle(x4),table(lengths[values==6]))
 1 2
18 1
with(rle(x4),table(lengths[values==7]))
 1 2
13 1
with(rle(x4),table(lengths[values==8]))
 1 2
17 3
with(rle(x4),table(lengths[values==9]))
1 2
7 1
with(rle(x4),table(lengths[values==10]))
1
12
 Live Demo
x5<-sample(1001:1005,120,replace=TRUE)
x5
[1] 1004 1004 1005 1001 1001 1002 1004 1001 1001 1004 1004 1002 1005 1003 1002
[16] 1004 1004 1004 1005 1005 1004 1003 1003 1005 1001 1005 1003 1004 1003 1003
[31] 1005 1004 1001 1002 1002 1004 1003 1002 1003 1004 1001 1001 1005 1001 1001
[46] 1001 1003 1002 1004 1004 1002 1002 1002 1002 1002 1005 1005 1001 1004 1004
[61] 1004 1001 1003 1004 1001 1002 1004 1005 1004 1002 1004 1003 1003 1001 1002
[76] 1002 1003 1001 1002 1001 1002 1001 1005 1005 1003 1003 1002 1004 1002 1004
[91] 1001 1005 1005 1005 1002 1004 1005 1001 1002 1003 1002 1004 1002 1002 1005
[106] 1005 1005 1005 1003 1004 1004 1005 1001 1002 1003 1004 1005 1003 1002 1004
with(rle(x5),table(lengths[values==1001]))
 1 2 3
12 3 1
with(rle(x5),table(lengths[values==1002]))
 1 2 5
16 3 1
with(rle(x5),table(lengths[values==1003]))
 1 2
11 4
with(rle(x5),table(lengths[values==1004]))
 1 2 3
16 4 2
with(rle(x5),table(lengths[values==1005]))
 1 2 3 4
10 3 1 1