r - 显示最大值是否移动到其他列-6ren

r - 显示最大值是否移动到其他列

转载作者：行者123 更新时间：2023-12-01 12:38:20

我准备了一些示例数据，让我们来看看它:

> dput(example1)
structure(list(Fr1 = c(0.2, 0, 0, 0, 0, 0), Fr2 = c(0.7, 0, 0, 
0, 0, 0), Fr3 = c(1, 0.35, 0, 0, 0, 0), Fr4 = c(0.1, 1, 0, 0, 
0.5, 0), Fr5 = c(0, 0.4, 0, 0, 1, 0), Fr6 = c(0, 0, 0, 0, 0.3, 
0), Fr7 = c(0, 0, 0, 0.7, 0, 0), Fr8 = c(0, 0, 0, 1, 0, 0), Fr9 = c(0, 
0, 0, 1, 0, 0), Fr10 = c(0, 0, 0, 0.65, 0, 0.7), Fr11 = c(0, 
0, 0, 0.2, 0, 1)), .Names = c("Fr1", "Fr2", "Fr3", "Fr4", "Fr5", 
"Fr6", "Fr7", "Fr8", "Fr9", "Fr10", "Fr11"), row.names = c("Mazda RX4", 
"Mazda RX4 Wag", "Datsun 710", "Hornet 4 Drive", "Hornet Sportabout", 
"Valiant"), class = "data.frame")

> dput(example2)
structure(list(Fr1 = c(1, 0, 0, 0, 0, 0), Fr2 = c(0.7, 0, 0, 
0, 0, 0), Fr3 = c(0.2, 0, 0, 0, 0, 0), Fr4 = c(0.1, 0, 0, 0, 
0.5, 0), Fr5 = c(0, 0.1, 0, 0, 1, 0), Fr6 = c(0, 0, 0, 0, 0.3, 
0), Fr7 = c(0, 0.8, 0, 0.7, 0, 0), Fr8 = c(0, 1, 0, 1, 0, 0), 
    Fr9 = c(0, 0.3, 0, 1, 0, 0), Fr10 = c(0, 0, 0, 0.65, 0, 0.7
    ), Fr11 = c(0, 0, 0, 0.2, 0, 1)), .Names = c("Fr1", "Fr2", 
"Fr3", "Fr4", "Fr5", "Fr6", "Fr7", "Fr8", "Fr9", "Fr10", "Fr11"
), row.names = c("Mazda RX4", "Mazda RX4 Wag", "Datsun 710", 
"Hornet 4 Drive", "Hornet Sportabout", "Valiant"), class = "data.frame")

所以，我们有 2 个数据框，我想进行比较。正如您在所有单元格中看到的那样，只有从 0 到 1 的数字。数字 1 是最大值，它必须在每行中至少出现一次。对我来说重要的是我可以在哪一列中找到最大值并比较它是否在另一个数据框中的同一列中。

示例 1:

    Fr1 Fr2  Fr3 Fr4 Fr5 Fr6 Fr7 Fr8 Fr9 Fr10 Fr11
Mazda RX4         0.2 0.7 1.00 0.1 0.0 0.0 0.0   0   0 0.00  0.0
Mazda RX4 Wag     0.0 0.0 0.35 1.0 0.4 0.0 0.0   0   0 0.00  0.0
Datsun 710        0.0 0.0 0.00 0.0 0.0 0.0 0.0   0   0 0.00  0.0
Hornet 4 Drive    0.0 0.0 0.00 0.0 0.0 0.0 0.7   1   1 0.65  0.2
Hornet Sportabout 0.0 0.0 0.00 0.5 1.0 0.3 0.0   0   0 0.00  0.0
Valiant           0.0 0.0 0.00 0.0 0.0 0.0 0.0   0   0 0.70  1.0

示例2:

                  Fr1 Fr2 Fr3 Fr4 Fr5 Fr6 Fr7 Fr8 Fr9 Fr10 Fr11
Mazda RX4           1 0.7 0.2 0.1 0.0 0.0 0.0   0 0.0 0.00  0.0
Mazda RX4 Wag       0 0.0 0.0 0.0 0.1 0.0 0.8   1 0.3 0.00  0.0
Datsun 710          0 0.0 0.0 0.0 0.0 0.0 0.0   0 0.0 0.00  0.0
Hornet 4 Drive      0 0.0 0.0 0.0 0.0 0.0 0.7   1 1.0 0.65  0.2
Hornet Sportabout   0 0.0 0.0 0.5 1.0 0.3 0.0   0 0.0 0.00  0.0
Valiant             0 0.0 0.0 0.0 0.0 0.0 0.0   0 0.0 0.70  1.0

在此示例中，我仅对第一行和第二行进行了区分，以使其更易于工作，但在我的真实数据中，所有 3000 行可能都存在差异。正如我提到的，每行中可能有超过 1 个“最大值”，但通常不超过 2 个 - 数字 1 出现两次。

作为输出，我需要行的名称以及最大值是否移动(是)或在同一列中(否)。有可能吗？

为了向您展示这些数据集中的两行不同:

示例 1:
Example 1

示例 2

编辑:

真实数据:

structure(list(X10 = c(0, 0, 0, 0, 0, 0), X33.95 = c(0, 0, 0, 
0, 0, 0), X58.66 = c(0, 0, 0, 0, 0, 0.164279901), X84.42 = c(0, 
0, 0, 0, 0, 0), X110.21 = c(0.04925863, 0, 0, 0, 0, 0), X134.16 = c(0.4981384, 
0, 0, 0, 0, 0), X164.69 = c(1, 0, 1, 0, 0, 0), X199.1 = c(0.367449159, 
0, 0, 0, 1, 0), X234.35 = c(0.19587217, 0, 0, 0.96458515, 0.93848979, 
0), X257.19 = c(0, 0, 0, 0.77155521, 0, 0), X361.84 = c(0, 0, 
1, 0.76396661, 0, 0), X432.74 = c(0, 0, 0.81609991, 0.33773581, 
0, 0), X506.34 = c(0, 0, 0.81609991, 0.1390399, 0, 0), X581.46 = c(0, 
0, 0.96019504, 0.86300673, 0, 0), X651.71 = c(0, 0, 0, 0.77764596, 
0, 0), X732.59 = c(0, 0, 1, 0.45950141, 0, 0), X817.56 = c(0, 
0, 0, 0.14639304, 0, 0), X896.24 = c(0, 0.4013747, 0, 0.800272, 
0, 0), X971.77 = c(0, 0.32393615, 0, 0.74026623, 0, 0), X1038.91 = c(0, 
0.4168461, 0, 0.6808022, 0, 0), NA..1 = c(0, 0.8750537, 0, 1, 
0, 0), NA..2 = c(0, 1, 0, 0, 0, 0), NA..3 = c(0, 0.6069765, 0, 
1, 0, 0), NA..4 = c(0, 0.53831215, 0, 0.65073089, 0, 0)), .Names = c("X10", 
"X33.95", "X58.66", "X84.42", "X110.21", "X134.16", "X164.69", 
"X199.1", "X234.35", "X257.19", "X361.84", "X432.74", "X506.34", 
"X581.46", "X651.71", "X732.59", "X817.56", "X896.24", "X971.77", 
"X1038.91", "NA..1", "NA..2", "NA..3", "NA..4"), row.names = c(NA, 
6L), class = "data.frame")

新编辑:

我不明白...:

> apply(alcr_ready,2,is.numeric)
     NA.      X10   X33.95   X58.66   X84.42  X110.21  X134.16  X164.69   X199.1  X234.35  X257.19  X361.84  X432.74 
   FALSE    FALSE    FALSE    FALSE    FALSE    FALSE    FALSE    FALSE    FALSE    FALSE    FALSE    FALSE    FALSE 
 X506.34  X581.46  X651.71  X732.59  X817.56  X896.24  X971.77 X1038.91    NA..1    NA..2    NA..3    NA..4 
   FALSE    FALSE    FALSE    FALSE    FALSE    FALSE    FALSE    FALSE    FALSE    FALSE    FALSE    FALSE

再次检查:

> class(alcr_ready[2,2])
[1] "numeric"

再次编辑:

'data.frame':   2188 obs. of  25 variables:
 $ NA.     : Factor w/ 2890 levels "AT1G01050","AT1G01080",..: 1 2 3 4 5 6 7 10 11 12 ...
 $ X10     : num  0 0 0 0 0 0 0 0 0 0 ...
 $ X33.95  : num  0 0 0 0 0 0 0 0 0 0 ...
 $ X58.66  : num  0 0 0 0 0 ...
 $ X84.42  : num  0 0 0 0 0 0 0 0 0 0 ...
 $ X110.21 : num  0.0493 0 0 0 0 ...
 $ X134.16 : num  0.498 0 0 0 0 ...
 $ X164.69 : num  1 0 1 0 0 0 0 0 0 0 ...
 $ X199.1  : num  0.367 0 0 0 1 ...
 $ X234.35 : num  0.196 0 0 0.965 0.938 ...
 $ X257.19 : num  0 0 0 0.772 0 ...
 $ X361.84 : num  0 0 1 0.764 0 ...
 $ X432.74 : num  0 0 0.816 0.338 0 ...
 $ X506.34 : num  0 0 0.816 0.139 0 ...
 $ X581.46 : num  0 0 0.96 0.863 0 ...
 $ X651.71 : num  0 0 0 0.778 0 ...
 $ X732.59 : num  0 0 1 0.46 0 ...
 $ X817.56 : num  0 0 0 0.146 0 ...
 $ X896.24 : num  0 0.401 0 0.8 0 ...
 $ X971.77 : num  0 0.324 0 0.74 0 ...
 $ X1038.91: num  0 0.417 0 0.681 0 ...
 $ NA..1   : num  0 0.875 0 1 0 ...
 $ NA..2   : num  0 1 0 0 0 0 0 0 0 0 ...
 $ NA..3   : num  0 0.607 0 1 0 ...
 $ NA..4   : num  0 0.538 0 0.651 0 ...

尝试代码:

> indx1 <- max.col(alcr_ready, 'first')==max.col(tps_ready, 'first')
Warning messages:
1: In max.col(alcr_ready, "first") : NAs introduced by coercion
2: In max.col(tps_ready, "first") : NAs introduced by coercion
> indx2 <- max.col(alcr_ready, 'last')==max.col(tbl_tps, 'last')
Warning messages:
1: In max.col(alcr_ready, "last") : NAs introduced by coercion
2: In max.col(tbl_tps, "last") : NAs introduced by coercion
3: In max.col(alcr_ready, "last") == max.col(tbl_tps, "last") :
  longer object length is not a multiple of shorter object length

最佳答案

或许

 c('NO', 'YES')[(max.col(example1, 'first')==max.col(example2, 'first'))+1]
# [1] "NO"  "NO"  "YES" "YES" "YES" "YES"

如 YES表示 max移到另一列，应该是相反的

c('YES', 'NO')[(max.col(example1, 'first')==max.col(example2, 'first'))+1]
# [1] "YES" "YES" "NO"  "NO"  "NO"  "NO"

如果有可能达到 2 1每行

 indx1 <- max.col(example1, 'first')==max.col(example2, 'first')
 indx2 <- max.col(example1, 'last')==max.col(example2, 'last')
  c('YES', 'NO')[(indx1|indx2)+1]

关于r - 显示最大值是否移动到其他列，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/27504490/

文章推荐： java - 是否可以使用 Maven 生成带有日期的文本文件？

文章推荐： JavaFX，命令顺序(看似)被忽略

文章推荐： java - android sqlite没有这样的表

文章推荐： java - 无法设置 JTextPane/JScrollPane 的大小

r - 计算 R 中的 R 平方内、R 平方之间或整体 R 平方
我正在从 Stata 迁移到 R(plm 包)，以便进行面板模型计量经济学。在 Stata 中，面板模型(例如随机效应)通常报告组内、组间和整体 R 平方。 I have found plm 随机效应
r - Revolution R 中的模块是开源的。 R 许可证是否意味着我可以免费使用随附的 R 软件包？
关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。想改进这个问题？将问题更新为 on-topic对于堆栈溢出。 6年前关闭。 Improve this qu
r - 如何从 R 中的用户输入中读取向量并将其用于进一步处理 [R]
我想要求用户输入整数值列表。用户可以输入单个值或一组多个值，如 1 2 3(spcae 或逗号分隔)然后使用输入的数据进行进一步计算。我正在使用下面的代码 EXP <- as.integer(rea
r - R 中的分类变量 - R 选择哪一个作为引用？
当 R 使用分类变量执行回归时，它实际上是虚拟编码。也就是说，省略了一个级别作为基础或引用，并且回归公式包括所有其他级别的虚拟变量。但是，R 选择了哪一个作为引用，以及我如何影响这个选择？具有四个级
r - 制作数据框或排名调整后的 R 平方 - R
这个问题基本上是我之前问过的问题的延伸:How to only print (adjusted) R-squared of regression model? 我想建立一个线性回归模型来预测具有 15
r - 将已安装的 R 包传输到另一台计算机上的 R
我在一台安装了多个软件包的 Linux 计算机上安装了 R。现在我正在另一台 Linux 计算机上设置 R。从他们的存储库安装 R 很容易，但我将不得不使用安装许多包 install.package
r - R 中字符的对象大小 - R 全局字符串池如何工作？
我正在阅读 Hadley 的高级 R 编程，当它讨论字符的内存大小时，它说: R has a global string pool. This means that each unique strin
r - 是否写入 "ui.R + server.R"或 "app.R"
我们可以将 Shiny 代码写在两个单独的文件中，"ui.R"和 "server.R" , 或者我们可以将两个模块写入一个文件 "app.R"并调用函数shinyApp() 这两种方法中的任何一种在性
r - 在 .R 文件中保存 R 对象(代码)(R 遗传编程)
我正在使用 R 通过 RGP 包进行遗传编程。环境创造了解决问题的功能。我想将这些函数保存在它们自己的 .R 源文件中。我这辈子都想不通怎么办。我尝试过的一种方法是: bf_str = print(b
r - 如何让 R 在编辑后自动加载我的 .r 文件？
假设我创建了一个函数“function.r”，在编辑该函数后我必须通过 source('function.r') 重新加载到我的全局环境中。无论如何，每次我进行编辑时，我是否可以避免将其重新加载到我的
r - 是否可以在命令行中将代码通过管道传递给 R 或 R 脚本？
例如，test.R 是一个单行文件: $ cat test.R # print('Hello, world!') 我们可以通过Rscript test.R 或R CMD BATCH test.R 来
r - 我可以使用 R 笔记本作为 R 包小插图吗？
我知道我可以使用 Rmd 来构建包插图，但想知道是否可以更具体地使用 R Notebooks 来制作包插图。如果是这样，我需要将 R Notebooks 编写为包小插图有什么不同吗？我正在使用最新版本
r - 在 R 运行时更新 R 包
我正在考虑使用 R 包的共享库进行 R 的站点安装。多台计算机将访问该库，以便每个人共享相同的设置。问题是我注意到有时您无法更新包，因为另一个 R 实例正在锁定库。我不能要求每个人都关闭它的 R
r - 如何从命令行向 R 提供表达式但阻止 R 立即退出？
我知道如何从命令行启动 R 并执行表达式(例如， R -e 'print("hello")' )或从文件中获取输入(例如， R -f filename.r )。但是，在这两种情况下，R 都会运行文件中
r - 从另一个 .r 文件中编辑 .r 文件
我正在尝试使我当前的项目可重现，因此我正在创建一个主文档(最终是一个 .rmd 文件)，用于调用和执行其他几个文档。这样我自己和其他调查员只需要打开和运行一个文件。当前设置分为三层:主文件、2 个读
r - 是否有任何简单的方法可以在 R 中制作不需要安装 R 的桌面应用程序
关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。想改进这个问题？将问题更新为 on-topic对于堆栈溢出。 5年前关闭。 Improve this qu
r - 如何在 R 包的手册中包含 Authors@R？
我的 R 包中有以下描述文件 Package: blah Title: What the Package Does (one line, title case) Version: 0.0.0.9000
r - 将 R 代码转换为 R 风格
有没有办法更有效地编写以下语句？accel 是一个数据框。 accel[[2]]<- accel[[2]]-weighted.mean(accel[[2]]) accel[[3]]<- accel[[
r - 安装 R 包时，R 如何检查系统外部依赖项？
例如，在尝试安装 R 包时 curl作为 usethis 的依赖项: * installing *source* package ‘curl’ ... ** package ‘curl’ succes
r - 在 R 包中包含 R 脚本
我想将一些软件作为一个包共享，但我的一些脚本似乎并不能很自然地作为函数运行。例如，考虑以下代码块，其中“raw.df”是一个包含离散和连续类型变量的数据框。函数“count.unique”和“squa

行者123

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

r - 显示最大值是否移动到其他列