3回答
我最近开始使用R和一个新手进行数据分析。
当一串数据被用于搜索数据时，在R中是否可能在数据的单个主字符串中找到重复次数？
示例：
主字符串：'abcdefghikllabcdefgllabcd'
搜索字符串：'lla‘
期望输出：'abcdefghik lla bcdefg lla bcd‘
我尝试使用R的grep()函数，但它没有以所需的方式工作，只给出了在多个主字符串中重复搜索字符串的次数。
提前谢谢你。
浏览 17提问于2016-01-01得票数 2
回答已采纳
2回答
我有这个：
a = "whut.\\nErgh"
我想要实现的是：
"whut.\nErgh" #Sub2反斜杠与1反斜杠
我试过这个：
a.gsub(/\\\\/) { '\\' }
但它还是给了我两个反斜杠。
有人能解释一下这里出了什么问题吗？
浏览 1提问于2014-02-28得票数 1
回答已采纳
2回答
我需要删除字符串末尾的所有特殊字符，这些字符有时存在，有时不存在。 我已经写了这个.gsub(/[,()'"]./,'')，但是它没有从字符串中删除. (句号)。 你能告诉我这里面出了什么问题吗？
浏览 22提问于2019-01-19得票数 2
回答已采纳
我有一个这样的文件：
hgfjk
AX-75183725 2 2 -1 2 1 2 -1 0
我想将-1、0、1和2分别替换为NA、0101、0102和0202。所以我会得到：
hgfjk
AX-75183725 0202 0202 NA 0202 0101 0202 NA 0101
我使用这个命令：
awk 'NR == 1 { print; next } NR>1{a=$1;$1="@";gsub(/ -1\>/,"NA");gsub(/<0\>/,"0101");gsub(/<1\>/,"
浏览 0提问于2012-07-24得票数 0
回答已采纳
3回答
Sinatra标题插件
、、、
我正试着在Sinatra中创建一个slug助手。下面是代码(如所示)：
helpers do
def sluggify(title)
accents = {
['á','à','â','ä','ã'] => 'a',
['Ã','Ä','Â','À'] => 'A',
['é','è','ê','ë'] =>
浏览 1提问于2010-04-18得票数 0
1回答
我有一个包geniusr，它有不同的功能来检索歌曲的歌词。如果我键入以下代码：
get_lyrics_search("Bloc Party", "Signs")
这是歌曲的标题和艺术家。
但我只将A tibble:0 x 5作为输出。有人知道可能出了什么问题吗？
浏览 13提问于2021-12-19得票数 1
我有一系列的制造商，他们中的一些在他们的正式名称的开头使用" the“。人们用实名来称呼它们，在select中查找"M“下的名称，但它在"T”下
莫里茨刺绣公司
我正在考虑取每个名称，将其转换为一个带有.split(" ")的数组，然后删除" the“(.delete("The"))，然后再加入，然后进行排序，但是这样做似乎是错误的。
浏览 1提问于2017-05-30得票数 1
回答已采纳
3回答
我正在尝试创建一个名为contains_double_quotes(argument)?的方法，它检查字符串argument是否包含引号。换句话说，它应该返回。
如果true argument是"\"which one is your favorite\""的话。
如果false argument是"hello"或"this is a regular string value"。
我尝试了如下方法，但不确定这是否是最好的方法。这种逻辑有什么问题呢？
def contains_double_quotes(argume
浏览 2提问于2015-07-30得票数 3
回答已采纳
2回答
我有两个问题：
( 1)我想从我的剧本中删除每一个非英语字母。2)我想计算一段文字的长度，从标点符号、空格等中清除出来。我只是不知道这部分有什么问题。
Linux脚本：
#!/usr/bin/bash
awk '
BEGIN { FS="" } # defining a field separator in order to treat each character one by one
{
$0 = tolower($0) # removing case distinctions
gsub(/[[:punct:]]/,"
浏览 7提问于2014-11-06得票数 0
回答已采纳
3回答
我有一个由单个空格分隔的列中包含单词的数据框架。我想把它分成以下三种类型。数据帧如下所示。
Text
one of the
i want to
我想把它分成以下几个部分。
Text split1 split2 split3
one of the one one of of the
我能达到第一名。找不出另外两个人。
我得到split1的代码：
new_data$split1<-sub(" .*","",new_data$Text)
计算出了split2：
df$split2 <- gsub(&#
浏览 4提问于2016-06-03得票数 3
回答已采纳
1回答
我试图在一个名为df3的列中解析和清理一个名为Tab的字符串。这里是我在R中使用gsub()函数的解决方案。
df3$Tab <- gsub(".*from","",df3$Tab)
df3$Tab <- gsub(".*FROM","",df3$Tab)
df3$Tab <- gsub("where.*","",df3$Tab)
df3$Tab <- gsub("WHERE.*","",df3$Tab)
基本上，我想删除所有之前和上的“从”以
浏览 4提问于2022-02-02得票数 -1
回答已采纳
2回答
我想出了这个UDF，一定有更好的方法吗？
如果数字为<0.00001，则使用基数10符号，而不是e-。输入范围为0-1。
report.Rmd
```{r temp}
udf_expTo10 <-函数(X){
X <- as.character(x)
if(grepl("e-"，x)){
x <- round(as.numeric(unlist(strsplit(x,"e-"))),1)
x <- paste0(x[1]," x 10^-",x[2],"^")}else{
x <- roun
浏览 1提问于2015-03-30得票数 1
回答已采纳
给定以下字符串，如何提取电子邮件地址？我想提取的电子邮件地址是由<>专门附上的：
egstring = 'blah blah blah <taylor_swift@gmail.com> wrote: blah blah blah'
以下是我迄今所做的尝试。
pos = gregexpr('(?<=(\\<))([a-z0-9.]+\\@[a-z0-9.]+)(?=(\\>\\swrote\\:))',egstring,perl=TRUE)[[1]]
我想达到的目标是：
"taylor_swift@gmail.co
浏览 2提问于2017-06-02得票数 0
回答已采纳
我想要做的是在字符串中将$符号后面的数字更改为0。我可以做简单的“查找$符号，然后将其改为0"，但问题是这个数字可能有不同的数字数。另一个问题是，数字可能是像"2.5“这样的非整数，所以它必须容忍逗号，或者负数，例如"-2”：
我有一个字符串类型的方程：x^(-2) + 4x + 123 + 42.2 + 1
我把它写成如下：x^($-2) + $4x + $123 + $42.2 + 1
我想得到的输出应该是：x^(0) + 0x + 0 + 1
你知道怎么做吗？
现在我想出了一个主意，但我不知道红宝石中是否存在这样的方法。
x=0
while index('
浏览 1提问于2017-03-19得票数 0
回答已采纳
2回答
想知道在对字符串进行转换时使用str_replace_all时的错误：
abc <- "Good Product ...but it's darken the skin tone..why...?"
在使用quanteda运行语句标记之前，我想做一个额外的操作，以便将其转换为如下所示：
abc_new <- "Good Product. But it's darken the skin tone. Why?"
我使用以下正则表达式来启用此功能：
str_replace_all(abc,"\\.{2,15}[a-z]{1}
浏览 3提问于2018-01-16得票数 1
我的视图中有以下代码，我不明白为什么gsub不能工作。
<div class="section" id="<%= section.title.gsub(/_/, ' ') %>">
当为.title = "Test Title"时，它只返回"Test Title"而不是"Test_Title"
这里出了什么问题？
浏览 0提问于2013-04-13得票数 0
回答已采纳
我和ruby一起工作，我试着在每个单词之前加上一个逗号和一个空格，在每个单词前面加上一个大写字母，与开头单词分开。
str = Taxonomy term Another term One more
puts str.gsub(/\s/, ', ')
输出> Taxonomy, term, Another, term, One, more
期望输出> Taxonomy term, Another term, One more
我的regex技能非常生疏，所以我只是停留在这个阶段。
知道如何达到我想要的输出吗？
浏览 3提问于2014-07-10得票数 2
回答已采纳
3回答
我需要一个regex专家来解决这个问题。它与我丢失的一个如此问题有关，其中的数据如下：
x = c("IID:WE:G12D/V/A", "GH:SQ:p.R172W/G", "HH:WG:p.S122F/H")
我需要对x的每个元素进行拆分，以分离可以由letter - slash - letter - .... slash - letter组成的结束部分。我想要的是获得这两个向量作为输出：
o1 = c("IID:WE:G12", "GH:SQ:p.R172", "HH:WG:p.S122")
浏览 1提问于2015-07-21得票数 2
回答已采纳
2回答
你好，我想消除非文字字符由一个Regex在Ruby。
假设我有：
pal1 = "a@b?a"
pal1 = /[a-z0-9]/.match(pal1)
当我把这个放在中时，它说匹配的结果是：
但是当我在我的ruby中运行代码时，它不是真的，它只给出了"a“。
如何改变我的Regex，以实现阿坝在pal1。
提前谢谢你的时间。
浏览 6提问于2014-05-12得票数 1
回答已采纳
2回答
查找每行的字数
、、
比方说，我想要找到数据帧每行中的字数。因此，在下面的示例中，我想找出第一列中的第一个值有3个单词，第二个值有4个单词，依此类推。我假设这是一个应用函数的任务，但是我没什么运气能弄清楚这个问题。
dat = data.frame(one=c("That is Cool",
"I like my bank", "He likes pizza", "What"))
我是否需要使用strsplit()，还是在创建函数时使用apply()函数更好：apply(dat, 1, function(x)...
浏览 0提问于2011-06-03得票数 3
回答已采纳
1回答
我正在尝试将电子邮件地址从html文件替换为反垃圾邮件格式，并将其作为nospam.html文件再次导出。我尝试使用gsub()函数来完成这个任务，但它似乎不起作用。有什么问题吗？谢谢！
datei <- scan("https://isor.univie.ac.at/about-us/People.html", sep = "\n", what= "character")
#pattern.email <- "[a-z]+[.]+[a-z]+?[@]+[a-z]+"
reg.email <- "\\&l
浏览 2提问于2019-11-27得票数 0
回答已采纳
2回答
如果我有一个字符串: string = <.one><.two>three<.four>:five，我如何操作这个字符串来删除模式"<..>“中的所有内容。我希望我的输出返回；string =3:5
谢谢
浏览 1提问于2012-06-25得票数 0
回答已采纳
2回答
我似乎无法从以下短语中获得电子邮件地址：
"“
到目前为止我已经试过了
regexpr(":([^\\?*]?)", phrase)
代码的逻辑如下：
从分号字符开始：
得到所有不是问号的字符
在括号内返回这些字符。
我不知道我的政令哪里出了问题。
浏览 1提问于2012-12-24得票数 0
回答已采纳
任务是编写一个函数，该函数将字符串中所有单词的第一个字母大写。为此，我们将一个单词归类为由空白分隔的任何字符。由于标准的String.capitalize方法只大写字符串的第一个字符，所以我编写了以下内容。
这一任务能否通过编写更少的代码来完成？还有其他改进-关于功能的建议吗？
下面是我写的代码：
def capitalizeAllWords(str)
caps = str.split(" ").map do |word|
word.capitalize
end
caps.join " "
end
puts capit
浏览 0提问于2020-06-05得票数 5
回答已采纳
1回答
我有一个类似于"function *()“的搜索字符串。*是通配符。我想要一个包含所有匹配字符串列表的表。
例如，如果我用搜索字符串"function *()“搜索这个字符串
function one()
print("Hello")
end
local function two()
print("World")
end
它应该返回表{"function ()“、"function ()”}。我怎么才能在LUA做这个？
浏览 2提问于2017-10-19得票数 1
回答已采纳
2回答
awk逻辑条件混淆
、、、
有没有人能解释一下为什么它会像预期的那样工作：
echo "one\ntwo\nthree\n" | awk '{if (gsub(/one/,"")) { print } else {print $0}}'
two
three
echo "one\ntwo\nthree\n" | awk '{if (gsub(/four/,"")) { print } else {print $0}}'
one
two
three
但这不是吗？
echo "one\ntwo\nthree\n"
浏览 3提问于2021-03-11得票数 0
当我在我的df上调用rowname时，我得到的结果如下所示： "Saint.Petersburg..Russia" "Istanbul..Turkey" 这是我编写的代码 gsub("..", " ", rownames(df)) 这就是返回的内容 [1] " " " " " 我所期望的是 "Saint.Petersburg Russia" "Istan
浏览 14提问于2020-01-25得票数 1
回答已采纳
我发现了很多讨论“如何实现grep json值”的线程。但不幸的是，对我和所有使用busybox (嵌入式linux)的grep的人来说都是无用的。这个grep版本没有选项"-P“(perl )。只有"-E“(Extended )可用。
BusyBox v1.20.2 () multi-call binary.
Usage: grep [-HhnlLoqvsriwFE] [-m N] [-A/B/C N] PATTERN/-e PATTERN.../-f FILE [FILE]...
Search for PATTERN in FILEs (or stdin)
浏览 1提问于2017-07-11得票数 4
回答已采纳
3回答
string<-c(" this is a string ")
是否可以将字符串两边的空白(或仅按需要的一侧)修剪，并在R中用所需的字符替换它，如这个字符？空格的数目在字符串的两边不同，必须在替换时保留。
"~~~~~~~this is a string~~"
浏览 7提问于2013-09-03得票数 5
回答已采纳
我想从一个字符串中删除多个web URL。如果字符串如下：
this is a URL http://test.com and another one http://test.com/hi and this one http://www.test.com/
它应该会回来
this is a URL and another one and this one
我尝试使用以下代码：
gsub(" ?(f|ht)(tp)(s?)(://)(.*)[.|/](.*)", "", string)
但它还给我这个：
this is a URL
浏览 8提问于2017-02-25得票数 2
回答已采纳
我希望匹配一个路径前缀，并使用sed替换所有分隔符。
考虑下面的示例字符串和所需的结果。路径前缀为one/two，分隔符为正斜杠。
one/two/three.Something => one.two.three.Something
one/two/three/four/five.Another => one.two.three.four.five.Another
到目前为止，我已经想出了这个命令
echo one/two/three.Something | sed 's/one\/two\(.*\)\./one.two\1./g'
我如何使它产生上述结果，这能用s
浏览 1提问于2020-01-15得票数 0
回答已采纳
5回答
我在Lua脚本中得到了这个字符串：
one;two;;three;four;;five;;six;seven;
第一个字符永远不会是分号。中间分隔符可以是单个分号，也可以是双分号，最后一个字符可以是一个分号，也可以不是一个分号。
使用Lua模式(和string.gsub())：如何匹配中间的双分号，用单个分号替换这些分号，并删除最后一个可选分号？
输出必须如下所示：
one;two;three;four;five;six;seven
这有可能使用单一的模式吗？
浏览 0提问于2013-11-08得票数 2
回答已采纳
2回答
我有一个非常长的常数定义，需要插值(真正的定义要长得多)：
const = "This::Is::ThePath::To::MyModule::#{a_variable}".constantize
现在，为了提高可读性，我尝试使用遗传来创建一个多行字符串：
const = <<-EOT.constantize
This::Is::ThePath::
To::MyModule::#{a_variable}
EOT
但是当我执行它时，我会得到一个NameError: wrong constant name。因为第一个例子是有效的，我假设它与字符串插值有关？
对这
浏览 3提问于2014-11-23得票数 1
回答已采纳
我想删除等号，只有当，而不是，后面跟着3D。这里有一个例子。
NB2HI4B2F4XWM3LNFZCGK3DJOZSXE6L=PNZSS4Y3PFZZWGSZB5GUTGKPLE=ONZXA33PNZSXEQ
所以这应该成为
NB2HI4B2F4XWM3LNFZCGK3DJOZSXE6LPNZSS4Y3PFZZWGSZB5GUTGKPLEONZXA33PNZSXEQ
如果可能的话，我能用awk和sed找到解决方案吗？我知道这里有很多关于如何做的解释，但是在开始的时候，正则表达式并不是那么容易。
浏览 3提问于2013-03-11得票数 1
回答已采纳
我希望函数返回以下条件下的字符串。
在"def“之后
在"def“之后的第一个%ile前面的括号中
因此，理想的输出是"4"，而不是"5“。到目前为止，我能够提取“2)(3)(4)”。如果将函数更改为str_extract_all，输出将变为“2)(3)(4)和"5”。我想不出怎么解决这个问题。谢谢!
x <- "abc(0)(1)%ile, def(2)(3)(4)%ile(5)%ile"
string.after.match <- str_match(string = x,
浏览 9提问于2022-11-24得票数 0
回答已采纳
例如，我有一个Ruby字符串："blue green yellow dog cat mouse alpha beta"。
我想取代：
颜色名称与单词"color"，
用"animal"这个词命名动物，以及
希腊字母名称与单词"letter"。
换句话说，在我上面的例子中，我希望新的字符串是：
"color animal letter"
而不是
"color color color animal animal animal letter letter"
我想出了以下方法：
def
浏览 2提问于2015-11-16得票数 1
回答已采纳
2回答
我正在尝试找到一种方法来替换下面的3个单词，这些单词在特定的单词之后到达，并且它们的第一个字母大写。我需要这个来删除语料库中的名字。
例如，下面是我所拥有的：
name <- c("Hello Mr Whatever His Name. How are you ?")
我需要的是：
Hello Mr . How are you ?"
我在Stack Overflow上找不到任何类似的东西。
浏览 0提问于2020-02-08得票数 0
1回答
使用R标识数据中文本列的同义行
、、、、
假设ABC是一个数据文件，如下所示：
ABC <- data.frame(Column1 = c(1.222, 3.445, 5.621, 8.501, 9.302),
Column2 = c(654231, 12347, -2365, 90000, 12897),
Column3 = c('A1', 'B2', 'E3', 'C1', 'F5'),
Column4 = c('I boug
浏览 2提问于2021-01-12得票数 0
我有一个表，其中给定行中的大多数值都是相同的。我想拉出的是至少有一个值不同的任何行。我已经想出了如何用下面这样的东西来做到这一点
awk -F "\t" '{if (($4!=$5)&&($5!=$6)&&($6!=$7)) print $0;}'
唯一的问题是有40多个奇数列需要比较。有没有更优雅的方法来比较多个列的差异。顺便说一句，这些都是非数字值，所以花哨的数学技巧是行不通的。
谢谢大家。我是newbee，所以我必须承认我不能理解所有的命令，等等，但我可以从这里查找它。我不确定我会选择谁的建议，但我从具体的例子中学到的比从教
浏览 2提问于2013-04-24得票数 2
使用(openxlsx)包编写xlsx文件。我有一个变量，它是数字的向量。
x <- 1:8
然后将".xlsx“粘贴到x元素的末尾，以便稍后创建xlsx文件。
new_x <- paste(x,".xlsx", sep = "")
然后，我在write.xlsx循环中使用("openxlsx")包创建新的xlsx文件。
for (i in x) {
for (j in new_x) {
write.xlsx(i,j)
}}
当我打开("1.xlsx“- "8.xlsx")时，所有文件上只有"8
浏览 1提问于2018-08-27得票数 1
回答已采纳
require(purrr)
require(xlsx)
我正在一本Excel工作簿中阅读，里面有很多工作表。每个工作表都包含一个对象上的数据，所以我尝试读取所有的表，应用几个转换，然后将它们放在一起rbind。
我为转换编写了这个助手函数--所有的数据都在一列中，所以我使用regex拆分为fieldnames和values。
dfTransform <-function(sheet){
fieldnames <- apply(sheet,2,function(x) gsub("(^.*?):.*","\\1",x))
values
浏览 0提问于2017-10-03得票数 1
回答已采纳
我的shell正在打印输出，如下所示。
$ echo ${mount_check[*]} |tr "." "\n"
File system /abc is NOT mounted
File system /xyz is NOT mounted
$
我曾经尝试过使用echo "${mount_check[*]}"，但是它没有按照我想要的方式打印输出。
我希望shell打印每个没有空格的新行，并删除空行，如下所示。
File system /abc is NOT mounted
File system /xyz is NOT mounted
根据
浏览 0提问于2020-01-19得票数 1
我有一个如下的属性数组，
attributes = ["test, 2011", "photo", "198.1 x 198.1 cm", "Photo: Manu PK Full Screen"]
当我这么做的时候，
artist = attributes[-1].gsub("Photo:")
p artist
我在终端中得到了以下输出
#<Enumerator: "Photo: Manu PK Full Screen":gsub("Photo:")>
想知道为什么我会
浏览 0提问于2011-12-13得票数 10
回答已采纳
4回答
用空格替换单词分隔符
、、、
我只想用空格代替一些单词分隔符。对此有什么提示吗？在转换为字符后也不起作用。
df <- data.frame(m = 1:3, n = c("one.one", "one.two", "one.three"))
> gsub(".", "\\1 \\2", df$n)
[1] " " " " " "
> gsub(".", " ", df$n)
[1] "
浏览 0提问于2015-01-22得票数 0
string = 'one a day'
如何从字符串中删除少于2个字符的单词？
result = 'one day'
浏览 0提问于2012-01-07得票数 0
回答已采纳
2回答
我有字符向量，其中有些元素有0个字符。我想将它们连接起来，但忽略以下0元素：
x <- c("a", "b", "", "d", "", "f")
y <- c("a", "", "c", "", "e", "f")
z <- c("a", "", "c", "d", "", "f")
pa
浏览 3提问于2016-06-02得票数 1
回答已采纳
我的这个查询没有返回任何内容。它不会抛出任何错误。在此网站上找不到解决方案。这里出了什么问题？
$query = "SELECT * FROM `votes` WHERE `tags` IN (:tags)";
$stmt = $dbh->prepare($query);
$stmt->bindValue(':tags', 'one, two, three');
$stmt->execute();
// 0 results, should be more
浏览 5提问于2012-11-21得票数 0
回答已采纳
考虑以下字符串：This is an example: this is another one, and this is yet another, and other, and so on.，我想替换:和,之间的所有空格字符。所以看起来就像这个This is an example:_this_is_another_one, and this is yet another, and other, and so on.
到目前为止我尝试过的是：
(?<=:)\s+(?=[^,]*,) (只匹配第一个空格)
:\s+(?=[^:,]*,) (与上面相同)
\s+(?=[^:,]*,
浏览 3提问于2017-11-07得票数 1
回答已采纳
2回答
我试图在基于ifelse语句的字符串末尾添加一个单词，但遇到了问题。
words <- c("one","two","one","four")
newword <- "word"
如果值等于“1”，我想追加一个单词
words <- ifelse(words == "one",
gsub(paste(newword, sep = " "), "", words),
words)
我希望输
浏览 27提问于2018-01-20得票数 1
回答已采纳
2回答
如何将以下字符串更改为不包含R中的多个连续问号/其他特殊字符？
"Nice one!!!"
应该变成
"Nice one!"
和
"Whazzup????!!"
应该变成
"Whazzup?!"
我尝试了多个regex命令，但没有成功。显然，我可以用一个代替两个问号，但我希望它独立于特殊字符的数量。
这与标记的复制不同，因为它处理特殊字符。
浏览 7提问于2016-10-28得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
