我有一个我希望搜索的3列数据框.我有一个我想在每列中搜索的字符串列表.我想返回一个包含原始数据的数据帧,以及一个字符串列表中每个字符串的列,以及是否在该行的列中找到该字符串的指示符.
这是一个近似我的数据的简化版本.
strings <- c("ape", "bear", "cat", "dog")
# A tibble: 7 x 3
snippet headline abstract
<chr> <chr> <chr>
1 this is an ape An ape some random
2 blah blah blah An ape some random
3 this is some random text some random text some ape stuff
4 this is a bear this is a bear bear time
5 some cat text bear time dog time
6 cat and dog text blah blah blah
7 blah blah blah …我的导航栏位于 base.html 模板中，该模板由所有页面扩展。当我单击导航栏中的链接时，会添加活动类，但当我访问该页面后，当仅突出显示初始页面时，它会恢复到之前的状态。
这是我的 base.html 模板
{% load static %}
<!-- DOCTYPE html -->
<html>
<head>
<title>Title</title>
<!-- new bootstrap -->
<link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/4.0.0/css/bootstrap.min.css" integrity="sha384-Gn5384xqQ1aoWXA+058RXPxPg6fy4IWvTNh0E263XmFcJlSAwiGgFAW/dAiS6JXm" crossorigin="anonymous">
<script src="https://use.fontawesome.com/a0c7be9623.js"></script>
<!-- css -->
<link rel='stylesheet' href='{% static "css/base.css" %}' />
</head>
<body>
<nav class="navbar navbar-expand-lg navbar-light bg-light fixed-top">
<a class="navbar-brand" href='{% url "home" %}'>Maximum Likelihood</a>
<button class="navbar-toggler" type="button" data-toggle="collapse" data-target="#navbarNavAltMarkup" aria-controls="navbarNavAltMarkup" aria-expanded="false" aria-label="Toggle navigation">
<span class="navbar-toggler-icon"></span>
</button>
<div class="collapse navbar-collapse" id="navbarNavAltMarkup">
<div class="navbar-nav mr-auto">
<a class="nav-item nav-link active" href='{% url "home" %}'>Info<span …通常我会做这种事情
df2 <- subset(df1, df$ID %in% vector)
但这并不能保留重复; 要么
df2 <- df[vector,]
但是这与df$column只有行的矢量不匹配
这是一个例子 data.frame
ID Fruit Color
1 2 Apple Amber
2 5 Bannana Blue
3 7 Cherry Cyan
4 9 Date Dandelion
5 14 Elderberry Earth
6 15 Fig Fuchsia
7 21 Grape Green
这是一个样本矢量
vector <- c(5,5,5,7,2,14,14,14)
这是我想要的输出
ID Fruit Color
1 5 Bannana Blue
2 5 Bannana Blue
3 5 Bannana Blue
4 7 Cherry Cyan
5 2 Apple Amber
6 14 Elderberry Earth …