读取数据a_df3=read.xlsx("脑出血急性期用药最常配伍关联分析2.xlsx") 将数据转化成关联数据a_df3=a_df3[,-1] ## set dim names # a_df3=t(a_d3) dimnams(a_df3) <- list(row.ames(a_d paste("Tr",c(1:ncol(adf3)), sep 查看每个药品的出现频率uencPlot(dat1, support = 0.3, cex...