- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我编写了一个函数,用于对特定列的求和值使用聚合,并计算该列的行数,按相邻列的值分类列(在本例中为 6-12 之间的数字)。 Sum & Count 的列称为Count。分解所依据的列称为 CharLen。
然后将两个小的 dfs 放在一个列表中
# Test df1
{
Seq1 <- as.character(rep(c("AAA", "BBB", "CCC"),times = 4))
Count1 <- rep(c(12,56,3),times = 4)
CharLen1 <- c(6,6,6,7,7,7,9,11,12,8,10,9)
Testdf1 <- data.frame(Seq1, Count1, CharLen1); colnames(Testdf1) <- c("Seq", "Count", "CharLen")
rm(Seq1)
rm(Count1)
rm(CharLen1)
}
# Test df2
{
Seq2 <- as.character(c("DDD", "EEE", "FFF", "AAA", "BBB", "GGG", "AAA", "BBB", "CCC", "AAA", "BBB", "CCC"))
Count2 <- rep(c(7,3,15),times = 4)
CharLen2 <- c(8,6,8,7,12,12,12,11,12,8,10,9)
Testdf2 <- data.frame(Seq2, Count2, CharLen2); colnames(Testdf2) <- c("Seq", "Count", "CharLen")
rm(Seq2)
rm(Count2)
rm(CharLen2)
}
# List these dataframes together
List_of_dfs <- lapply(ls(pattern="Testdf[0-9]+"), function(x) get(x))
我将其写入一个函数,目的是向它传递一个包含大量大型且行长不同的数据帧的列表。(数据框始终具有相同的列号、名称和值类型)“List_of_dfs”
函数
SumCountFunction <- function(i) {
aggregate(Count ~ CharLen, data=i, FUN = function(x) c(Sum=sum(x),
Count=length(x)))
}
将该函数应用于 dfs 列表
SummayCountOut <- lapply(List_of_dfs, SumCountFunction)
完成后,我将其提取到一个 Summary Df 中
SummaryDf <- do.call("rbind", SummayCountOut)
然后在原始List_of_dfs中添加一个对应于原始dataframe位置的数字ID
SummaryDf[["SampleNumber"]] <- rep(seq_along(SummayCountOut), sapply(SummayCountOut, nrow))
我的问题和困惑是这样的:
据我所知,这是因为对象仅在调用函数时驻留?我尝试使用在另一个 SO 线程中找到的“return”,但这并没有保留新列,我发现的唯一另一件事是“<<-”,这里的其他人已经说过它本质上是邪恶的。
最初我使用 group_by 和 summary 函数在 dplyr 中进行管道传输。我无法将 dplyr 代码放入函数中(我认为是由于 NSE 还是惰性评估?),因此希望改用 base R。
最佳答案
基本上,您的 SumCountFunction 会生成一个包含两列的嵌入矩阵,而不是平面数据框。您可以通过 str()
调用看到这一点,其中 Count 是一个 14 行 2 列的矩阵:
str(SummaryDf)
# 'data.frame': 14 obs. of 2 variables:
# $ CharLen: num 6 7 8 9 10 11 12 6 7 8 ...
# $ Count : num [1:14, 1:2] 71 71 12 15 56 56 3 3 7 29 ...
# ..- attr(*, "dimnames")=List of 2
# .. ..$ : NULL
# .. ..$ : chr "Sum" "SCount"'data.frame': 14 obs. of 2 variables:
挑战是 aggregate()
一次运行一个分组聚合。使用 c()
时,您将两个聚合一起转换为一个矩阵。
考虑合并两个或两个以上的单独聚合调用,然后重命名列以避免 Count(原始数据帧列)重复。
# TWO-DF MERGE
SumCountFunction <- function(i) {
merge(aggregate(Count ~ CharLen, data=i, FUN = sum),
aggregate(Count ~ CharLen, data=i, FUN = length),
by = "CharLen")
}
# CHAIN MERGE (ALTERNATIVE)
SumCountFunction <- function(i) {
dfs <- lapply(c('sum', 'length'), function(f) aggregate(Count ~ CharLen, data=i, FUN = f))
Reduce(function(x, y) merge(x, y, by = "CharLen"), dfs)
}
SummaryDf <- setNames(do.call("rbind", SummayCountOut),
c("CharLen", "Count.Count", "Count.Sum"))
str(SummaryDf)
# 'data.frame': 14 obs. of 3 variables:
# $ CharLen : num 6 7 8 9 10 11 12 6 7 8 ...
# $ Count.Count: num 71 71 12 15 56 56 3 3 7 29 ...
# $ Count.Sum : int 3 3 1 2 1 1 1 1 1 3 ...
关于r - 自定义函数后,在 R 控制台中调用对象会产生所需的结果,而 "View"来自环境的对象不会,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49016510/
我的一位教授给了我们一些考试练习题,其中一个问题类似于下面(伪代码): a.setColor(blue); b.setColor(red); a = b; b.setColor(purple); b
我似乎经常使用这个测试 if( object && object !== "null" && object !== "undefined" ){ doSomething(); } 在对象上,我
C# Object/object 是值类型还是引用类型? 我检查过它们可以保留引用,但是这个引用不能用于更改对象。 using System; class MyClass { public s
我在通过 AJAX 发送 json 时遇到问题。 var data = [{"name": "Will", "surname": "Smith", "age": "40"},{"name": "Wil
当我尝试访问我的 View 中的对象 {{result}} 时(我从 Express js 服务器发送该对象),它只显示 [object][object]有谁知道如何获取 JSON 格式的值吗? 这是
我有不同类型的数据(可能是字符串、整数......)。这是一个简单的例子: public static void main(String[] args) { before("one"); }
嗨,我是 json 和 javascript 的新手。 我在这个网站找到了使用json数据作为表格的方法。 我很好奇为什么当我尝试使用 json 数据作为表时,我得到 [Object,Object]
已关闭。此问题需要 debugging details 。目前不接受答案。 编辑问题以包含 desired behavior, a specific problem or error, and the
我听别人说 null == object 比 object == null check 例如: void m1(Object obj ) { if(null == obj) // Is thi
Match 对象 提供了对正则表达式匹配的只读属性的访问。 说明 Match 对象只能通过 RegExp 对象的 Execute 方法来创建,该方法实际上返回了 Match 对象的集合。所有的
Class 对象 使用 Class 语句创建的对象。提供了对类的各种事件的访问。 说明 不允许显式地将一个变量声明为 Class 类型。在 VBScript 的上下文中,“类对象”一词指的是用
Folder 对象 提供对文件夹所有属性的访问。 说明 以下代码举例说明如何获得 Folder 对象并查看它的属性: Function ShowDateCreated(f
File 对象 提供对文件的所有属性的访问。 说明 以下代码举例说明如何获得一个 File 对象并查看它的属性: Function ShowDateCreated(fil
Drive 对象 提供对磁盘驱动器或网络共享的属性的访问。 说明 以下代码举例说明如何使用 Drive 对象访问驱动器的属性: Function ShowFreeSpac
FileSystemObject 对象 提供对计算机文件系统的访问。 说明 以下代码举例说明如何使用 FileSystemObject 对象返回一个 TextStream 对象,此对象可以被读
我是 javascript OOP 的新手,我认为这是一个相对基本的问题,但我无法通过搜索网络找到任何帮助。我是否遗漏了什么,或者我只是以错误的方式解决了这个问题? 这是我的示例代码: functio
我可以很容易地创造出很多不同的对象。例如像这样: var myObject = { myFunction: function () { return ""; } };
function Person(fname, lname) { this.fname = fname, this.lname = lname, this.getName = function()
任何人都可以向我解释为什么下面的代码给出 (object, Object) 吗? (console.log(dope) 给出了它应该的内容,但在 JSON.stringify 和 JSON.parse
我正在尝试完成散点图 exercise来自免费代码营。然而,我现在只自己学习了 d3 几个小时,在遵循 lynda.com 的教程后,我一直在尝试确定如何在工具提示中显示特定数据。 This code
我是一名优秀的程序员,十分优秀!