- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
以下是我正在使用的数据“类型/结构”类型,它包括 3 个因子变量。
library(data.table)
library(ggplot2)
DT <- data.table(mtcars)
DT[["cyl"]] <- factor(DT[["cyl"]])
DT[["gear"]] <- factor(DT[["gear"]])
DT[["vs"]] <- factor(DT[["vs"]])
DT <- DT[, c("cyl", "gear", "vs"), with=F]
setkey(DT, cyl, gear, vs)
上下文我一直在使用此函数与 data.table
交互地聚合数据,并且工作得很好。问题是当我尝试将它包含在另一个函数中时。我没有太多编程经验,因此任何指导将不胜感激。我想这与环境以及参数如何传递有关,但我真的不知道如何解决它。
grp <- function(x) {
percentage = as.numeric(table(x)/length(x))
list(x = levels(x),
percentage = percentage,
label = paste( round( as.numeric(table(x)/length(x), 0 ) * 100 ), "%")
)
}
这将是预期的输出:
DT_agg <- DT[, grp(cyl), by=vs]
问题第二个函数的想法是获取一个 data.frame/data.table 对象,应用前一个函数,包括使用一个或两个分组变量的选项。最终的想法是将最后一个对象包含在 ggplot() 调用中,并使用分组变量作为构面,从 ggplot() 调用中调用 agg() 函数。
agg <- function(data, x, groupby1, groupby2 = NULL,...){
data = substitute(data)
x = substitute(x)
groupby1 = substitute(groupby1)
groupby2 = substitute(groupby2)
if(is.null(groupby2)){
DT_agg = data[, grp(x), by=groupby1]
} else {
DT_agg = data[, grp(x), by=groupby1,groupby2]
}
DT_agg
}
agg(data = DT, x = cyl, groupby1 = vs)
Error in unique.default(x, nmax = nmax) :
unique() applies only to vectors
agg <- function(data, x, groupby1, groupby2 = NULL,...){
data = eval(substitute(data))
x = substitute(data$x) # changed this bit (it was producing an error)
groupby1 = substitute(groupby1)
groupby2 = substitute(groupby2)
if(is.null(eval(substitute(groupby2)))) {
eval(data)[, grp(eval(x)), by=groupby1]
} else {
eval(data)[, grp(eval(x)), by=list(eval((groupby1)),eval(groupby2))]
}
}
由于某种原因,答案中提供的解决方案对我不起作用。Agstudy 的 agg()
提供了答案,它运行但输出不运行。我尝试了一些更改,但效果不佳。
使用上面定义的 grp() 函数,我得到了正确的结果:
ok = DT[, grp(cyl), by = vs]
print(ok)
# vs x percentage label
# 1: 1 4 0.71428571 71%
# 2: 1 6 0.28571429 29%
# 3: 1 8 0.00000000 0%
# 4: 0 4 0.05555556 6%
# 5: 0 6 0.16666667 17%
# 6: 0 8 0.77777778 78%
使用 agstudy 版本的 agg()
我发现这是不正确的:
not_ok = agg(DT, cyl, vs)
print(not_ok)
# groupby1 x percentage label
# 1: 1 4 0.34375 34%
# 2: 1 6 0.21875 22%
# 3: 1 8 0.43750 44%
# 4: 0 4 0.34375 34%
# 5: 0 6 0.21875 22%
# 6: 0 8 0.43750 44%
我想知道该函数如何在其自身(第一种情况)而不是在 agg 函数内部正确工作。
最佳答案
问得好!特别适合那些没有太多编程经验的人。
使用eval
并简化您的函数(无需分配data.table):
agg <- function(data, x, groupby1, groupby2 = NULL,...){
data = substitute(data)
x = substitute(x)
groupby1 = substitute(groupby1)
groupby2 = substitute(groupby2)
if(is.null(groupby2)) eval(data)[, grp(eval(x)), by=groupby1]
else eval(data)[, grp(eval(x)),
by=list(eval((groupby1)),eval(groupby2))]
}
测试它:
agg(data = DT, x = cyl, groupby1 = vs,groupby2 = gear )
## groupby1 groupby2 x percentage label
## 1: 1 3 4 0.3333 33 %
## 2: 1 3 6 0.6667 67 %
## 3: 1 3 8 0.0000 0 %
## 4: 1 4 4 0.8000 80 %
## 5: 1 4 6 0.2000 20 %
## 6: 1 4 8 0.0000 0 %
## 7: 0 5 4 0.2500 25 %
## 8: 0 5 6 0.2500 25 %
## 9: 0 5 8 0.5000 50 %
## 10: 1 5 4 1.0000 100 %
## 11: 1 5 6 0.0000 0 %
## 12: 1 5 8 0.0000 0 %
## 13: 0 4 4 0.0000 0 %
## 14: 0 4 6 1.0000 100 %
## 15: 0 4 8 0.0000 0 %
## 16: 0 3 4 0.0000 0 %
## 17: 0 3 6 0.0000 0 %
## 18: 0 3 8 1.0000 100 %
关于R:使用 data.table 组合两个函数来聚合数据,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/20914362/
我有一个 Cassandra 集群,里面有 4 个表和数据。 我想使用聚合函数(sum,max ...)发出请求,但我在这里读到这是不可能的: http://www.datastax.com/docu
我有以下两张表 Table: items ID | TITLE 249 | One 250 | Two 251 | Three 我投票给这些: Table: votes VID | IID | u
这个问题在这里已经有了答案: Update MongoDB field using value of another field (12 个答案) 关闭 3 年前。 我想根据另一个“源”集合的文档中
我的收藏包含以下文件。我想使用聚合来计算里面有多少客户,但我遇到了一些问题。我可以获得总行数,但不能获得总(唯一)客户。 [{ _id: "n001", channel: "Kalip
我有下表 Id Letter 1001 A 1001 H 1001 H 1001 H 1001 B 1001 H 1001 H 1001
得到一列的表 ABC。 “创建”的日期列。所以样本值就像; created 2009-06-18 13:56:00 2009-06-18 12:56:00 2009-06-17 14:02:0
我有一个带有数组字段的集合: {[ name:String buyPrice:Int sellPrice:Int ]} 我试图找到最低和最高买入/卖出价格。在某些条目中,买入或卖出价格为零
我有以下问题: 在我的 mongo db 中,我有以下结构: { "instanceId": "12", "eventId": "0-1b", "activityType":
下面给出的是我要在其上触发聚合查询的 Elasticsearch 文档。 { "id": 1, "attributes": [ { "fieldId": 1,
我正在使用 Django 的 aggregate query expression总计一些值。最终值是一个除法表达式,有时可能以零作为分母。如果是这种情况,我需要一种方法来逃避,以便它只返回 0。 我
我正在学习核心数据,特别是聚合。 当前我想要做的事情:计算表中在某些条件上具有逆关系的多对关系的记录数。 目前我正在这样做: NSExpression *ex = [NSExpression expr
我需要有关 Delphi 中的 ClientDatasets 的一些帮助。 我想要实现的是一个显示客户的网格,其中一列显示每个客户的订单数量。我将 ClientDataset 放在表单上并从 Delp
我的集合有 10M 个文档,并且有一个名为 movieId 的字段;该文档具有以下结构: { "_id" : ObjectId("589bed43e3d78e89bfd9b779"), "us
这个问题已经有答案了: What is the difference between association, aggregation and composition? (21 个回答) 已关闭 9
我在 elasticsearch 中有一些类似于这些示例的文档: { "id": ">", "list": [ "a", "b", "c" ] } { "id"
我正在做一些聚合。但是结果完全不是我所期望的,似乎它们没有聚合索引中与我的查询匹配的所有文档,在这种情况下 - 它有什么好处? 例如,首先我做这个查询: {"index":"datalayer","t
假设我在 ES 中有这些数据。 | KEY | value | |:-----------|------------:| | A |
可能在我的文档中,我有一个被分析的文本字段。我只是在ElasticSearch AggregationAPI中迷路了。我需要2种不同情况的支持: 情况A)结果是带有计数标记(条款)的篮子下降。 情况B
我正在为网上商店构建多面过滤功能,如下所示: Filter on Brand: [ ] LG (10) [ ] Apple (5) [ ] HTC (3) Filter on OS: [ ] Andr
我有一个父/子关系并且正在搜索 child 。 是否可以在父属性上创建聚合? 例如parent 是 POST,children 是 COMMENT。如果父项具有“类别”属性,是否可以搜索 COMMEN
我是一名优秀的程序员,十分优秀!