使用游程长度编码(rle)的随机采样
游程长度编码（Run-Length Encoding，RLE）是一种简单的无损数据压缩算法，用于将连续重复的数据序列压缩成更短的表示形式。它基于游程（run）的概念，即连续重复出现的相同数据值。
RLE的基本原理是将连续重复出现的数据序列替换为一个计数值和一个数据值的组合。例如，对于序列"AABBBCCCC"，使用RLE编码后可以表示为"2A3B4C"。在解码时，只需根据计数值将数据值重复输出即可还原原始序列。
RLE在某些情况下可以有效地压缩数据，特别是对于包含大量连续重复数据的情况。然而，在存在较少重复数据或数据分布较为随机的情况下，RLE的压缩效果可能不如其他更复杂的压缩算法。
RLE广泛应用于各种领域，包括图像压缩、音频压缩、文本压缩等。在图像和视频压缩中，RLE常用于处理连续重复的像素值，减少数据存储和传输的开销。在文本压缩中，RLE可以用于压缩连续重复出现的字符序列。
腾讯云提供了多种与数据处理和存储相关的产品，其中一些可以与RLE结合使用。以下是一些推荐的腾讯云产品：
- 腾讯云对象存储（COS）：腾讯云的分布式对象存储服务，可用于存储和管理各种类型的数据，包括经过RLE压缩的数据。详情请参考：腾讯云对象存储产品介绍
- 腾讯云云数据库（TencentDB）：腾讯云提供的多种数据库服务，包括关系型数据库和NoSQL数据库，可用于存储和查询经过RLE压缩的数据。详情请参考：腾讯云云数据库产品介绍
- 腾讯云云服务器（CVM）：腾讯云的弹性云服务器，可用于部署和运行各种应用程序，包括处理经过RLE压缩的数据。详情请参考：腾讯云云服务器产品介绍
请注意，以上推荐的腾讯云产品仅供参考，具体选择应根据实际需求进行评估和决策。
相关·内容
1回答
这就是我想要理解的功能：
def load_image(name, colorkey=None):
fullname = os.path.join('data', name)
try:
image = pygame.image.load(fullname)
except pygame.error, message:
print 'Cannot load image:', name
raise SystemExit, message
image = image.convert()
浏览 6提问于2014-12-26得票数 0
回答已采纳
2回答
我有一个R数据框：
a <- 1:12
list <- c(rep("x",3),rep("y",4),rep("z",3),rep("x",2))
data <- data.frame(a,list)
data
a list
1 x
2 x
3 x
4 y
5 y
6 y
7 y
8 z
9 z
10 z
11 x
12 x
我想创建一个新列，它在每次"
浏览 0提问于2012-10-29得票数 8
回答已采纳
2回答
我是编码新手，所以我正在尝试理解基础知识。我看到一个文档，它描述了一种无损文本压缩技术，在这个文档中，有一个图示说明了它们的压缩原理。它是这样工作的：
Source -> BWT -> MTF -> RLT -> Proprietary Entropy Encoder
我不明白为什么他们会在移动到前端转换之后使用游程转换，这对我来说似乎不是很有效。据我所知，MTF本身不会产生很多运行，因此使用RLT后缀是没有用的。
如果能给出一些解释，我们将非常感激！
浏览 4提问于2012-12-25得票数 0
回答已采纳
我有多个时间序列，每个时间序列表示数据帧中的一列。我需要清理数据，因为我想删除有间隙的列，或者找到所有列都有数据的最长时间段。例如，对于玩具数据集：
AEDC AGGI AKVA ALME ALOD ALTX
2014-01-02 NaN 0.03 0.04 0.0040 0.38 NaN
2014-01-03 NaN NaN 58.3 0.0040 NaN 0.083
2014-01-06 NaN NaN 58.9 0.0063
浏览 2提问于2021-11-25得票数 0
1回答
我正在处理CIP3文件-它们是具有混合内容(二进制\文本)的文件。我有一个文件，它的图像数据是用RunLengthDecode过滤器(来自PostScript)压缩的，并用ASCIIHexDecode编码。
ASCIIHexDecode还可以(只需将二进制转换为十六进制)，但我找不到一个像样的RLE解压缩算法。我在谷歌上搜索了很多次，StackOverflow，到处都是--在问之前。有人能给我关于这个主题的意见吗？
到目前为止，我一直在尝试使用这个算法来解压缩：
public enum EncodingFormat
{
Old,
New,
}
public static c
浏览 8提问于2019-01-29得票数 0
1回答
我一直在做一些记录，试图向Comcast Business说明他们在我的办公室的服务中断的频率。我将ping响应时间记录到一个文件中，然后使用R解析该文件。在日志文件中，值为1000表示ping超时。我的脚本每5秒记录一次ping。因此，如果我的Comcast服务停机30秒，将导致大约6个日志条目的值为1000。我想以这样一种方式解析我的日志:我可以创建一个汇总表，显示每次停机开始的时间和持续的时间。有什么好方法可以做到这一点呢？
以下是今天的一些示例数据和一些图表，它们说明了我的时间序列：
require(xts)
outFile <- "http://pastebin.com
浏览 2提问于2011-11-21得票数 9
回答已采纳
我有一个包含零值的向量：
x<-c(6,0,0,4,2,0,2,2,0,0,5)
如何使用数字替换零值和最后一个非零值：
last non zero value /(length of run of zero's + 1)
例如，前三个元素应替换为6/3，即2
因此，之后x应该如下所示：
x<-c(2,2,2,4,1,1,2,0.66,0.66,0.66,5)
浏览 19提问于2017-08-12得票数 0
我在R中有一个data.frame，其中value列包含character类的数据。我想标识value发生变化的行号。在下面的例子中，我想得到4，7和9。有没有一种不需要循环的方法？
df <- data.frame(ind=1:10,
value=as.character(c(100,100,100,200,200,200,300,300,400,400)),
stringsAsFactors=F)
df
ind value
1 1 100
2 2 100
3 3 100
4 4 200
5 5 200
6 6 2
浏览 8提问于2017-07-18得票数 11
回答已采纳
1回答
我有一个时间序列的每小时降水数据，我试图通过一个QA/QC程序运行。我想做的一件事是创建一个间隔计数的直方图，根据数据丢失的时间来分组缺失的数据，例如，有多少个时间段丢失了一个小时的数据，有多少个时间段连续两个小时，有多少个时间段有三个，等等……我可能可以用一些嵌套的循环来实现这一点，但是我想知道是否有更好的方法。
时间序列是连续的(所有时间都表示)。datetime为POSIXct，数据为数字，缺少数据时为NA。下面可以创建一个简短的示例：
precip <- structure(list(datetime = structure(c(1114905600, 1114909200,
浏览 3提问于2013-11-14得票数 0
回答已采纳
1回答
场景:必须生成包含一些客户信息的qr代码。它将在android手机中被扫描。
信息必须在随后的过程中传递。
----------------------Server side---------|| Image ||------Android-----------------------------
original data-->Encrypt--->> Compress---> ||Qr code|| --> Decompress-->>Decrypt-->original data
万事如意。但是文本压缩是效率不高的.
有什么有效的方法吗？
浏览 8提问于2014-11-03得票数 1
回答已采纳
我目前正在尝试将测试图像添加到facebook/deepmask，这样我就可以训练这些图像。目前，深度掩模程序使用CoCo图像和注释，但我想知道是否可以添加我自己的图像。唯一的原因是我只想训练一种类型的图像，在本例中是葡萄。我浏览了注释文件，但它充满了图像的规格。我问这个问题的唯一原因是因为网上没有针对我的特定问题的教程/答案。
下面是要进行深度掩码的github：
此外，要下载CoCo图像的注释文件，请在终端中使用以下命令：wget http://msvocds.blob.core.windows.net/annotations-1-0-3/instances_train-val2014.z
浏览 0提问于2016-11-17得票数 2
我有运行长度编码的Matlab代码，我想使代码解码。请任何人可以帮助我在这个代码的解码器？
编码器如下所示：
function out = rle (image)
%
% RLE(IMAGE) produces a vector containing the run-length encoding of
% IMAGE, which should be a binary image. The image is set out as a long
% row, and the conde contains the number of zeros, followed by the number
%
浏览 0提问于2017-06-20得票数 0
1回答
我有时间序列，需要找到超过阈值的值的集群，并将该集群绘制在单独的图上。 我的代码示例。不幸的是，我不知道如何生成良好的聚类值。 #generate sample data
Sys.setlocale("LC_ALL","English")
set.seed(8)
Values <- sample(0:100,24241, replace = T)
Values <- rpois(24241, lambda=60)
start <- as.POSIXct("2012-01-15 06:10:00")
interval
浏览 11提问于2020-12-02得票数 0
我是新来的，不是很专业的。希望你们能帮我。
我有一个向量ls，并希望在其中识别至少三个相同的值。
示例：
ls <- c(1, -1, 1, -1, -1, -1, 1, 1, 1, -1, -1, -1, -1, -1, -1)
现在，我想确定ls中的位置，在那里，最小连续三个-1确实是start。在这里，产出(职位)是：
[1] 4 10
你们有什么想法吗？谢谢。
浏览 3提问于2016-03-30得票数 0
回答已采纳
1回答
假设我有一个整数数组，例如：
p<-c(0,1,0,0,0,1,1,0,1,0)
我需要一种有效的方法来找到最多两个"0“的所有序列。我做到了：
j<-2
while (j<length(p)) {
if(p[j-1]==1&&p[j]==0&&p[j+1]==1){
#do stuff
j<-j+2
} else if (p[j-1]==1&&p[j]==0&&p[j+1]==0&&p[j+2]==1){
#do s
浏览 0提问于2017-02-14得票数 0
从像这样的向量开始：
vec <- c(1,1,1,2,2,7,2,2,2,1)
我需要返回向量的所有不同的和可能重复的元素。在这个例子中，我想获得1, 2, 7, 2, 1。不幸的是，-unique-会返回1, 2, 7，这不是我所需要的。
我还需要获得另一个向量，其中包含vec的每个元素的元素重复次数。在这个例子中，它将是3, 2, 1, 3, 1。
任何建议都是非常感谢的。
浏览 0提问于2013-09-17得票数 1
回答已采纳
1回答
让霍夫曼树脱水的最好方法是什么，我的意思是，给定一棵霍夫曼树，以及每一片叶子中的字符，你如何有效地存储这棵树的结构，并在以后重建它。
以下面的树为例：
---------------garbage------
-------------/-------\------
------------A-------garbage-
--------------------/-----\-
-------------------B-------C-
一种想法可能是在每个级别存储符号，然后使用该信息重建树。在本例中: A1B2C2。那么我如何才能首先获得级别，并将每个级别与角色关联起来呢？
浏览 0提问于2013-02-26得票数 3
回答已采纳
在我为学校作业使用Java实现的Huffman编码(http://en.wikipedia.org/wiki/Huffman_编码)压缩/解压缩文件的伟大探索中，我现在正在构建一个前缀代码列表。这些代码在解压缩文件时使用。基本上，代码是由0和1组成的，它们用于在Huffman树(左或右)中跟踪路径，最终找到一个字节。
在这个维基百科图像中，要到达字符m，前缀代码是0111。
📷
其思想是，当您压缩文件时，您将基本上将文件的所有字节转换为前缀代码(它们往往小于8位，因此有一些增益)。
因此，每当字符m出现在文件中(二进制文件实际上是1101101)时，它将被0111替换(如果我们使用上面的树)。
浏览 0提问于2012-11-22得票数 1
回答已采纳
2回答
我想创建一个从5到0的重复模式，然后返回到5，3次，所以我想要5，4，3，2，1，0，1，2，3，4，5，...，5我该怎么做？
我知道rep
(seq(from=a, by=b, length=c),d)
函数，但不知道如何在此模式中使用它...有没有人可以帮我，我想用
x <- 5
y <- 3
浏览 0提问于2017-09-28得票数 4
2回答
我有一个向量：
test <-c(1,1,0,2,2,3,4,1,1,0)
test
# [1] 1 1 0 2 2 3 4 1 1 0
我想构造一个分组变量，它指示值何时发生变化：
# [1] 1 1 2 3 3 4 5 6 6 7
做这件事最好的方法是什么？
浏览 1提问于2013-07-09得票数 5
回答已采纳
1回答
我希望了解如何在coco数据集的分段部分定义内部或内部多边形 我想教卷积网络识别建筑多边形中的洞 带洞的多边形的示例 ?
浏览 37提问于2019-12-31得票数 2
回答已采纳
是否有一种有效的方法来计算重复指定值的向量部分的长度？例如，我想计算日降雨量向量上的无雨周期的长度：
daily_rainfall=c(15, 2, 0, 0, 0, 3, 3, 0, 0, 10)
除了使用明显但笨重的方法循环通过向量之外，还有什么更简单的方法可以得到想要的答案？
rainless_period_length=c(3, 2)
考虑到上面的向量？
浏览 2提问于2018-12-06得票数 1
回答已采纳
我想要一张智能打印的单子。例如：
a=[2,2,2,1,1,1,1,1,1,1]
我要打印结果如下：2*3, 1*7
不像：2,2,2,1,1,1,1,1,1
浏览 5提问于2013-08-22得票数 0
回答已采纳
1回答
将网格转换为变形球
、、、
我正在做一个项目，我需要将现有的多边形网格转换为由metaball(斑点)构成的静态形状。我已经用binvox将网格体素化为“一个.raw文件”(根据的描述)，但我不知道它是如何存储数据的，因此不知道如何加载它。
Question1:有什么非博士生的方法可以做到吗？从多边形网格创建变形球模型。Question2:有没有人用过.raw文件格式，如果你用过，是怎么用的？
浏览 9提问于2011-08-08得票数 1
2回答
我想要从向量1:n生成随机值，而不需要替换，就像sample(n)一样。但是，我不想在内存中保存置换，而是根据需要生成值。类似于Python中的生成器。
我想是这样的：
# not working
rng <- random_permutation(n) # 'on demand' random number generator
x <- next(rng) # lazy creation of new random value (w/o replacement)
为什么我需要这个？因为n可能非常大，而且通常只需要很少的随机值。将整个1:n向量存储在内存中是非常
浏览 0提问于2020-10-15得票数 0
回答已采纳
给定一个栅格堆栈s，我想计算连续超过阈值t的最大天数，如下所示： library(raster)
set.seed(112)
x1 <- raster(nrows=10, ncols=10)
x2=x3=x4=x5=x6=x1
x1[]= runif(ncell(x1))
x2[]= runif(ncell(x1))
x3[]= runif(ncell(x1))
x4[]= runif(ncell(x1))
x5[]= runif(ncell(x1))
x6[]= runif(ncell(x1))
s=stack(x1,x2,x3,x4,x5,x6)*56 这是我当前的函数。 fu
浏览 15提问于2019-05-22得票数 0
回答已采纳
2回答
df <- data.frame(Num1=c(1,0,1,0,1), Num2=c(0,1,1,0,1), Num3=c(1,1,1,1,1), Num4=c(1,1,0,0,1), Num5=c(1,1,1,0,0))
我需要数一下r中每一行值变化的次数。谢谢！
浏览 6提问于2022-06-01得票数 0
回答已采纳
2回答
我对如何在符号序列上使用RLE有困难。
例如，我可以对字符串进行RLE编码，例如
"ASSSAAAEERRRRRRRR"
它将被转换为：
"A1S3A3E2R8".
但是我想对字符串执行RLE，比如
"XXXYYYYY(1ADEFC)(EDCADD)(1ADEFC)(1ADEFC)(1ADEFC)"
它将被转换为：
"X3Y5(1ADEFC)1(EDCADD)1(1ADEFC)3"
有没有办法到达它？这项工作变得容易一些，因为长字符串总是跟在括号中。可以在C++中给出一个这样做的建议吗？
如果有比使用括号更好的存储值的方法，如果
浏览 0提问于2011-10-10得票数 0
回答已采纳
我是R的初学者，现在我正在与一个新的问题作斗争。
我有很多像下面例子一样的data.frame结构。每个数据帧都是一个长的连续重复(大约每个文件80000行)从不同端口(在该示例中，仅从端口1到5)进行的测量。从端口1到5的每个周期重复多次。
我想找到一种方法，在每个重复的周期中只过滤每个端口的最后3个值，然后计算这3个值之间的平均值。
我的问题是如何告诉R每个周期都是独立的。我尝试dplyr::filter每个端口，但我不知道如何解释R，我有连续的周期。我希望这是可能的。
否则，我想找到一种方法来识别每个连续的周期，这样以后我就可以根据周期的数量来处理数据。有可能吗？
谢谢
date
浏览 5提问于2019-08-23得票数 0
回答已采纳
我有一个数据集，其值代表列中的位置(这是SNPs/基因组学工作)。
我试图找出一种方法来计算每一段缺失数据的距离(“差距”，如下所示为NA)。例如1466-1650 = 184
我也想计算连续观测的范围，但是一旦我发现了第一个问题，那就比较容易了。例如1450-1466 = 16
下面是一个关于如何组织数据的例子：
1450
1466
NA
NA
1650
1654
1943
NA
2568
这个问题与我的下一期试图分析数据集中的所有样本有关--遍历每个样本--请。
浏览 4提问于2017-10-11得票数 1
回答已采纳
1回答
小数据帧示例：
ID V1 V2 is
1 01 23569.5 0.138996 FALSE
2 01 23611.5 1.318343 TRUE
3 01 23636.0 0.071871 FALSE
4 01 23665.5 0.081087 FALSE
5 01 33417.5 0.102158 FALSE
6 01 33563.5 0.119645 FALSE
7 01 42929.5 0.175000 FALSE
8 01 44552.5 0.066056 FALSE
9 01 45539.5 0.22769
浏览 1提问于2016-12-22得票数 0
我想找到一个模式下最长的字符链的长度。假设我有这个数据，我想要找到行的长度，序列"a“是重复的，我怎么找到它呢？
id = c(1, 2, 3,4,5)
A = c("a","a","a","a","a")
B = c("a","a","b","a","d")
C = c("b","a","c","a","a")
D = c("a",
浏览 0提问于2018-02-12得票数 0
回答已采纳
1回答
我有许多不同国家的时间序列数据，总共超过50年。现在我想找出每个国家/地区的最长数据记录期。我已经尝试了一些东西，但它还不起作用(当我检查输出时，对于大多数情况，它返回的不是正确的连续年数，我不知道为什么)：
cntry <- as.list(unique(df$country))
df$longest.ts <- NULL
for (i in cntry) {
x <- max(diff(which(diff(df$year[df$country==i]) != 1)))
df$longest.ts[df$country==i] <- x
}
我很感
浏览 7提问于2019-11-25得票数 0
回答已采纳
3回答
我有一个0和1的序列，用这种方式： xx <- c(1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1) 我想做一个向量，它累积0的条纹，并将累积的条纹加到下一个可能的值1上。这个特定向量的结果应该是： yy <- c(1, 1, 1, 0, 0, 3, 0, 2, 0, 0, 0, 4) 在R中，最快、最有效的方法是什么？
浏览 40提问于2021-10-19得票数 2
我有一个随机的10x10df(实际上有几百万行)： df <- replicate(10, sample(0:5, 10, rep=T)) 我需要在df的末尾计算一列，即等于或大于一个设定值(例如3或更多)的连续值的最大长度的计数。 因此，包含值2, 4,3,3,4, 5，1,0,5,1的单行将返回值5，因为这组值4，3，3，4，5都是3或更多并且是连续的。 虽然5在大于3的行中再次出现，但它连续出现的次数少于该行中早些时候大于3的连续数字5。 感谢您的帮助。
浏览 39提问于2021-08-12得票数 0
回答已采纳
2回答
我在R工作。我有一个数据帧，df，看起来像这样：
> str(exp)
'data.frame': 691200 obs. of 19 variables:
$ groupname: Factor w/ 8 levels "rowA","rowB",..: 1 1 1 1 1 1 1 1 1 1 ...
$ location : Factor w/ 96 levels "c1","c10","c11",..: 1 2 3 4 12 23 34 45 56 67 ...
$ star
浏览 0提问于2011-08-05得票数 0
回答已采纳
是否有可能压缩/缩小CSS，JavaScript，图片只用代码(没有工具)？
很抱歉，因为这个问题与编码无关，但这是我在一次面试中被问到的问题，在谷歌上找不到。
谢谢！
浏览 0提问于2016-02-24得票数 0
我需要找出我的数据连续几天达到临界值的位置。我在寻找超过阈值的连续4个观测值。我想返回符合这些标准的系列的第一次观察的位置。
下面是一个示例数据集：
eg = structure(list(t.date = structure(c(1L, 2L, 11L, 12L, 13L, 14L,
15L, 16L, 17L, 18L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L), .Label = c("4/30/11",
"5/1/11", "5/10/11", "5/11/11", "5/12/11&#
浏览 6提问于2014-11-21得票数 7
回答已采纳
从向量：
v <- c(2,2,2,2,5,7,7,5,5,7,3,3,3)
根据条件v[i] != v[i+1]，我如何获得：
[1] 2 5 7 5 7 3
浏览 3提问于2015-10-22得票数 1
回答已采纳
3回答
在R中，我有一个由几个值描述的观测值的数据帧，其中一个是因子。我已经按该因子对数据集进行了排序，并希望添加一个列，在该列中我将获得该因子的每个级别上的许多观察值。
factor obsnum
a 1
a 2
a 3
b 1
b 2
b 3
b 4
c 1
c 2
...
在SAS中，我是这样做的：
data logs.full;
set logs.full;
count + 1;
by cookie;
if first.cookie
浏览 1提问于2011-11-21得票数 7
回答已采纳
我需要在第二列中计数观察在第一列中的次数。这里，第二列应该有值1,2,3,1,2,1,2。这段代码不起作用。
x <- c(11,11,11,22,22,33,33) y <- c(1,1,1,1,1,1,1) df <- data.frame(x,y)
i <- 1 for (i in 1:(nrow(df)-1)){
if(df[i+1,1] == df[i,1]){df[i+1,2] <- 2}
if(df[i+2,1] == df[i,1]){df[i+2,2 <- 3}
else df[i+2,2] <- 1}
浏览 0提问于2017-06-23得票数 1
2回答
我有一些函数，它接受英文字母表中的一个小写字母作为输入，并返回True或False。
有2^26个这样的可能函数。下面是一些函数及其26位表示：
00000000000000000000000000000001(仅z) 01010101010101010101010101 (仅限字母) 10000000000000000000000000 (仅限a)100010001000001000100100000(仅元音) 10000001000000000000000100 (仅限a，h，x)
我想做的是根据感知的随机性对这些函数进行评分，即它们对人类的随意性有多大？这似乎是有规律的，还是我只是随机挑
浏览 1提问于2015-09-16得票数 2
2回答
我正在分析一个大约有700000行的巨大数据集。
我想在不使用循环的情况下检测字符在哪里(在哪些行中)与前一个字符相比发生了变化。
例如，在数组"dat“中，理想的函数应该是c(4,6)
dat=c(BIS84003, BIS84003, BIS84003, BIS84005, BIS84005, BIS84006)
有人知道吗？
浏览 0提问于2014-07-09得票数 0
我有一个向量，它有一个独特的事件的开始和结束标志，在一个因子中编码为" start“和" end”。包括“开始”和“结束”之间的索引被计入事件的一部分。因此，我想使用eventFlag和eventIndex，前者是一个逻辑上指示事件是否正在发生的变量，后者为每个事件提供一个递增的数字。
# what I have
eventPoints <- factor(c(NA,NA,NA,NA,"start",NA,NA,NA,NA,
"end",NA,NA,"start",NA,"end",NA,NA,
浏览 12提问于2018-07-24得票数 1
回答已采纳
我正在寻找一种方法来为一个列生成一个序列，该列包含按ID分组的城市名称。重要的是，当一个城市的名称(在组中)重复时，必须开始一个新的序列。如果有新的ID，也应该开始一个新的序列。
编辑：
如何创建上述序列的问题已经解决。为了帮助以后选择具有最高序列号的行，我正在寻找一种方法来向数据帧添加新的列，以便为每个记录、每个序列、每个ID显示每个序列的最高编号。
以下是我想要实现的一个示例，基于我的数据框架的简化版本：
ID City Sequence Highest_number
1 Nijmegen 1 2
1 Nijmegen 2 2
1 Arnh
浏览 20提问于2018-01-17得票数 2
2回答
快速动态图像解压缩
、、、
我需要与4位图像的良好数量。然而，它必须用于J2ME设备，这意味着内存严重不足。那么，你能提出一种压缩算法，可以在相对较快的情况下进行解压缩，同时仍然具有合理的压缩程度吗？
浏览 0提问于2011-04-11得票数 3
回答已采纳
我正在尝试计算一个值在向量中出现的长度，例如
q <- c(1,1,1,1,1,1,4,4,4,4,4,4,4,4,4,4,4,4,6,6,6,6,6,6,6,6,6,6,1,1,4,4,4)
实际的向量比这个更长，并且是基于时间的。我想要的是4的输出，它告诉我它发生了12个时间步(在向量变成6之前)，然后是3个时间步。(并不是说它总共发生了15次)。
目前，我这样做的想法是非常低效的(一个逐个元素查找的循环，当它不等于我指定的值时，我可以让它停止)。有谁能推荐一种更有效的方法吗？
浏览 2提问于2017-12-11得票数 0
我有R中的病人状态的长向量，是按时间顺序排序的，还有一个相关的病人I的标签。这个向量是数据帧的一个元素。我想给连续的数据行贴上标签，这些数据的病人状态相同。如果状态发生变化，则恢复到其原始值，这将是三个单独的事件。这与我搜索过的duplicated或match已经足够的大多数情况不同。
一个例子是大致如下：
s <- c(0,0,0,1,1,1,0,0,2,1,1,0,0)
id <- c(1,1,1,1,1,1,1,2,2,2,2,2,2)
所需的输出将是
flag <- c(1,1,1,2,2,2,3,1,2,3,4,4)
或
flag <- c(1,1,1,2,2
浏览 0提问于2018-01-26得票数 1
回答已采纳
1回答
获取序列的长度
、、
我有一列数据(45,000行！)表示过滤器何时运行或关闭(取决于条件，显示为零)。日志文件记录如下(实际上是2列，第一列是自启动以来的计数)
col 1: 1,2,3,4,5,6,7,8,9,10.....45,000)
col 2: 1,2,3,4,0,0,0,0,1,2,3,4,5,6,7,8,9,10,11,12,0,0,0,0,0,0,0,0,1,2,3,0,0,0,0,0 etc.
我想要的是2列(“时间开”和“时间关”)与上述数据这将是：
"time on" 4,0,12,0,3
(即按非零序列的顺序排列的长度)和对应的
"time off" 0,4
浏览 11提问于2018-12-18得票数 0
1回答
我有如下数据：
我想写一个条件语句，如果连续3个或更多个“标志”值为真，则返回TRUE，但我不知道如何实现。
我在下面输入了一个示例数据集：
example <- data.frame(
value = c(20, 19.5, 14, 14, 25, 19, 23, 25, 30, 33, 38),
flag = c(F, F, F, F, T, F, F, T, T, T, T)
)
浏览 4提问于2022-04-04得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
