如何做基线表

Python015

如何做基线表,第1张

如何做基线表

rm(list =ls())

setwd("C:\\Users\\17657\\Desktop\\ska3")

options(repos='http://cran.rstudio.com/')

library(xlsx)

baseline<- read.xlsx('临床信息.xlsx',sheetIndex = 1,header = T,encoding = 'UTF-8')

baseline<-baseline[1:1096,]

base<-subset(baseline,select = c(age,T,M,N,stage,ER,PR,HER2,subtype))

Freq<-lapply(base[,1:9],table)

prop<-lapply(Freq[1:9],prop.table)

prop

character<-c(names(Freq[1]),names(Freq[[1]]))

Noc<-c(NA,paste0(Freq[[1]],'(',prop[[1]],')'))   

char<-NULL

characteristics<-data.frame('characteristics'=character,' number of class'=Noc)

for (i in 1:9) {character<-c(names(Freq[i]),names(Freq[[i]]))

Noc<-c(NA,paste0(Freq[[i]],'(',prop[[i]]*100,')'))           

characteristics<-data.frame('characteristics'=character,' number of class(%)'=Noc)

char<-rbind(char,characteristics)

}

write.xlsx(char,'基线表.xlsx',col.names=T,row.names=F,showNA=F)

好啦可以啦~

1、分析数据表：通过浏览“入库明细”表，我们可能看到入库明细表中，作为提取记录的条件零件号在A列。

需要提取的记录，入库日期在H列、入库单号在O列、最后生产批号在L列、入库前库存数在Q列。为DC000496ZL的记录有5条（截图中的4条是指上面有4条）。

2、列出提取条件及项目：在sheet1中，将A列放置提取条件（即零件号）。在B、C、D、E列分别写上提取项目名称：入库日期、入库单号、最后生产批号、入库前库存数。

3、写公式：在最后入库日期项目下B2中输入公式：=MAX((入库明细!$A$2:$A$26=$A2)*(入库明细!$H$2:$H$26))，这是一个数组公式，请用三键确认（ctrl+shift+enter)。

搜索

免费自学excel教程全套

excel另一列数据提取

自动抓取数据excel表

表格技巧大全

excel100个常用技巧

新手怎么做财务报表

最简单的方法，数据框的名称，加上你要提取的列数，示例如下：

需要注意的是，如果只提取单列的话，得到的数据就变成了一个vector，而不再是dataframe的格式了。

首先，导入R语言需要加载xlsx包，没有安装这个包的，请用下面的代码进行在线安装：

install.packages("xlsx")选择China的任意一个镜像站点，它会自动安装其他所需的依赖包。

安装好xlsx包后，接下来导入存放在“C:\Users\HWT\Desktop”路径下的“test.xlsx”文件，导入这个文件的代码如下：

library(xlsx)

read.xlsx2(file="C:\\Users\\HWT\\Desktop\\test.xlsx",sheetIndex=1)

我们上面的代码只是把test.xlsx导入了R语言，并没有把它赋给R语言里的某个对象，用下面的代码把数据赋给对象Mydata:

Mydata-read.xlsx2(file="C:\\Users\\HWT\\Desktop\\test.xlsx",sheetIndex=1)。