zoukankan      html  css  js  c++  java
  • 肿瘤数据 合并

    ####第二批肿瘤数据

    #mentedata_basic 患者基本信息 #mentedata 患者就诊明细表
    mentedata_basic=read.csv("C:\Users\lenovo\Desktop\20170904\mente_basic.csv",header=TRUE)
    f_mente=function(file){
    return(read.csv(file=file,header=TRUE))
    }
    mentedata=data.frame("就诊流水号"=c(),"项目明细"=c(),"数量"=c(),"金额"=c(),year=c())
    #mentedata2009=read.csv("C:\Users\lenovo\Desktop\20170904\肺癌患者特门明细2009.csv",header=TRUE)
    for(i in 2009:2016){
    file=paste0("C:\Users\lenovo\Desktop\20170904\肺癌患者特门明细",i,".csv")
    mentedata_temp=f_mente(file)
    mentedata_temp$year=i
    mentedata=rbind(mentedata,mentedata_temp)
    }
    rm(i);rm(file);rm(mentedata_temp)
    zhuyuandata_basic=read.csv("C:\Users\lenovo\Desktop\20170904\zhuyuan_basic.csv",header=TRUE)
    zhuyuandata=data.frame("就诊流水号"=c(),"项目明细"=c(),"数量"=c(),"金额"=c(),year=c())
    for(i in 2009:2016){
    file=paste0("C:\Users\lenovo\Desktop\20170904\肺癌患者住院明细",i,".csv")
    zhuyuandata_temp=f_mente(file)
    zhuyuandata_temp$year=i
    zhuyuandata=rbind(zhuyuandata,zhuyuandata_temp)
    }
    rm(i);rm(file);rm(zhuyuandata_temp)
    #####合并门特和住院
    data=rbind(zhuyuandata,mentedata)

    data_basic=rbind(zhuyuandata_basic,mentedata_basic)
    data_basic$个人序号=paste0(data_basic$个人序号)
    ##
    id=unique(data_basic$个人序号)

    ###
    library(RODBC)
    conn=odbcConnect('jiaming',uid='sa',pwd='jiankun')
    #保存基本信息
    sqlSave(conn,data_basic,tablename='secondTumordatabasic')
    sqlSave(conn,data,tablename='secondTumordatadetail')
    sqlSave(conn,subdata,tablename='secondTumor')
    odbcClose()

    ####合并data 和data_basic
    subdata=merge(data_basic,data,by="就诊流水号")

    names(data_basic)

    names(data)
    ###############################
    data_sta=read.csv('C:\Users\lenovo\Desktop\20170904\合并门特和住院.csv')
    datamente_sta=read.csv('C:\Users\lenovo\Desktop\20170904\门特情况.csv')
    datazhuyuan_sta=read.csv('C:\Users\lenovo\Desktop\20170904\住院情况.csv')
    id_sta=unique(data_sta$个人序号)

    #setdiff(id,id_sta)
    id_intersect=intersect(unique(datazhuyuan_sta$个人序号),unique(datamente_sta$个人序号))
    sqlSave(conn,data_sta,tablename = 'secondTumordata_sta')

  • 相关阅读:
    【Codeforces Round#279 Div.2】B. Queue
    210
    回溯
    HuffmanTree && HuffmanCode
    (转)STL
    2013 ACM/ICPC 长沙现场赛 A题
    不是数据库中的列,而是查询结果集中的列
    又出现新问题,所以又发现了之前的一些问题 (关于修改表单地址,要不要改回来的问题) 原因已经解决
    MyEclipse导入jquery-1.8.0.min.js等文件报错的解决方案
    为什么突然 选择删除的按钮失效???
  • 原文地址:https://www.cnblogs.com/yijiaming/p/10039244.html
Copyright © 2011-2022 走看看