我有 3 列由指标 (0/1)
组成
2 3 4 | structure(list(delivery_group = c(0, 1, 1, 0, 0), culturally_tailored = c(0, 0, 1, 0, 1), integrated_intervention = c(1, 0, 0, 0, 0)), class = c("tbl_df", "tbl","data.frame"), row.names = c(NA, -5L)) |
我想返回单个字符列 \\'qualifiers\\'，这样带有指示符 == 1 的列名连接在一个字符串中，如下所示：
2 3 4 5 6 | integrated_intervention delivery_group delivery_group, culturally_tailored culturally_tailored |
我尝试了 extdplyr::ind(使用各种选项)但没有成功。下面的一个使我的 R 会话崩溃。
2 3 | from = c("delivery_group","culturally_tailored","integrated_intervention"), mutually_exclusive = FALSE, collectively_exhaustive = FALSE) |
我发现将布尔指标列转换为单因子列，但认为可能有更简单的解决方案。
你可以试试：
2 3 4 5 6 7 8 9 10 | icols delivery_group culturally_tailored integrated_intervention collapsed 1 0 0 1 integrated_intervention 2 1 0 0 delivery_group 3 1 1 0 delivery_group, culturally_tailored 4 0 0 0 5 0 1 0 culturally_tailored |
或者，按照 Maurits 的建议，更简洁：
我不确定这是一个"简单"的解决方案，但这里有一个使用 tidyverse 的解决方案。
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | icols <- tibble( delivery_group = c(0, 1, 1, 0, 0), culturally_tailored = c(0, 0, 1, 0, 1), integrated_intervention = c(1, 0, 0, 0, 0) ) icols %>% rowid_to_column(var ="rowid") %>% gather(key ="qualifiers", value ="indicator", -rowid) %>% filter(indicator == 1) %>% group_by(rowid) %>% summarize(qualifiers = paste(qualifiers, collapse =",")) %>% ungroup() %>% complete(rowid = 1:nrow(icols)) %>% select(qualifiers) #> # A tibble: 5 x 1 #> qualifiers #> <chr> #> 1 integrated_intervention #> 2 delivery_group #> 3 delivery_group, culturally_tailored #> 4 <NA> #> 5 culturally_tailored |
由 reprex 包 (v0.2.1) 创建于 2019-02-27
这是一个疯狂的方式：
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | icols %>% mutate(qualifiers = case_when( delivery_group & culturally_tailored == 1 ~"delivery_group, culturally_tailored", delivery_group & integrated_intervention == 1 ~"delivery_group, integrated_intervation", culturally_tailored & integrated_intervention == 1 ~"culturally_tailored, integrated_intervation", culturally_tailored == 1 ~"culturally_tailored", integrated_intervention == 1 ~"integrated_intervention", delivery_group == 1 ~"delivery_group")) # A tibble: 5 x 4 delivery_group culturally_tailored integrated_intervention qualifiers <dbl> <dbl> <dbl> <chr> 1 0 0 1 integrated_intervention 2 1 0 0 delivery_group 3 1 1 0 delivery_group, culturally_tailored 4 0 0 0 NA 5 0 1 0 culturally_tailored |
我正在学习如何使用Nokogiri，根据这段代码我遇到了一些问题:require'rubygems'require'mechanize'post_agent=WWW::Mechanize.newpost_page=post_agent.get('http://www.vbulletin.org/forum/showthread.php?t=230708')puts"\nabsolutepathwithtbodygivesnil"putspost_page.parser.xpath('/html/body/div/div/div/div/div/table/tbody/tr/td/div
总的来说，我对ruby还比较陌生，我正在为我正在创建的对象编写一些rspec测试用例。许多测试用例都非常基础，我只是想确保正确填充和返回值。我想知道是否有办法使用循环结构来执行此操作。不必为我要测试的每个方法都设置一个assertEquals。例如:describeitem,"TestingtheItem"doit"willhaveanullvaluetostart"doitem=Item.new#HereIcoulddotheitem.name.shouldbe_nil#thenIcoulddoitem.category.shouldbe_nilendend但我想要一些方法来使用
我的目标是转换表单输入，例如“100兆字节”或“1GB”，并将其转换为我可以存储在数据库中的文件大小(以千字节为单位)。目前，我有这个:defquota_convert@regex=/([0-9]+)(.*)s/@sizes=%w{kilobytemegabytegigabyte}m=self.quota.match(@regex)if@sizes.include?m[2]eval("self.quota=#{m[1]}.#{m[2]}")endend这有效，但前提是输入是倍数(“gigabytes”，而不是“gigabyte”)并且由于使用了eval看起来疯狂不安全。所以，功能正常，
关闭。这个问题是opinion-based.它目前不接受答案。想要改进这个问题？更新问题，以便editingthispost可以用事实和引用来回答它.关闭4年前。Improvethisquestion我想在固定时间创建一系列低音和高音调的哔哔声。例如:在150毫秒时发出高音调的蜂鸣声在151毫秒时发出低音调的蜂鸣声200毫秒时发出低音调的蜂鸣声250毫秒的高音调蜂鸣声有没有办法在Ruby或Python中做到这一点？我真的不在乎输出编码是什么(.wav、.mp3、.ogg等等)，但我确实想创建一个输出文件。
给定这段代码defcreate@upgrades=User.update_all(["role=?","upgraded"],:id=>params[:upgrade])redirect_toadmin_upgrades_path,:notice=>"Successfullyupgradeduser."end我如何在该操作中实际验证它们是否已保存或未重定向到适当的页面和消息？ 最佳答案 在Rails3中，update_all不返回任何有意义的信息，除了已更新的记录数(这可能取决于您的DBMS是否返回该信息)。http://ar.ru
我在我的项目目录中完成了compasscreate.和compassinitrails。几个问题:我已将我的.sass文件放在public/stylesheets中。这是放置它们的正确位置吗？当我运行compasswatch时，它不会自动编译这些.sass文件。我必须手动指定文件:compasswatchpublic/stylesheets/myfile.sass等。如何让它自动运行？文件ie.css、print.css和screen.css已放在stylesheets/compiled。如何在编译后不让它们重新出现的情况下删除它们？我自己编译的.sass文件编译成compiled/t
我想将html转换为纯文本。不过，我不想只删除标签，我想智能地保留尽可能多的格式。为插入换行符标签，检测段落并格式化它们等。输入非常简单，通常是格式良好的html(不是整个文档，只是一堆内容，通常没有anchor或图像)。我可以将几个正则表达式放在一起，让我达到80%，但我认为可能有一些现有的解决方案更智能。 最佳答案 首先，不要尝试为此使用正则表达式。很有可能你会想出一个脆弱/脆弱的解决方案，它会随着HTML的变化而崩溃，或者很难管理和维护。您可以使用Nokogiri快速解析HTML并提取文本:require'nokogiri'h
我正在寻找执行以下操作的正确语法(在Perl、Shell或Ruby中):#variabletoaccessthedatalinesappendedasafileEND_OF_SCRIPT_MARKERrawdatastartshereanditcontinues. 最佳答案 Perl用__DATA__做这个:#!/usr/bin/perlusestrict;usewarnings;while(){print;}__DATA__Texttoprintgoeshere 关于ruby-如何将脚
Rackup通过Rack的默认处理程序成功运行任何Rack应用程序。例如:classRackAppdefcall(environment)['200',{'Content-Type'=>'text/html'},["Helloworld"]]endendrunRackApp.new但是当最后一行更改为使用Rack的内置CGI处理程序时，rackup给出“NoMethodErrorat/undefinedmethod`call'fornil:NilClass”:Rack::Handler::CGI.runRackApp.newRack的其他内置处理程序也提出了同样的反对意见。例如Rack
我需要读入一个包含数字列表的文件。此代码读取文件并将其放入二维数组中。现在我需要获取数组中所有数字的平均值，但我需要将数组的内容更改为int。有什么想法可以将to_i方法放在哪里吗？ClassTerraindefinitializefile_name@input=IO.readlines(file_name)#readinfile@size=@input[0].to_i@land=[@size]x=1whilex 最佳答案 只需将数组映射为整数:@land边注如果你想得到一条线的平均值，你可以这样做:values=@input[x]
