使用data.table，不创建新列的条件计算
是指在使用data.table包进行数据处理时，通过条件筛选和计算，不创建新的列来实现数据操作。
data.table是R语言中用于高效处理大型数据集的包，它提供了一种快速、灵活和内存高效的数据操作方式。在data.table中，可以使用条件语句对数据进行筛选，并在筛选结果上进行计算，而不需要创建新的列。
下面是一个示例代码，演示如何使用data.table进行不创建新列的条件计算：
library(data.table)
# 创建一个示例数据表
dt <- data.table(
id = 1:5,
value = c(10, 20, 30, 40, 50)
)
# 条件筛选和计算
dt[value > 30, result := value * 2]
# 查看结果
print(dt)在上述代码中，首先创建了一个示例数据表dt，包含id和value两列。然后使用条件筛选和计算的方式，对value大于30的行进行操作。在这个例子中，我们使用value > 30作为筛选条件，然后将满足条件的行的value列的值乘以2，并将结果存储在新的列result中。
最后，通过打印数据表dt，可以看到满足条件的行的result列已经被计算出来。
这种使用data.table进行不创建新列的条件计算的方式，可以在处理大型数据集时提高计算效率和节省内存空间。在实际应用中，可以根据具体的需求和条件，灵活运用data.table的功能进行数据处理。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云数据仓库 ClickHouse：https://cloud.tencent.com/product/ch
- 腾讯云弹性MapReduce（EMR）：https://cloud.tencent.com/product/emr
- 腾讯云云数据库 CynosDB for PostgreSQL：https://cloud.tencent.com/product/cynosdb-for-postgresql
- 腾讯云云数据库 CynosDB for MySQL：https://cloud.tencent.com/product/cynosdb-for-mysql
- 腾讯云云数据库 CynosDB for Redis：https://cloud.tencent.com/product/cynosdb-for-redis
- 腾讯云云数据库 TDSQL-C：https://cloud.tencent.com/product/tdsql-c
- 腾讯云云数据库 TDSQL-MariaDB：https://cloud.tencent.com/product/tdsql-mariadb
- 腾讯云云数据库 TDSQL-PostgreSQL：https://cloud.tencent.com/product/tdsql-postgresql
- 腾讯云云数据库 TDSQL-SQLServer：https://cloud.tencent.com/product/tdsql-sqlserver
- 腾讯云云数据库 TDSQL-MongoDB：https://cloud.tencent.com/product/tdsql-mongodb
请注意，以上链接仅供参考，具体产品选择应根据实际需求进行评估和决策。
相关·内容
之前，我问过这个问题：
现在，我有相同的数据框架：
> jiz <- data.frame(Type=c("X","B","B","B","B","X","B"),
+ Action=c("both","1","2","2","1","both","1"))
> jiz
Type Action
1 X
浏览 1提问于2014-03-14得票数 2
回答已采纳
1回答
我有如下数据：
data <- data.table (x= c(1,2,3,4,5), y= c(7,6,8,9,10), z= c('a','b','c','d','e'), w=c(01.05, 03.04, 11.08, 05.07, 09.18))
我需要创建一个包含如下所述值的新列:每当x=3或5，或y= 7，然后创建一个名为M的新列，并将相应行中的值从w插入到M列，并将其他行保留为空。然后，数据应该如下所示：
data <- data.table (x= c(1,2,3,4,5), y=
浏览 3提问于2022-12-02得票数 0
我在为大型数据帧创建子集时遇到了问题。我需要提取与其中一列中两个正确城市之一匹配的所有行，但是我创建的任何子集最终都是空的。给定主要数据帧，我尝试：
New = data[data$Home.port %in% c("ARDGLASS","NEWLYN")]
但是，R返回“选定的未定义列”
浏览 0提问于2020-03-11得票数 0
在下面的示例中，我通过引用将一个新变量(l_100km)添加到data.table中，然后创建一个绘图。当我将我的RMarkdown文件编织到HTML时，我只想看到代码和情节。然而，data.table也被打印到HTML中。
虽然我可以通过使用<-操作符创建一个新的data.table来避免这种行为，但这将忽略data.table的特殊优势。还有别的办法解决这个问题吗？
---
output: html_document
---
```{r}
图书馆(data.table)
myDT <- data.table(mtcars)
myDT，log.mpg:=log(mpg) #这一行
浏览 2提问于2016-10-24得票数 0
回答已采纳
我想计算每一个条件下的每一个SACCADIC_RT (每5个连续的HITS=1，每个ID )中的每一个ID的平均值。
ID | TRIAL | TRIAL_TYPE| CONDITION | COMMISSION_ERROR | HITS| SACCADIC_RT
1 183 nogo square_1 1 -1 175
1 54 go square_1 -1 1 259
1 26 nogo squ
浏览 2提问于2017-03-31得票数 0
回答已采纳
2回答
我有一个大的数据框架(600万行，20列)，其中一列中的数据与另一列中的数据相对应。我创建了一个键，现在我希望使用它来修复具有错误值的行。作为一个小例子：
key = data.frame(animal = c('dog', 'cat', 'bird'),
sound = c('bark', 'meow', 'chirp'))
数据框架如下(减去其他列的数据)：
df = data.frame(id = c(1, 2, 3, 4),
浏览 6提问于2022-04-06得票数 1
回答已采纳
例如：df有2列名为c(“今天”，"Expiration")。我想要一个新的领域作为“工作日”。但当我这样写的时候我失败了：
Today <- seq.Date(as.Date("2015-10-01"), as.Date("2015-10-11"), by = "days")
Expiration <- seq.Date(as.Date("2015-10-20"), as.Date("2015-10-30"), by = "day")
df <- data.fr
浏览 0提问于2015-10-29得票数 1
回答已采纳
这可能是一个基本的问题，所以事先道歉。我有一个包含以下列的数据库
Name Subject Marks Check
Mark English 45 P
Susan English 23 F
Gerald Math 33 P
如果选中== 'F‘，我想在'Marks’列中添加10。有很多这样的行，所以我不想应用for循环
浏览 2提问于2020-09-27得票数 1
回答已采纳
我有一个巨大的数据集，我想在其中找到基于3个条件的生存概率。下表列出了这些概率。 library(PASWR2)
tab = with(TITANIC3, ftable(fare = fare > 200, pclass, sex, survived)) %>% prop.table(1) %>% round(3) * 100
tab 有没有一种简单的方法可以将tab表中的概率作为新列添加到TITANIC3数据集中？ 谢谢!
浏览 19提问于2020-11-04得票数 1
回答已采纳
我有一个数据框架(又名df)，当列满足特定条件时，我希望将列价格乘以，例如
df$US=='non‘。
这是我的代码：
df$Price <- df$Price[df$US=='non US']*0.85
运行上述代码将导致以下错误：
Error in `$<-.data.frame`(`*tip*`, CompPrice, value = c(140, 114.117647058824, :
replacement has 142 rows, data has 400
我理解错误发生的原因，但是，我不知道如何仅仅修改符合条件的行。
提前谢谢。
浏览 1提问于2020-10-03得票数 2
回答已采纳
2回答
基于字符串向量的数据设置
、、、
我有一个很大的数据集，叫做遗传学，我需要把它分解。有4列，第一列是有时重复的patientID，以及描述病人的3列。
如前所述，一些患者I是重复的，我想知道哪些I，而不丢失其余的列。
dedupedGenID<- unique(Genetics$ID)只会给出唯一的ID，没有列。
为了通过那些唯一的I对df进行子集，我做了
dedupedGenFull <- Genetics[str_detect(Genetics$patientID, pattern=dedupedGenID,]
这给了我一个错误：“更长的对象长度不是较短对象长度的倍数”，并且dedupedGenFull只有55
浏览 6提问于2020-01-16得票数 0
回答已采纳
2回答
我想创建一个新列，统计特定列满足的条件数。
例如，使用mtcars时，条件可能如下："disp" > 150, "hp < 100", "wt" > 2.65
看看最上面的三行-马自达Wag，马自达RX4 Wag，Datsun710-新的列mtcars$metcri应该分别是1，2和1。
我已经阅读了许多其他文章，主要集中在子集、或使用。我确实看到一些东西正在重新使用，但这并不起作用，新专栏的结果是52。为了防止我遗漏了什么，下面是代码：
mtcars$metcri <- sum(if_else(mtcars$disp &
浏览 0提问于2019-10-04得票数 1
1回答
我刚来R，不知道有没有人能帮上忙？我有200+列和一个加权列，因此我需要将每一列乘以其关联的权重，以创建新的加权列，这样我就可以进一步分析data.Each列具有多个级别，因此我的性别为2(例如，男性，女性)。如何遍历所有列以创建新变量，就像我在下面为一列所做的那样？ DF[,gender_w:=gender*weight/gender]
DF[,lapply(.SD,sum, na.rm=T),by= gender, .SDcols=c(all_weighted_column_names)] 提前感谢您的建议。 编辑-更多信息 DF <- (Gender = c(
浏览 28提问于2020-08-13得票数 0
我正在试着用dplyr::arrange订购一个数据帧。问题是，我尝试排序的列既包含固定字符串，又包含数字，例如，由下面的dummycode生成。
dummydf<-data.frame(values=rnorm(100),sortcol=paste0("ABC",sample(1:100,100,replace=FALSE)))
默认情况下，使用dummydf %>% arrange(sortcol)将生成按字母数字(?)排序的df。但这当然不是预期的结果：
values sortcol
0.708081720 ABC1
0.041348322 AB
浏览 2提问于2015-09-03得票数 8
Im使用的是data.table版本1.9.4。我有以下R脚本：
library(data.table)
asTimeStamp = function(strangeDateString) {
# dates of the form YYYY-MM-DD HH:MM:SS.xxxxxx
# i.e. for example
# 2015-02-26 23:56:13.023467
formatString = "%Y-%m-%d %H:%M:%OS"
return(strptime(strangeDateString, formatString))
}
浏览 0提问于2015-06-18得票数 1
这是我为说明我的问题而创建的简化数据集。
大家好，我正在尝试引用dataframe Database中的一个列。我的目标是能够引用(比方说) Weight列，并从中填充Risk和Overweight列。下面是我正在尝试的(以及其他失败的代码)：
ifelse(Database[,"Weight"] >190, Database$Risk="HIGH", Database$Risk="LOW")
Error: unexpected '=' in "ifelse(Database[,"Weight&#
浏览 5提问于2016-12-19得票数 0
回答已采纳
1回答
我有一个包含90000多个观察值和1201个变量的数据表。除了最后一列以外的所有列都存储数值，最后一列是源文件的名称(超过100)的列。下面是数据表的一个小示例： library(data.table)
DT <- data.table(V1=sample(0:100,20,replace=TRUE),
V2=sample(0:100,20,replace=TRUE), V3=sample(0:100,20,replace=TRUE),
V4=sample(0:100,20,replace=TRUE), V5=sample(0:100,20,replace=TRUE),
V6=s
浏览 6提问于2019-06-12得票数 1
回答已采纳
在data.table中，我们可以根据行号或条件选择行：
> x <- data.table(letters[1:4], 1:4)
> x
V1 V2
1: a 1
2: b 2
3: c 3
4: d 4
> x[2]
V1 V2
1: b 2
> x[V1 == "d"]
V1 V2
1: d 4
但是，我不能同时选择行号和条件：
> x[!2 & V2 > 1]
Empty data.table (0 rows) of 2 cols: V1,V2
这可能是因为!2在这种格式中没有被
浏览 8提问于2016-09-10得票数 3
回答已采纳
我试图在列表中的所有data.tables中添加一个新列。列表中的所有data.tables都具有相同的结构。
reprex:让我们简单地列出两个可数据的ldt
library(data.table)
dt1 <- data.table(x=1:3,y=(1:3)^2)
dt2 <- data.table(x=5:7,y=(1:3)^2)
ldt <- list(d1=dt1,d2=dt2)
现在，假设我想在两个数据表中添加一个新的列z，其中的值存储在字符向量中：
new_col <- c("DOC1","DOC2")
所以我想把DOC1
浏览 0提问于2018-04-18得票数 2
回答已采纳
我有2列dataframe，如下所示。"Publication.Date“列的格式为"%d.%m.%Y”。是否在"Publication.Date“中创建一个格式为"%Y”的新的“年份”列？
head(x,10)
Publication.Date n
1 1979-09-05 1
2 1979-09-19 1
3 1980-03-19 1
4 1980-10-01 1
5 1980-12-10 1
6 1981-01-07 1
7 1981-04-02 1
8
浏览 3提问于2015-10-25得票数 2
回答已采纳
嗨，我想创建一个新的列，它的答案是基于我现有DT中的另一列。我想使用数据表参数中的函数来最大限度地提高效率。
smoked <- matrix(c("A","A","A","B","B","B","A","B","A"),ncol=3,byrow=TRUE)
colnames(smoked) <- c("Type","Name","cusip")
rownames(smoked) <-
浏览 3提问于2020-05-29得票数 0
回答已采纳
我想用一些嵌套的data.table语句在ifelse()中创建一个新列:我在最后包含了一个带有stop()的控件，这个控件永远不应该到达。在我的例子中，无论是condition_a还是condition_b，都必须是"Y"。永远不应该到达stop()，但它确实如此。有人能给我解释一下吗？
示例代码：
library(data.table)
condition_a <- c("Y", "Y", "Y", "Y", "Y", "Y")
condition_b <- c(&
浏览 1提问于2022-10-29得票数 1
回答已采纳
1回答
我希望将函数应用于数据框架，然后将该函数的结果存储在数据框架中的一个新列中。
下面是我的数据框架tradeData的一个示例：
Login AL Diff
a 1 0
a 1 0
a 1 0
a 0 1
a 0 0
a 0 0
a 0 0
a 1 -1
a 1 0
a 0 1
a 1 -1
a 1 0
a 0 1
b 1 0
b 0 1
b
浏览 3提问于2015-01-28得票数 2
回答已采纳
我已经读过好几次了，但我仍然无法思考如何做一些操作；更普遍地说，我还没有理解关于如何使用变量名称的基本“哲学”。考虑一下这个示例问题：
我有一个包含变量'a‘、'b’、'c‘、’d‘的数据表：
> dt <- data.table(a=c(1,1,2), b=1:3, c=11:13, d=21:23)
> dt
a b c d
1: 1 1 11 21
2: 1 2 12 22
3: 2 3 13 23
假设我的脚本交互地要求用户输入一个列名和相应的值，用于选择行。这两个变量存储在rowselectname和rowselectvalue中。
浏览 7提问于2021-12-11得票数 2
我测量了细菌对病毒的抑制力。我有n行(个体)和4列(a，b，c，x)的数据矩阵。根据第x栏的不同，我想将它们定义为好的抑制者或坏的抑制者。然而，我不确定如何根据其他测量的列(a，b，c)来设置列x的treshold。有没有R函数可以对我的数据帧进行分隔/分组？
浏览 0提问于2019-09-27得票数 0
2回答
我必须删除我的数据帧中的列，该数据帧有超过4000列和180个rows.The。我希望设置以下条件来删除数据帧中的列：(i)如果该列中的值/条目少于两个，则删除该列；(ii)如果该列中没有两个连续的(一个接一个)值，则删除该列。(iii)删除所有值均为NA的列。我已经提供了删除列的条件。这里的目的不仅仅是按照列的名称查找列，就像“如何在data.table中删除列？”那样。我的说明如下：
A B C D E
0.018 NA NA NA NA
0.017 NA NA NA NA
0.019 NA NA NA NA
0.018 0.034
浏览 1提问于2016-01-20得票数 6
回答已采纳
我有一个由两列组成的数据集:一列由名称列表组成，另一列标识对应名称所属的组(示例数据和下面用于复制示例数据的代码)。
group name
1 aaa
1 aaa
1 aaa
2 NA
2 NA
3 NA
3 bbb
4 ccc
4 ccc
5 ddd
5 eee
6 fff
6 ffg
> x <- c(1, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6)
> y <- c("aaa", "aaa", "aaa", NA, NA, NA,
浏览 2提问于2015-05-03得票数 4
回答已采纳
1回答
我正试图在dataset中创建一个新列。我希望这一栏是“是”或“否”栏。假设我有一个有1000行的数据集，包括一个唯一的ID，另一个数据集有包含一个唯一ID的200行数据集。
我想要基于搜索条件在较大的数据集中创建一个列，我希望在较大的数据集中搜索唯一的ID，而新列将对小数据集中的唯一ID列中也属于唯一ID的任何唯一ID说“是”。基本上，如果在小数据集中和大数据集中找到ID，它就会说是，如果不是，则不会。
示例：
这就是我想要的。除了在我的例子中，这2列将在不同的数据集中。
我试过在R甚至Excel中这样做。我尝试通过ID列合并这两个数据集，但这并没有得到我想要的结果，如果在这两个数据集中都
浏览 1提问于2022-03-23得票数 1
我正在尝试在我自己的包中使用data.table包。MWE如下：
我创建了一个函数test.fun，该函数只创建一个小的data.table对象，然后按"A“列对"Val”列分组求和。代码是
test.fun<-function ()
{
library(data.table)
testdata<-data.table(A=rep(seq(1,5), 5), Val=rnorm(25))
setkey(testdata, A)
res<-testdata[,{list(Ct=length(Val),Total=sum(Val),
浏览 1提问于2012-05-10得票数 79
回答已采纳
我试图找到一种方法，以求矩阵中列的极小值依赖于另一列中的值。假设我的矩阵看起来是这样的：
A B
3 1.2
3 3.4
3 0.7
4 4.5
4 4.9
5 0.1
5 0.4
6 5
我希望为每一列找到B的“局部最大值”，它们在A中有相同的数字。
所以，我想得到一个新的变量C，它看起来是：
A B C
3 1.2 0.7
3 3.4 0.7
3 0.7 0.7
4 4.5 4.5
4 4.9 4.5
5 0.1 0.1
5 0.4 0.1
6 5
浏览 8提问于2014-07-29得票数 2
回答已采纳
我有一个数据集，其中我想比较两列。对于这些列不匹配的每一行，我希望捕获另一个值的对应行值，并将其写入另一个数据帧中。
输入数据
data <- structure(list(A = 1:7, B = c(1L, 2L, 1L, 1L, 1L, 9L, 9L), C = c(1L,
3L, 2L, 1L, 6L, 8L, 1L)), class = "data.frame", row.names = c(NA,
-7L))
预期输出
A
1 2
2 3
3 5
4 6
5 7
目前，我正在使用以下代码，但当B和C列的值与输入数据中的值匹配时，这会导致空行。我想保留A
浏览 1提问于2019-04-09得票数 1
回答已采纳
1回答
以下是数据：
a <- c(1,1,2,2,3)
b <- c(1,3,5,9,4)
df1 <- data.frame(a,b)
df1
a b
1 1
1 3
2 5
2 9
3 4
我想要这样的东西：
a b max
1 1 3
1 3 3
2 5 9
2 9 9
3 4 4
我的问题是:如何用"b“列中值的"a”列来计算"max“列的分组？
我用聚合函数做了一些研究，但仍然找不到解决办法。
请帮帮忙
浏览 1提问于2016-02-25得票数 1
回答已采纳
4回答
我想根据x和y的值创建一个新的列y。如果是x>y，z=y则是z=x。
x y
3 4
5 2
6 6
1 7
9 4
所需产出：
x y z
3 4 3
5 2 2
6 6 6
1 7 1
9 4 4
浏览 7提问于2020-05-30得票数 0
回答已采纳
下面是示例:数据和错误解决方案：
df <- data.frame(id=c(1,1,2,2,2,3,4,5,5), val=c(NA,1.5,1,NA,NA,5,NA,2,NA), rep=1:9)
从另一列替换上一次给定NA的id。以下是我尝试过的(除其他外)：
funrep <- function(x) { is.na(tail(x, 1)) }
df$val[as.logical(with(df, ave(val, id, FUN=funrep)))] <- df$rep[as.logical(with(df, ave(val, id, FUN=funrep)))]
浏览 0提问于2016-01-11得票数 1
回答已采纳
我有一个data.table，如下所示
> temp = data.table(A = runif(10), B = runif(10), C = runif(10))
> temp
A B C
1: 0.9780187 0.3706999 0.38986569
2: 0.3614894 0.4578619 0.47973024
3: 0.1974928 0.2198876 0.79985610
4: 0.2509917 0.7791180 0.13150595
5: 0.5975064 0.1469739 0.7
浏览 1提问于2019-01-09得票数 1
回答已采纳
我想以这样一种方式绑定一个data.table和一个向量，即向量内容成为data.table的新列，值为0。 DT <- data.table(x=c("A", "B", "C", "D", "E", "F"), y = rnorm(6))
DT2 <- c("paper11grid1", "paper12grid1", "paper13grid1") 我想要将DT2的内容更新为DT的新名称 x y pape
浏览 13提问于2019-06-19得票数 2
回答已采纳
以前可能有人问过这个问题，我在上找过了，但我似乎找不到答案。所以我也建议修改我的标题，所以如果有人发布了一个答案的链接，我会很好的！
我在下面有一个MWE。我尝试按每个月的日期按列val进行分组。据我所知，在下面代码中的场景1中，由于我没有通过:=将lapply的值赋给任何新列，因此将打印data.table。
但是，在场景2中，当我使用:=通过引用分配新的列变量时，会创建新的列(使用正确的值)，但在一天中的每个小时都会重复该值，而我只需要每天的值。
场景3也提供了所需的结果，但需要创建一个新的data.table。
我也不会想到set，因为value是按行迭代的，而我需要对某些列进行分组。
浏览 1提问于2018-11-06得票数 0
1回答
在R中计算移动和
、、
我想要在R中的数据表dt中找到变量的游程总和，并希望返回此游程总和大于或等于该组的另一列中提到的阈值的月份。
library(data.table)
dt <- data.table(pno = c("A","A","A","A","A","A","A","B","B", "B", "C", "C" ),
month = c("Jan","
浏览 1提问于2018-01-17得票数 0
我有一个具有不同列类型的data.table。
我不知道前面的列名，我只想为某些类型的列(比如数字)生成聚合。如何用data.table实现这一点？
例如，考虑以下代码：
dt <- data.table(ch=c('a','b','c'),num1=c(1,3,6), num2=1:9)
需要创建一个函数，该函数接受上述data.table，并自动对按字符字段分组的数字字段执行计算(例如num1上的sum和num2上的平均值，by ch)。如何动态地实现这一点？
我们可以使用sapply(dt, is.numeric)查找数值列，但它将列
浏览 4提问于2014-03-21得票数 0
回答已采纳
2回答
我有一个数据帧的列表，例如：
listOfDataFrames <- vector("list", 10)
for (i in 1:10) {
listOfDataFrames[[i]] <- data.frame(a=rnorm(50), b=rnorm(50))
}
我想要制作一个包含3列(a，b，c)的数据表，其中a和b是上面数据帧的列，c是listOfDataframes中数据帧的索引。
浏览 4提问于2015-01-25得票数 2
回答已采纳
我有一个包含多个个体(Cow_ID)的数据集，它们的日温差如下所示：
df<-data.frame("Cow_ID"=c("192","192","192","192","201","201","201","201","652","652","652","652"),"Day"=c("1","2","3","4&
浏览 2提问于2022-07-07得票数 2
回答已采纳
我了解如何使用.SD对多列执行操作；只是不知道如何将这些新值分配给数据表中的新变量(而不是覆盖输入变量)。
在本例中，我创建了三个以字符串"newvars“结尾的新var。我要把这些新的vars合并回数据表。是否可以在不合并的情况下创建新的vars？
mtcars <- data.table( mtcars )
newvars <- mtcars[ , lapply( .SD , function( Z ) Z * mtcars[[ "wt" ]]) , .SDcols= c("hp","drat","gear&
浏览 2提问于2018-05-11得票数 2
回答已采纳
我正在使用一个data.table，它是从.txt文件中读取的fread文件。data.table包含一定数量的integer列以及一列非常大的整数，我打算将其存储为bigz。但是，如果我计划保留所有的数字，fread只会以character的形式读取大整数(而且我会这样做)。
#Something to the effect of (run not needed):
#fread(file = FILENAME.txt, header=TRUE, colClasses = c(rep("integer", 10), "character"), data.tab
浏览 0提问于2018-10-09得票数 4
3回答
我有如下代码：
newdata <- ddply(data, .(SIC,FYEAR), function(x){if(nrow(x)>7) x else NULL});
在此代码中，该函数应用于被SIC和FYEAR划分的每个数据片段。如何编写允许以编程方式在数据表中创建片段的泛型函数？就像，
newdata <- ddply(data, .(col1,col2,...,coln), function(x){if(nrow(x)>7) x else NULL});
但是在数据表中有一个等价的解决方案，其中n和列的名称都是以编程方式给出的。如果有人能让我知道一个基于数据表
浏览 2提问于2014-03-15得票数 1
回答已采纳
我正试图从data.table快速分组中获益，以填充矩阵(或者从data.table外部做其他事情)。
例如，我有这样一个data.table：
DT = data.table(x_id=rep(c(1,2),c(100,100)),x_value = rnorm(200))
setkey(DT,x_id)
(代表两个不同的时间序列)
我想把同样的信息放在100行2列的矩阵中。我试过了
A = matrix(NA,100,2)
DT[,{A[,.GRP] = x_value},by=x_id]
但不起作用。这给我带来了两个问题：(我在医生那里找不到帮助)
( 1)是否有一种很好的方法(没有循环
浏览 2提问于2014-09-24得票数 0
回答已采纳
我有一个非常大的数据集(1,017,211行)，其中包含以1秒为间隔收集的压力数据。随机的压力峰值将会发生，我需要移除它们。数据(df)将如下所示--一个代表压力、日期和时间的列，以及一个我创建的用来代替秒的索引。我已经从数据中包含了大约50行，所有这些行都需要设置为零。 dput(df[9549:9600,])
structure(list(Pressure = c(0, 10272, 10270, 10270, 10307,
10332, 10336, 10336, 10335, 10335, 10335, 10336, 10333, 10333,
10332, 10330, 1
浏览 25提问于2021-10-04得票数 1
回答已采纳
我有一个数据框架，我正在使用一个小型教育项目。
EVTYPE PROPDMG PROPDMGEXP CROPDMG CROPDMGEXP
192527 URBAN/SMALL STREAM FLOODING 0.0 5 0
192938 HEAVY SNOW 1.7 5 0
193995 HAIL 30.0 5
浏览 10提问于2014-09-20得票数 0
3回答
如果运行以下简单示例，就会得到预期的输出：
library(dplyr)
library(dtplyr)
library(data.table)
dt1 <- lazy_dt(data.table(a = 1:5, b = 6:10))
dt2 <- lazy_dt(data.table(a = letters[1:5], b = 6:10))
dt1 %>%
left_join(
dt2,
by = "b"
) %>%
as.data.table()
> b a.x a.y
> 1: 6 1
浏览 1提问于2019-11-19得票数 2
回答已采纳
这是"R: For()循环检查日期是否在单独对象中的两个日期之间“的重述，在Henrik和Metrics的建议之后，这个循环被更改为包含了一个模拟/测试最小值。多亏了他们。
我有两个大型数据集，它们都包含日期/时间字段的列。我的第一个数据集有一个日期，第二个数据集有两个日期。简而言之，我试图从第一个数据集中找到第二个数据集的其他两个日期之间的所有日期，然后找到一个平均值。为了提供清晰性，我使用值而不是日期创建了一个模拟最小数据集。
我的第一个模拟数据集的head()和dput()输出都在下面。数据是特定于IndID列所指出的个人的。
IndID MockDate RandNumbe
浏览 2提问于2013-09-17得票数 2
回答已采纳
在根据某些条件将字符变量转换为数字变量时，我遇到了R data.table的问题：
library(data.table)
DT1 <- data.table(a = "A", b = "B")
DT2 <- data.table(a = "A", b = "B")
DT1[a == "A", b := ifelse(b == "B", 1, 0)] #option 1: incorrect behavior
DT2[, b := ifelse(b == "
浏览 0提问于2019-08-02得票数 3
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
