R语言函数编写问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有一列数，数字只包含0和1，现在要每4个分一组
顺序是1000，记为1；顺序是0100，记为2；顺序是0010，记为3；顺序是0001，记为4
例如100000010100，记为142

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言

apply(matrix(c(1,0,0,0,0,0,0,1,0,1,0,0), 4), 2, function(x) which(x == 1L))

cheetahfly 发表于 2019-5-20 13:42
apply(matrix(c(1,0,0,0,0,0,0,1,0,1,0,0), 4), 2, function(x) which(x == 1L))

请问这个如果对多个列都进行这样的操作呢

dplyr::mutate_at()
lapply()
purrr::map()