如何舍入R中比例表中的值？
要在R中对比例表中的值进行四舍五入，我们可以先将比例表保存在一个对象中，然后使用round函数。
例如，如果我们有一个向量说X，那么我们可以使用prop.table(table(X))为X中的数据创建一个比例表并将其存储在一个名为Tab的对象中，然后使用以下给定的命令将值四舍五入到两位小数-
round(Tab,2)
示例1
以下代码段创建了一个示例数据框-
x1<-rpois(200,5) x1输出结果
创建以下数据框-
[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
将以下代码添加到上述代码段中-
x1<-rpois(200,5) table1<-prop.table(table(x1)) table1输出结果
如果您将上述所有给定的片段作为单个程序执行，它会生成以下输出-
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
将以下代码添加到上述代码段中-
x1<-rpois(200,5) table1<-prop.table(table(x1)) round(table1,2)输出结果
如果您将上述所有给定的片段作为单个程序执行，它会生成以下输出-
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
示例2
以下代码段创建了一个示例数据框-
x2<-rpois(200,1) x2
创建以下数据框-
[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
将以下代码添加到上述代码段中-
x2<-rpois(200,1) table2<-prop.table(table(x2)) table2输出结果
如果您将上述所有给定的片段作为单个程序执行，它会生成以下输出-
x2 0 1 2 3 4 0.390 0.330 0.160 0.095 0.025
将以下代码添加到上述代码段中-
x2<-rpois(200,1) table2<-prop.table(table(x2)) round(table2,2)输出结果
如果您将上述所有给定的片段作为单个程序执行，它会生成以下输出-
x2 0 1 2 3 4 0.39 0.33 0.16 0.10 0.03
示例3
以下代码段创建了一个示例数据框-
x3<-rpois(200,10) x3
创建以下数据框-
[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
将以下代码添加到上述代码段中-
x3<-rpois(200,10) table3<-prop.table(table(x3)) table3输出结果
如果您将上述所有给定的片段作为单个程序执行，它会生成以下输出-
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
将以下代码添加到上述代码段中-
x3<-rpois(200,10) table3<-prop.table(table(x3)) round(table3,2)输出结果
如果您将上述所有给定的片段作为单个程序执行，它会生成以下输出-
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
示例4
以下代码段创建了一个示例数据框-
x4<-sample(0:2,200,replace=TRUE) x4
创建以下数据框-
[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
将以下代码添加到上述代码段中-
x4<-sample(0:2,200,replace=TRUE) table4<-prop.table(table(x4)) table4输出结果
如果您将上述所有给定的片段作为单个程序执行，它会生成以下输出-
x4 0 1 2 0.310 0.335 0.355
将以下代码添加到上述代码段中-
x4<-sample(0:2,200,replace=TRUE) table4<-prop.table(table(x4)) round(table4,2)输出结果
如果您将上述所有给定的片段作为单个程序执行，它会生成以下输出-
x4 0 1 2 0.31 0.34 0.36
例5
以下代码段创建了一个示例数据框-
x5<-sample(rpois(3,5),200,replace=TRUE) x5
创建以下数据框-
[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
将以下代码添加到上述代码段中-
x5<-sample(rpois(3,5),200,replace=TRUE) table5<-prop.table(table(x5)) table5输出结果
如果您将上述所有给定的片段作为单个程序执行，它会生成以下输出-
x5
3 4 7
0.350 0.365 0.285将以下代码添加到上述代码段中-
x5<-sample(rpois(3,5),200,replace=TRUE) table5<-prop.table(table(x5)) round(table5,2)输出结果
如果您将上述所有给定的片段作为单个程序执行，它会生成以下输出-
x5 3 4 7 0.35 0.36 0.28