R 寻找每一列的最小值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

da<-as.data.frame(matrix(c(1:20),nrow=4,ncol=5))
rownames(da)<-c('A','G','C','T')
colnames(da)<-c('a','b','c','d','e')
da[1,4]<-1
result<-t(sapply(seq(nrow(da)),function(i){
  j<-which(da[i,]== min(da[i,]), arr.ind = TRUE)
  for (k in 1:dim(j)[1])
  {c(paste(rownames(da)[i],colnames(da)[j[k,2]],sep='\t'),da[i,j[k,2]])
  }
  }))
求助各位大佬，，，想寻找dataframe中每一列的最小值，并返回其坐标信息。在for 循环里面打印输出结果是正确的，但是result中是一个空的matrix。这是怎么回事？求各位大佬解答一下

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：最小值

https://bbs.pinggu.org/thread-6408039-1-1.html
增加辅助列的方法挺好的（可以解决某列存在多个最小值的情况）

library(dplyr)
data=data.frame(v1=c(4,4,7,8))
data$ind=rownames(data)
# find 6,7 return row 2,3
data%>%filter(v1 %in% c(4))%>%select(ind)

林随机漫步 发表于 2020-12-15 08:10
https://bbs.pinggu.org/thread-6408039-1-1.html
增加辅助列的方法挺好的（可以解决某列存在多个最小值的 ...

但是我还是想请问您一下，，就是我写的那程序，为什么最后的result是一个空的matrix。但是如果在for循环中print出结果，结果是正确的，就是不能赋值到result中。没有想明白

0layer0 发表于 2020-12-16 16:11
但是我还是想请问您一下，，就是我写的那程序，为什么最后的result是一个空的matrix。但是如果在for循环中 ...

在判断是最小值时，需要将相应的最小值赋值给另外一个变量/矩阵，以便临时存储最小值。如果存在多个最小值我就不清楚了

1. #@1. 数据
   
2. da<-as.data.frame(matrix(c(1:20),nrow=4,ncol=5,byrow=FALSE))
   
3. rownames(da)<-c('A','G','C','T')
   
4. colnames(da)<-c('a','b','c','d','e')
   
5. str(da)
   
6. View(da)
   
7. 
   
8. #@2. 分析
   
9. #@2.1 调用包 tidyverse
   
10. library(tidyverse)
    
11. #@2.2 各列中，同一行的最小值
    
12. da$min_abcde <- with(da, pmin(a, b, c, d, e))
    
13. str(da)
    
14. View(da)
    
15. #@2.3 各列中，最小值所在的行号
    
16. #@ 去掉数据框 da 最后的一列 min_abcde
    
17. da_part <- subset(da, select=c(a, b, c, d, e))
    
18. #@ 函数，用作求一个数值向量中最小值的序号。
    
19. min_row_value_id <- function(x){
    
20.   min_row_value_id <- which(x==min(x))
    
21.   return(min_row_value_id)
    
22. }
    
23. #@ mutate() 函数，调用 across() 函数， across() 函数再调用 min_row_value_id，求 a, b, c, d, e 各列的最小值所在的序号。
    
24. #@ 各列值所在的序号，即各列值所在的数据框 da 的行号。
    
25. da_min_row_value_id <- da_part %>%
    
26.   mutate(across(c(a, b, c, d, e), min_row_value_id))
    
27. #@ 重命列名
    
28. colnames(da_min_row_value_id) <- c('min_a_row_id', 'min_b_row_id', 'min_c_row_id', 'min_d_row_id', 'min_e_row_id')
    
29. #@ 因为同一列的各行的值都是一样，只要数据框第一行。
    
30. da_min_row_value_id <- da_min_row_value_id[1,]
    
31. str(da_min_row_value_id)
    
32. View(da_min_row_value_id)
    
33. View(da)

复制代码

sapply(da, function(x) c(min(x), which.min(x))
apply(da, 2, function(x) c(min(x), which.min(x))