- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在使用 R 编程语言。
我有以下数据集:
v <- c(1,2,3,4,5,6,7,8,9,10)
var_1 <- as.factor(sample(v, 10000, replace=TRUE, prob=c(0.1,0.1,0.1,0.1,0.1, 0.1,0.1,0.1,0.1,0.1)))
var_2 <- as.factor(sample(v, 10000, replace=TRUE, prob=c(0.1,0.1,0.1,0.1,0.1, 0.1,0.1,0.1,0.1,0.1)))
var_3 <- as.factor(sample(v, 10000, replace=TRUE, prob=c(0.1,0.1,0.1,0.1,0.1, 0.1,0.1,0.1,0.1,0.1)))
var_4 <- as.factor(sample(v, 10000, replace=TRUE, prob=c(0.1,0.1,0.1,0.1,0.1, 0.1,0.1,0.1,0.1,0.1)))
var_5 <- as.factor(sample(v, 10000, replace=TRUE, prob=c(0.1,0.1,0.1,0.1,0.1, 0.1,0.1,0.1,0.1,0.1)))
my_data = data.frame(var_1, var_2, var_3, var_4, var_5)
我还有另一个“条件”数据集,将用于查询此数据框:
conditions = data.frame(cond_1 = c("1,3,4", "4,5,6"), cond_2 = c("5,6", "7,8,9"))
我的问题:我尝试运行以下命令以根据“条件”的第一行从“my_data”中选择行 - 但返回空结果:
my_data[my_data$var_1 %in% unlist(conditions[1,1]) &
my_data$var_2 %in% unlist(conditions[1,2]), ]
[1] var_1 var_2 var_3 var_4 var_5
<0 rows> (or 0-length row.names)
我试图通过“检查”这些条件来对此进行更多研究:
class(conditions[1,1])
[1] "character"
这让我觉得“unlist()”命令不起作用,因为条件本身是一个“字符”而不是“列表”。
是否有一个等效的命令可以在这里使用,起到与“unlist()”命令相同的作用,以便可以运行上述语句?
一般来说,我试图产生与我从这段代码中得到的结果相同的结果——但保持我在上面使用的格式:
my_data[my_data$var_1 %in% c("1", "3", "4") &
my_data$var_2 %in% c("5", "6"), ]
谢谢!
最佳答案
在前面,"1,3,4"!= 1
。看来您应该使用 strsplit(., ",")
拆分字符串。
expected <- my_data[my_data$var_1 %in% c("1", "3", "4") & my_data$var_2 %in% c("5", "6"), ]
head(expected)
# var_1 var_2 var_3 var_4 var_5
# 18 3 6 2 2 9
# 129 3 5 3 2 8
# 133 4 5 6 5 8
# 186 1 6 6 10 10
# 204 4 6 4 2 6
# 207 1 5 3 2 9
out <- my_data[do.call(`&`,
Map(`%in%`,
lapply(my_data[,1:2], as.character),
lapply(conditions, function(z) strsplit(z, ",")[[1]]))),]
head(out)
# var_1 var_2 var_3 var_4 var_5
# 18 3 6 2 2 9
# 129 3 5 3 2 8
# 133 4 5 6 5 8
# 186 1 6 6 10 10
# 204 4 6 4 2 6
# 207 1 5 3 2 9
编辑:更新新的条件
:将do.call
更改为Reduce
:
conditions = data.frame(cond_1 = c("1,3,4", "4,5,6"), cond_2 = c("5,6", "7,8,9"), cond_3 = c("4,6", "9"))
out <- my_data[Reduce(`&`,
Map(`%in%`,
lapply(my_data[,1:3], as.character),
lapply(conditions, function(z) strsplit(z, ",")[[1]]))),]
head(out)
# var_1 var_2 var_3 var_4 var_5
# 133 4 5 6 5 8
# 186 1 6 6 10 10
# 204 4 6 4 2 6
# 232 1 5 6 5 8
# 332 3 6 6 5 10
# 338 1 5 6 3 6
关于R:R 中有 "Un-Character"命令吗?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/71813866/
来历及作用 UNS.exe进程程序文件是由美国半导体芯片制造商Intel(英特尔)公司为其发布的Intel芯片组驱动程序的一个组成部分,被描述为为:Intel(R) Active Manageme
我注意到我有一些以 .un~ 结尾的点文件,例如我有一个 .vividchalk.vim.un~,但我没有确定那是从哪里来的。看起来它们是我在终端中使用 Vim 时创建的。这些文件是什么?当我关闭正在
我正在 Node.js/Express.js 上开发一个服务器脚本,它接收上传的包含多个文件的 .tar.gz 文件。该脚本必须解压和解压缩存档中的 CSV 文件,解析它们并将一些存储在数据库中。不需
我正在尝试使事件“最大化”和“最小化”,但是有时出现错误: 代码: {remote} = require("electron"); remote.getCurrentWindow().on('unma
我给出了以下值(使用 Windows-1252 转义) ABC ; â、ê、î、ô、û(我需要添加空格来显示精确值,实际数字和之间没有空格;) 但实际值是,我想要与下面相同的值 ABC
我有一个使用 tkinter 的 GUI,它有多组复选按钮。每组检查按钮均由检查按钮列表组成,该列表与每个检查按钮的 tk.IntVar() 列表相对应。也就是说,对于检查按钮组“Alpha”,cbA
我有这样一个函数: Session.get = function(key) { if (!window["_SESSION"] || typeof key == 'undefined') {
这段代码有问题吗? self.UpdateTimer = [NSTimer scheduledTimerWithTimeInterval:60. target:self selector:@sel
我不小心做了一个 git rm filename.txt -f 现在,如果我执行 git commit -m '',它将提交此删除。我如何在执行 git 提交之前取消删除它? 最佳答案 从当前提交(H
我有以下假数据集。在每天 ( dates ) 的一段时间内,所有元素 ( status ) 的状态 ( id ) 都会被记录下来。 df df id dates status 1
如何从undo文件还原vim文件而不点击undo? 添加文本时,我保存了一个vim文件。然后,我运行了一个python命令,清空了文件的内容,并且可以看到文件的.un~文件中包含该文件的某些单词。当我
我的WP主题的父functions.php有 require get_template_directory() . '/inc/template-tags.php'; 该文件中有一个我想更改的函数。问
我有一个文件夹是我的工作副本。如何从此文件夹中删除所有 SVN 功能?我这样做是有原因的,不知何故,我的主文件夹包含了我所有的网站工作副本,已经以某种方式变成了工作副本本身,所以我本身就有一个工作副本
大家! 我有logstash配置,该配置将日志从RabbitMQ转发到elasticSearch。像这样: input { rabbitmq { ... } } fil
我有一个页面,其中的表单中有一个下拉列表。下拉列表包含广告的“类别”。 根据下拉列表中选择的值,我使用 javascript 在页面上显示/隐藏 DIVS,其中都包含不同的表单输入供用户填写在。所有这
我的 Java 代码有一个小问题。对于一个学校项目,我们必须编写一个简单的 Java 程序。我有一些编程经验,但没有 Java 经验。 我们正在使用 Netbeans,并且必须制作一个 JFrame,
按照 django 教程,我在终端中输入了这两行: export PYTHONPATH=$PYTHONPATH:/var/www/djangoapp:/var/www/djangoapp/app ex
我有一个应用程序需要在应用程序启动时读取非常大的 .CSV 文件并将每一行转换为一个对象。这些是读取文件的方法: public List GetAobject() { List
EDIT: Problem is a documented php bug by now: https://bugs.php.net/bug.php?id=71617 thanks to for fi
我无法理解 Android 的地理围栏。 实际问题:我使用了来自 googles geofence-api 的 Enter+Exit 事件,但在许多设备上信号非常不准确,以至于它跳进跳出栅栏(跳跃半径
我是一名优秀的程序员,十分优秀!