请问怎么选出一行里面的最大值,并把数据每一行或列最大的值设为1，其他为0

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

比如我有一个数据如下：
v1  v2   v3   v4
0.5 0.1 0.1 0.3
0.2 0.4 0.1 0.3
0.3 0.1   0  0.6
0.2 0.1 0.5 0.2
要怎么变成：
v1 v2 v3 v4
1   0   0   0
0   1   0   0
0   0   0   1
0   0   1   0

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：最大的 最大值 最大的 最大值

我自己回答吧：
for(i in 1:nrow(df))
  for(j in 1:ncol(df))
  {
  if ( df[i,j]==max(df[i,]) )
    df[i,j]=1
  else
    df[i,j]=0
}

From：jasmine_007 in COS

1. x=df
   
2. matrix(unlist(lapply(1:4,function(i) ifelse(x[i,]==max(x[i,]),1,0))),ncol=4)

复制代码

1. x=df
   
2. sapply(1:4,function(i) ifelse(x[i,]==max(x[i,]),1,0))

复制代码

这个好点  lapply用多了都忘记这个更好了

yywan0913 发表于 2014-3-4 13:34
这个好点  lapply用多了都忘记这个更好了

这个好，这个好，学习了

yywan0913 发表于 2014-3-4 13:34
这个好点  lapply用多了都忘记这个更好了

需要 t(sapply.....)下

lz 从 COS看 数据量是也 有几万行
用

1. t(apply(data,1,function(x)x==max(x)))+0

复制代码

都要时间了。
data.table 比 apply  作用于 data.frame 要快了多了
大家看看   用data.table 怎么做

  ps.晚上试试看,也学习下 data.table ：）

jmpamao 发表于 2014-3-5 16:16
需要 t(sapply.....)下

你这样一提示，发现是忽略了一个问题。
    不过也符合楼主要求：
       转置下跟楼主的循环要求一样，按行取
       不转置就是按列取了。
所以楼主问题也未表达清楚哈。啊哈

yywan0913 发表于 2014-3-5 16:33
你这样一提示，发现是忽略了一个问题。
    不过也符合楼主要求：
       转置下跟楼主的循环要求一样， ...

也是， 有空看看 用 data.table 怎么做撒

jmpamao 发表于 2014-3-5 16:26
lz 从 COS看 数据量是也 有几万行
用
都要时间了。

我就知道data.table里面的fread比read.table快三倍。以及处理数据稍微好点。其他的感觉差不多的样子，可能我理解的不深吧。要求速度可以选择看下julia语言，上手跟R差不多。听说很强大的样子。