重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
原文链接:http://www.datastudy.cc/to/17
创新互联建站客户idc服务中心,提供服务器托管、成都服务器、成都主机托管、成都双线服务器等业务的一站式服务。通过各地的服务中心,我们向成都用户提供优质廉价的产品以及开放、透明、稳定、高性价比的服务,资深网络工程师在机房提供7*24小时标准级技术保障。很多时候,我们拿到的数据,都是汇总的一份数据,例如我们示例中的数据,已经把所有仓库的数据都汇总起来了。
但是我们在统计建模的时候,如果想要把他们拆分开来进行处理,那么如何进行分层处理呢?其实非常简单,我们使用split函数即可。
split(x, f, drop = FALSE, ...)
下面我们来看分层处理的案例:
数据请从百度盘下载:
链接: http://pan.baidu.com/s/1kFxoy 密码: tnbf
data <- read.csv("D:\\data\\20150922\\data.csv", fileEncoding="UTF8", stringsAsFactors=FALSE)
datas <- split(data, data$仓库)
result <- c();
for(d in datas) {
#这里执行我们需要的建模,
#我这里演示就用了个计算平均数
m <- mean(d$进价);
#把建模后的模型加入到结果数组中
result <- append(result, m)
}
result
以上就是分层处理的最基本模型,包括分层抽取数据,以及将处理后的结果组装成为一个向量返回。
另外有需要云服务器可以了解下创新互联scvps.cn,海内外云服务器15元起步,三天无理由+7*72小时售后在线,公司持有idc许可证,提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案,具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势,专为企业上云打造定制,能够满足用户丰富、多元化的应用场景需求。