R语言 ifelse问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现有数据如下图所示，想求得系数  LB  = max  /（max+相对)
例：有16个数据V1、V2、V3、V4

、V5、V6、V7、V8、V9、V10、V11、V12、V13、V14、V15、V16

若V1最大，则LB=V1/(V1+V9),

若V2最大，则LB=V2/(V2+V10),

若V3最大，则LB=V3/(V3+V11),

若V4最大，则LB=V4/(V4+V12),

以此类推，请问使用R语言应该如何实现？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

这样行不行？

1. df <- as.data.frame(round(matrix(rnorm(160), ncol = 16, nrow = 10),3))
   
2. 
   
3. maxid <- apply(df[,1:8], 1, which.max)
   
4. lb <- apply(df[,1:8], 1, max)
   
5. 
   
6. for(i in 1:nrow(df)){
   
7.   lb[i] <- lb[i]/(lb[i] + df[,9:16][i, maxid[i]])

复制代码

RRRUP 发表于 2019-11-30 17:29
现有数据如下图所示，想求得系数  LB  = max  /（max+相对)
例：有16个数据V1、V2、V3、V4[/b ...

感谢~

owenqi 发表于 2019-11-30 22:04
这样行不行？

非常感谢 但是用了您的方法算出来还是有问题 最大值也可能出现在9-16 列之间

owenqi 发表于 2019-11-30 22:04
这样行不行？

非常感谢 但是用了您的方法算出来还是有问题 最大值也可能出现在9-16 列之间

RRRUP 发表于 2019-12-1 00:36
非常感谢 但是用了您的方法算出来还是有问题 最大值也可能出现在9-16 列之间

所以你能把问题再描述清楚吗，我看你的描述（以此类推），以为是前8列的最大值加上对应位置的位移，你能举一个如果9-16出现最大值的情况吗？

owenqi 发表于 2019-12-1 06:55
所以你能把问题再描述清楚吗，我看你的描述（以此类推），以为是前8列的最大值加上对应位置的位移，你能举 ...

是这样：
如果最大值在第1列，那么该系数为第1列的数值与（第9列（1+16/2=9）的数值+第1列数值）之比。
如果最大值在第7列，那么该系数为第7列的数值与（第15列（7+16/2=15）的数值+第7列数值）之比。
如果最大值在第14列，那么该系数为第14列的数值与（第6列（14-16/2=6）的数值+第14列数值）之比。
如果最大值在第16列，那么该系数为第16列的数值与（第8列（16-16/2=8）的数值+第16列数值）之比。
例如上面的图片所示，第一行中，最大值2.891在第9列，对应的第1列的值为1.181，那么LB=2.891/（2.891+1.181），就是这个意思，有什么办法可以解决嘛

那应该需要多加一行代码

1. df <- as.data.frame(round(matrix(rnorm(160), ncol = 16, nrow = 10), 3))
   
2. 
   
3. relid <- (apply(df, 1, which.max) + 8) %% 16
   
4. relid[which(relid < 9)] <- relid[which(relid < 9)] + 1
   
5. 
   
6. lb <- apply(df, 1, max)
   
7. 
   
8. for(i in 1:nrow(df)){lb[i] <- lb[i]/(lb[i] + df[i,relid[i]])}

复制代码

owenqi 发表于 2019-12-1 13:24
那应该需要多加一行代码

你好 运行了一下代码 发现结果仍然不正确 如果删掉这一行relid[which(relid < 9)] <- relid[which(relid < 9)] + 1 结果就是正确的了  但是由于在第50行时最大值在第8列  relid就等于0  因此程序会报错  想问下您这个语句是什么意思呢relid[which(relid < 9)] <- relid[which(relid < 9)] + 1

owenqi 发表于 2019-12-1 13:24
那应该需要多加一行代码

稍微改动了下 运行出正确结果了 非常感谢您！
df<- read.csv("C:/D/CROWNjiu/R/BOXPLOT/T30/mmc16.csv",row.names = 1)
relid<-(apply(df,1,which.max)+8)%%16
relid[which(relid < 1)] <- relid[which(relid <1 )] + 16
lb<-apply(df,1,max)
for(i in 1:nrow(df)){lb <- lb/(lb + df[i,relid])}
View(lb)