首页 文章
  • 0 votes
     answers
     views

    使用来自另一个data.frame的索引应用ifelse

    我想使用嵌套的ifelse()语句有条件地将一个数据框中的值替换为另一个数据框中的值 . 但我无法使用apply将其扩展到整个数据框 . 我想尽可能避免循环和非基础包 . 第一个是带有六个obs的数据框 . 10个字符变量: > snp_test L1 L2 L3 L4 L5 L6 L7 L8 L9 L10 1 1 2 - 0 2 0 0 0 0 2 2 1 ...
  • 1 votes
     answers
     views

    R ffdfdply附加错误

    我想将数据(data.frame)从长格式转换为宽格式,并将“ITEM”的值作为列和值(“ITEM2”)(见下文): Long format Wide format 因此我使用包reshape2中的dcast-function: df <= dcast(df,SEQUENCEID + EVENTID ~ ITEM, value.var="ITEM2") 这样做一切正常 ...
  • 1 votes
     answers
     views

    使用rle和for循环的最长连续时间段高于阈值

    我有四年的流量数据一个月,我试图弄清楚如何在四年中的每一年中提取最长连续时间或超过某个阈值 . 在下面的示例中,阈值为4.我想尝试使用for循环或可能的一个apply函数来完成此操作,但我不确定如何去做 . 这是我的示例数据帧: year <- c(rep(2009,31), rep(2010, 31), rep(2011, 31), rep(2012, 31)) day<-c(rep...
  • 0 votes
     answers
     views

    循环或应用多个回归,将系数和p值提取到数据框中

    我有一个包含3个相关(LHS)变量和4个独立(RHS)变量的数据框 . 我想在每个RHS变量上运行每个LHS变量的线性回归,并将每个回归的结果作为一行存储在数据框中,列为:lhs,rhs,Estimate,Std . 错误,t值,Pr(> | t |) . 例如,使用mtcars,我考虑了一个嵌套循环: lhs <- c('mpg', 'cyl', 'disp') rhs <- ...
  • 0 votes
     answers
     views

    在apply中的函数中使用dplyr :: group_by

    我想在我的数据集中为选择的分组变量生成很好的摘要,其中对于每个组,我将显示前6个频率及其相关比例 . 我可以使用以下语法为单个分组变量获取此信息: my_db %>% group_by(my_var) %>% summarise(n=n()) %>% mutate(pc=scales::percent(n/sum(n))) %>% arrange(desc(n)) ...
  • 0 votes
     answers
     views

    同时在两个data.frames上应用函数

    我正在尝试应用一个函数来计算data.frame的每一行的加权线性模型 . 在一个data.frame中,我有y值要回归,而在另一个data.frame中我有各自的权重 . DF1: structure(list(CHR = c("2L", "2L", "2L", "2L", "2L", &quot...
  • -1 votes
     answers
     views

    R *应用向量作为输入;矩阵作为输出

    为了拥有一个矩阵,我想'd like to apply over each element of a vector, a function that outputs a vector. After applying the function to each element of that vector, I should have many vectors, which I' . 代码应该等同于以...
  • 0 votes
     answers
     views

    在data.table中逐行应用函数;将列名称作为向量传递

    考虑一个函数 foo ,如下所示 . foo <- function(a, b, c) { out <- (sum(a) + sqrt(prod(c))) / sqrt(pi * b) return(out) } 我想将函数应用于 data.table DT ,其中列中的数据作为参数,根据唯一键列 ID 逐行 . DT <- structure(list(ID = ...
  • 2 votes
     answers
     views

    方案环境模型关闭问题

    SICP 3.2引入环境模型来取代替代模型 . 我在学习这部分时做了以下测试: (define a1 1) (define (f1) a1) (f1) ; return 1 (define (f2) (define a1 2) a1) (f2) ; return 2 (define (f3) (define a1 2) (f1)) (f3) ; return 1,not 2 最后一个表达超出了我...
  • 1 votes
     answers
     views

    使用apply函数将选定的列从POSIXct转换为具有特定格式的Date

    偶尔,我会将Microsoft Excel中的数据读入R.在Excel中,日期变量的格式正确(例如2017年12月31日) . 读入R后,相同的日期变量将转换为另一种格式(例如2017-12-31) . 我的数据框样本(在读入R之后)如下所示: df <- structure(list(ID = c("001", "002", "003&qu...
  • 0 votes
     answers
     views

    R ddply dcast替代?

    我想将数据(data.frame)从长格式转换为宽格式,并将“ITEM”的值作为列和值(“ITEM2”)(见下文): 长格式: 宽幅: 因此我使用包reshape2中的dcast函数: df <= dcast(df,SEQUENCEID + EVENTID ~ ITEM, value.var="ITEM2") 这样做一切正常 . 但是在我的数据框中有7m的数据记录,...
  • 0 votes
     answers
     views

    如何将“2D”矢量转换为数据帧/矩阵? [R]

    嗨我将一个函数应用于数据框的每一列,并为每列返回一个列表 . 现在我想将此列表转换为矩阵或数据框 . 已阅读this nice post但仍有一些问题 . df = data.frame(name = c('Tom', 'Mark', 'Jane'), weight = c(150, 140, 110), sex = c('M', 'M', 'F')...
  • 0 votes
     answers
     views

    Cor.test到数据框中的变量子集

    我是R的新手,我正在寻找一种方法将cor.test有选择地应用于数据框中的一组变量 . 我自己制作了一个小脚本来查看,然后从cor(数据帧)结果中选择一组相关性 . 我接下来要做的是对所有这些具有绝对值大于X的系数的结果运行cor.test . 我的剧本 sortedcorlist <- function(mydataframe,method,numtoreport) { vahe...
  • 0 votes
     answers
     views

    使用Apply功能控制

    我被要求执行以下操作:打印 AtmWtAg.wide 的 summary . 使用apply系列中的函数( apply , tapply , lapply , sapply )和相应的R函数来计算一组类似的值(逐列平均值,中值,最小值,最大值和分位数) . 请注意,此格式的每列都是来自单台机器的观察 . AtmWtAf.wide的数据如下所示: 1 2 1 107.86...
  • 0 votes
     answers
     views

    舍入汇总函数导致错误

    尝试使用 rockchalk 包中的 summarize 输出汇总统计信息 . 希望统计数据四舍五入为2位小数 . 在 summarize 上使用 round 时收到错误消息 . library(rockchalk) M1 <- structure(c(0.18, 0.2, 0.24, 0.35, -0.22, -0.17, 0.28, -0.28, -0.14, 0.03, 0.87, -...
  • 0 votes
     answers
     views

    应用函数计算复杂数据帧子集的统计量

    我正在努力学习一些R代码,我确信必须能够使用其中一个应用系列函数编写,但我无法弄清楚如何 . 我有一个数据框列出了我测量的许多网站 . 此数据框具有各种元数据(包括站点名称),以及该站点的汇总统计信息 . 我需要使用元数据中的值选择许多不同的站点组,然后获取原始原始数据(即每个站点的每个观察点)并计算其中的统计信息 . 这些组的选择标准非常复杂,我基本上都在做各种不同子集的各种可能组合,所以我认为...
  • 1 votes
     answers
     views

    如何将字符数据帧转换为相应的日期?

    我注意到已经有几次使用日期不允许使用R中的常用技巧 . 假设我有数据框数据和日期(见下文),我想将完整的数据帧转换为日期类 . 我能想到的唯一解决方案是: for (i in 1:ncol(Data)){ Data[,i] <- as.Date(Data[,i],format="%d %B %Y") } 这为数据框提供了正确的结构: > str(Data)...
  • 14 votes
     answers
     views

    计算行方式比例

    我有一个数据框: x <- data.frame(id = letters[1:3], val0 = 1:3, val1 = 4:6, val2 = 7:9) # id val0 val1 val2 # 1 a 1 4 7 # 2 b 2 5 8 # 3 c 3 6 9 在每行中,我想计算每个值的相应比例(比率) . 例如 ....
  • 4 votes
     answers
     views

    大规模使用唯一值(for循环,应用或plyr)

    我不确定这是否可行,但如果是的话,它会让生活变得更有效率 . 更广泛的SO社区会感兴趣的一般问题:for循环(和apply函数等基本函数)适用于一般/一致操作,例如将X添加到数据框的每个列或行 . 我有一个我想要执行的一般/一致操作,但是对于数据帧的每个元素都有唯一的值 . 有没有办法比每个分组的数据框子集更有效地执行此操作,应用具有相对于该分组的特定数字的函数,然后重新组合?我不需要循环或申请,...
  • 3 votes
     answers
     views

    Scala应用方法调用作为括号与隐式参数冲突

    Cay Horstmann的书“Scala for the Impatient”中有关于apply方法的注释: 偶尔,()表示法与另一个Scala功能冲突:隐式参数 . 例如,表达式“Bonjour”.sorted(3)会产生错误,因为可以选择使用排序调用排序方法,但3不是有效排序 . 解决方案是将 "Bonjour".sorted 分配给变量并对其调用apply,例如: ...
  • 1 votes
     answers
     views

    R:将计算列添加到数据帧列表中

    我有两个数据框列表 . 我想在第一个列表上进行一些计算,然后将结果应用到第二个列表 # first list df1 <- data.frame(id=1:5, score=c(rep(1, 3), rep(0, 2))) df2 <- data.frame(id=1:5, score=c(rep(1, 4), rep(0, 1))) df1 id score 1 1 ...
  • 2 votes
     answers
     views

    当我们使用自定义函数对groupby的结果应用时,不会传递所有列

    创建一个DataFrame, x_df = pd.DataFrame({'a': [1,2,3,4,5,6], 'b': [1,2,1,2,1,2], 'c': ['x','x','y','y','z','z']}) Out[56]: a b c 0 1 1 x 1 2 2 x 2 3 1 y 3 4 2 y 4 5...
  • 0 votes
     answers
     views

    在列表中的列表上操作,将结果存储在全局环境中

    我正在使用鼠标 library(mice) 来估算大量的数据库 . 我编写了一个代码,用于对我的全局环境中的所有数据帧进行估算 . 这个练习的结果是一个名为 dfmice 的大型列表 . 对于列表中的每个列表,我想使用鼠标的 complete 操作手动我可以通过执行以下操作来执行此操作: list1 <- list(a = 2, b = 3) list2 <- list(c = &qu...
  • -2 votes
     answers
     views

    将函数应用于每个data.frame行并更新多个列值

    我有一个data.frame,其中每一行都是一条推文,每一行都是一个属性(“text”,“user”等) . 我编写了一个函数“processTweet()”,它接受data.frame的一行并更改tweet中的3列(“X”,“Y”和“Z”)并返回此修改后的单行data.frame . 我目前正在尝试找出如何使用类似dplyr或类似应用的函数来实际反映原始data.frame中的这些修改 . 我...
  • 1 votes
     answers
     views

    使用应用函数代替R中的For循环

    我在R中继续前进,并且在第一次成功地使用lapply加载一个名为ImportData()的函数中的文件 . 工作职能是: AllData <- lapply(files, function(i){ read.csv(i, stringsAsFactors = FALSE) }) AllData是包含4个数据帧的列表 . 在未来,它将包含更多 . 函数中还有两个for循环,我想用...
  • 5 votes
     answers
     views

    R:将函数应用于矩阵,其中向量元素作为参数

    假设我想将一个函数应用于矩阵的每一行 . 函数的一个参数采用向量 . 我想将向量的第一个元素应用于第一行,将第二个元素应用于第二行,等等 . 例如: set.seed(123) df<-matrix(runif(100), ncol=10) var2 <- c(1:10) MYFUNC <- function(x, Var=NA){ sum(x)/Var } 我试过...
  • 1 votes
     answers
     views

    Z单独转换R中的3D阵列列表中的每个切片

    我有一个包含14个三维数组的列表(参见下面的扩展) . 每个数组代表一个气候模型 . 它们包含4个不同气候参数(= 4个切片)的欧氏距离值(385x373) . 我的目标是: 为每个气候模型找到10个网格点,其中所有气候参数最适合,即最小的欧氏距离 . 因此,我想分别对所有14x4切片(=气候参数)进行z变换 . 之后,我想在4个气候参数上对z变换值进行平均,这样每个气候模型都...
  • 0 votes
     answers
     views

    R:从矩阵到列表到矩阵:订单问题

    我有一个问题,在过去的四个小时里,我无法解决问题,所以我想知道你是否有人可以帮助我 . 要查看我的问题,让我们从一个示例开始: tmp <- matrix(1:24, ncol=2) fac <- rep(1:5, length.out=12) 基于因子水平 fac ,我想将函数应用于共享相同因子水平的 tmp 的所有元素 . 我最终使用 by ,但如果这不合适,请不要犹豫,指出来 ...
  • 0 votes
     answers
     views

    将矩阵列表列表组合到矩阵列表中

    我有一个相对较大的清单 . 列表的每个元素都是六个元素的列表 . 这些元素中的每一个都是具有固定行数和可变列数的矩阵 . 我想结合矩阵,最终得到一个六个矩阵的列表,其中每个矩阵是从每个子列表中的相应元素调用cbind的结果,即第一个矩阵是来自内部的所有第一个矩阵的cbind列表,第二个矩阵是第二个矩阵的cbind等 . 例如: temp = list() temp[["a"]...
  • 0 votes
     answers
     views

    循环遍历行,创建和重用多个变量

    我正在使用Access数据库中的多个表在R中构建一个河床水文计算器 . 我无法自动化并计算多个站点的同一组索引 . 以下示例数据集描述了我的数据结构: > Thalweg StationID AB0 AB1 AB2 AB3 AB4 AB5 BC1 BC2 BC3 BC4 Xdep_Vdep 1 1AAUA017.60 47 45 44 55 54 6 15 ...

热门问题