DATA=readxl::read_xlsx(path = "C:/Users/63035/Desktop/土壤微生物整理 - 副本/方差分析/细菌原始数值方差.xlsx",sheet = 1) TuRang=cbind(as.data.frame(lapply(X = as.list(DATA[,3:27]),FUN = function(x){ model=aov(formula = x~DATA$group) MM <- duncan.test(y = model,trt = "DATA$group", group=T,console=F) MM1<-MM$groups rowname<-row.names(MM1) MM2<-data.frame(rowname,MM1$'x',MM1$groups) MM2=MM2[order(factor(MM2$rowname)),] rowname<-MM2$rowname mean=MM$means[,1] sd=MM$means[,2] marker=MM2$MM1.groups Result=data.frame(round(x = mean,digits = 4),round(x = sd,digits = 4),marker) colnames(x = Result)=c("","SD","Marker") rownames(x = Result)=rowname Result } ))) 请修改脚本,使输出结果行列顺序均不改变
时间: 2023-12-08 09:06:02 浏览: 33
可以将代码中的最后一行修改为:
```
Result <- data.frame(t(Result), check.names = FALSE)
```
这样可以转置输出结果,并且保留原有的行列顺序。同时,`check.names = FALSE`参数可以保证列名不被修改。
相关问题
Index <- read_excel("C:/Users/zyc/Desktop/IDX_Idxtrd.xlsx")
这是一个使用 R 语言读取 Excel 文件的代码,将 Excel 文件路径替换为你本地的文件路径后即可运行。需要先安装并加载 `readxl` 包。例如:
```R
install.packages("readxl") # 安装 readxl 包
library(readxl) # 加载 readxl 包
Index <- read_excel("C:/Users/zyc/Desktop/IDX_Idxtrd.xlsx") # 读取 Excel 文件
```
其中 `Index` 是读取到的 Excel 文件中的数据。
wb = load_workbook("C:/Users/yedahua/Desktop/检测.xlsx")
你好!对于加载 Excel 文件,你可以使用 openpyxl 库中的 load_workbook() 函数。该函数可以接受文件路径作为参数,指定要加载的 Excel 文件。在你的代码中,你给出的文件路径是 "C:/Users/yedahua/Desktop/检测.xlsx",所以可以这样写:
```python
from openpyxl import load_workbook
wb = load_workbook("C:/Users/yedahua/Desktop/检测.xlsx")
```
这样就可以成功加载名为 "检测.xlsx" 的 Excel 文件,并将其赋值给变量 wb。如果文件路径正确,你就可以继续处理该 Excel 文件的内容了。如果遇到任何问题,请随时告诉我!
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![xlsx](https://img-home.csdnimg.cn/images/20210720083732.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)