R语言：实现输出结果保留小数点后第2位

一. round函数

       是一种用于数值处理的函数，其主要功能是将数值进行四舍五入.

round(data, n) 

data:  是要进行四舍五入的数值;

n:   是舍入到的小数位数 .

二. aggregate函数   

        是数据处理中常用到的函数，具有强大的功能，可以按照要求把数据打组聚合，然后对聚合

以后的数据进行加和、求平均等各种操作.

三. 实例代码

data1<-read.csv(“cf.csv”)      #读取数据，客户消费数据。有数值变量和分类变量。
                                其中客户信息包括受教育程度，婚姻状况，年龄，
                                收入，各种商品消费支出等  
attach(data1)              
               

df<-data.frame (Income,Wines,Fruits,Meat,Fish,Sweet,Gold)  #创建数据框，将求平均值的变量构成 
                                                             一个新的数据框

dm<- aggregate(df,  by = list(Group =data1$Education), 
                                 FUN = function(x) mean(x))
                                                                   
                                                          # df：数据
                                                          # by：按受教育程度分组
                                                          # FUN：进行的统计方法，
                                                                求每组的平均值
dm

   输出结果dm：

上述结果为客户按受教育程度分组后，每组收入，酒类消费支出，水果消费支出等的平均值。

round(dm[,-1],2)                              #去除 dm 中非数值型的第一列，
                                                2 表示保留到小数点后到第二位.


dm1<-data.frame(dm$Group,round(dm[,-1],2))       #构建新的数据框，
                                                  得到输出要求的结果.

dm1

 输出结果dm1：

这样的输出结果较为美观。