# How to round values in proportion table in R?

R ProgrammingServer Side ProgrammingProgramming

To round values in proportion table in R, we can first save the proportion table in an object and then use the round function.

For example, if we have a vector say X then we can create a proportion table for data in X using prop.table(table(X)) and store it in an object called Tab and then round the values to two decimal places by using the below given command −

round(Tab,2)

## Example 1

Following snippet creates a sample data frame −

x1<-rpois(200,5)
x1

## Output

The following dataframe is created −

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

Add the following code to the above snippet −

x1<-rpois(200,5)
table1<-prop.table(table(x1))
table1

## Output

If you execute all the above given snippets as a single program, it generates the following output −

x1
0    1     2     3      4     5    6     7     8     9    10
0.005 0.030 0.110 0.155 0.160 0.130 0.165 0.140 0.030 0.050 0.025

Add the following code to the above snippet −

x1<-rpois(200,5)
table1<-prop.table(table(x1))
round(table1,2)

## Output

If you execute all the above given snippets as a single program, it generates the following output −

x1
0    1    2    3    4    5    6    7    8    9   10
0.00 0.03 0.11 0.16 0.16 0.13 0.16 0.14 0.03 0.05 0.03

## Example 2

Following snippet creates a sample data frame −

x2<-rpois(200,1)
x2

The following dataframe is created −

[1] 0 0 0 2 0 1 1 0 1 1 1 3 0 2 0 0 0 2 1 0 2 0 2 2 1 1 1 2 2 0 3 0 1 0 1 1 1
[38] 1 1 2 2 0 3 0 1 0 1 0 0 3 1 0 2 0 1 0 3 4 1 2 0 2 0 0 1 1 1 0 0 0 2 1 0 2
[75] 1 1 3 1 1 0 1 0 2 1 0 0 4 1 3 0 0 0 1 2 0 1 1 2 0 0 2 0 1 0 1 1 2 3 0 1 1
[112] 1 1 0 4 2 0 0 1 0 2 1 1 4 2 3 0 0 0 0 0 1 0 1 1 1 1 1 0 1 4 1 2 1 0 0 0 0
[149] 2 1 0 1 1 1 2 2 3 3 2 0 3 0 2 0 0 0 1 0 3 0 1 1 3 2 3 0 2 1 1 1 1 0 0 0 0
[186] 0 2 0 3 3 0 1 0 0 0 3 3 0 0 1

Add the following code to the above snippet −

x2<-rpois(200,1)
table2<-prop.table(table(x2))
table2

## Output

If you execute all the above given snippets as a single program, it generates the following output −

x2
0      1     2     3    4
0.390 0.330 0.160 0.095 0.025

Add the following code to the above snippet −

x2<-rpois(200,1)
table2<-prop.table(table(x2))
round(table2,2)

## Output

If you execute all the above given snippets as a single program, it generates the following output −

x2
0  1     2    3   4
0.39 0.33 0.16 0.10 0.03

## Example 3

Following snippet creates a sample data frame −

x3<-rpois(200,10)
x3

The following dataframe is created −

[1] 8 6 8 5 8 5 9 9 13 13 15 12 13 9 10 9 7 8 8 9 15 9 11 10 4
[26] 12 9 13 14 7 9 7 9 5 11 9 12 13 10 10 4 11 9 16 12 8 8 10 9 10
[51] 14 11 17 10 11 13 5 13 16 16 11 14 16 9 3 8 8 5 4 10 8 9 12 9 8
[76] 8 14 3 10 15 8 18 11 8 10 5 5 7 10 10 11 8 10 10 16 8 11 12 13 11
[101] 13 13 6 14 9 6 9 5 8 12 12 10 10 12 5 19 7 6 9 6 5 13 10 11 9
[126] 8 7 14 12 8 11 14 14 9 7 13 5 9 11 8 12 8 16 13 11 7 17 10 12 15
[151] 11 13 10 18 13 5 8 8 16 8 9 9 8 14 4 13 9 7 14 6 10 10 12 14 10
[176] 7 13 9 4 9 12 10 14 3 14 10 8 11 7 12 10 12 9 5 6 9 10 9 12 5

Add the following code to the above snippet −

x3<-rpois(200,10)
table3<-prop.table(table(x3))
table3

## Output

If you execute all the above given snippets as a single program, it generates the following output −

x3
3      4    5     6     7     8     9     10   11    12    13    14    15
0.015 0.025 0.070 0.035 0.055 0.130 0.145 0.130 0.080 0.085 0.085 0.065 0.020
16    17    18    19
0.035 0.010 0.010 0.005

Add the following code to the above snippet −

x3<-rpois(200,10)
table3<-prop.table(table(x3))
round(table3,2)

## Output

If you execute all the above given snippets as a single program, it generates the following output −

x3
3    4    5    6   7    8    9    10   11   12   13   14   15   16   17   18
0.01 0.03 0.07 0.04 0.06 0.13 0.14 0.13 0.08 0.09 0.09 0.06 0.02 0.04 0.01 0.01
19
0.00

## Example 4

Following snippet creates a sample data frame −

x4<-sample(0:2,200,replace=TRUE)
x4

The following dataframe is created −

[1] 0 0 2 0 0 1 0 2 2 2 0 2 2 2 0 2 0 0 2 0 2 0 1 2 1 2 0 2 1 1 0 1 2 2 1 1 1
[38] 2 1 2 2 1 0 2 2 0 2 0 1 1 1 0 2 2 1 1 0 0 2 0 2 1 0 2 1 2 1 1 1 2 0 2 2 0
[75] 1 1 1 1 1 0 2 0 0 2 0 2 2 1 0 0 2 1 1 2 0 2 1 0 2 2 1 1 1 0 2 2 1 2 0 0 1
[112] 2 2 1 1 1 1 2 0 1 1 1 0 0 2 2 1 1 1 2 0 0 0 1 2 0 1 0 1 2 0 2 2 1 1 2 0 1
[149] 2 1 1 1 1 0 2 1 2 0 1 2 0 0 2 0 1 2 2 0 2 2 0 0 0 2 1 2 1 0 0 1 1 2 0 2 1
[186] 0 1 0 2 0 1 2 0 0 1 1 2 2 2 0

Add the following code to the above snippet −

x4<-sample(0:2,200,replace=TRUE)
table4<-prop.table(table(x4))
table4

## Output

If you execute all the above given snippets as a single program, it generates the following output −

x4
0     1    2
0.310 0.335 0.355

Add the following code to the above snippet −

x4<-sample(0:2,200,replace=TRUE)
table4<-prop.table(table(x4))
round(table4,2)

## Output

If you execute all the above given snippets as a single program, it generates the following output −

x4
0    1   2
0.31 0.34 0.36

## Example 5

Following snippet creates a sample data frame −

x5<-sample(rpois(3,5),200,replace=TRUE)
x5

The following dataframe is created −

[1] 4 7 4 4 7 3 4 7 4 4 4 3 7 3 4 7 3 3 7 4 7 7 3 3 4 7 7 4 7 4 3 3 4 3 3 3 4
[38] 7 3 3 7 4 4 4 3 7 4 3 3 7 7 3 7 4 4 7 7 3 4 4 4 4 3 3 3 4 3 3 4 4 7 7 4 4
[75] 3 7 4 4 7 4 7 3 4 3 7 3 3 4 7 3 4 3 3 3 7 4 7 3 4 4 7 7 3 4 7 3 3 7 3 7 7
[112] 7 4 4 7 7 4 3 7 3 3 3 7 3 4 4 3 3 4 7 3 4 7 4 4 4 3 3 7 3 4 3 7 4 4 3 7 3
[149] 4 3 7 4 3 4 7 4 4 4 4 3 3 4 3 3 4 3 4 7 7 7 4 3 4 4 3 7 7 4 4 3 4 3 3 3 7
[186] 7 7 3 4 3 7 3 4 3 7 4 4 7 3 4

Add the following code to the above snippet −

x5<-sample(rpois(3,5),200,replace=TRUE)
table5<-prop.table(table(x5))
table5

## Output

If you execute all the above given snippets as a single program, it generates the following output −

x5
3   4     7
0.350 0.365 0.285

Add the following code to the above snippet −

x5<-sample(rpois(3,5),200,replace=TRUE)
table5<-prop.table(table(x5))
round(table5,2)

## Output

If you execute all the above given snippets as a single program, it generates the following output −

x5
3    4    7
0.35 0.36 0.28
Updated on 05-Nov-2021 07:45:35