apply相关内容
我正在尝试以一种利用脚本的方式进行编码,因为我经常以这种格式获得输出,并且不得不在 Excel 中一一复制/粘贴它是一项真正的苦差事.但是,我在实现功能方面遇到了困难. 因此,我的数据采用以下形式: Condition Sample1 Sample2 .... Sample nT1 6.99 5.80 .... n_1T2 2.05 3.04 .... n_1T3 4.50 4.69 ..
..
我知道 $apply 用于连接 Javascript 上下文和 AngularJS 上下文. 一个简单的例子如下: 模板: {{someVal}} 控制器中的javascript: setTimeout(function() {scope.$apply(function(){scope.someVal = 123});}, 1000); 我们需要在上述情况下使用 $apply
..
我正在使用非常混乱的 Open Food Facts 数据集.有一个称为数量的列,其中包含有关相应食物数量的信息.条目看起来像: 365 克(314 毫升)992 克2.46公斤0,33 升15.87 盎司250毫升1升33厘升 ...等等(非常凌乱!!!)我想创建一个名为 is_liquid 的新列.我的想法是,如果数量字符串包含 l 或 L,则该行中的 is_liquid 字段应为 1,否
..
我希望这个问题是清楚可行的.我有许多标有简单数字 ID(例如 1.csv、2.csv、3.csv 等)的 csv 文件.另一个 csv 文件包含如下所示的实际数据 ID 站点位置块1 L1 1 一个2 L2 2 b3 等 我的问题是如何链接数据文件中的 ID 以重命名 csv 文件.我最想要的输出是 L11a.csv、L22b.csv 等.我想我需要将每一行观察的站点、位置和块连接到另一列中,
..
假设我有 3 个数据帧,每个数据帧都是一个 5x5 的对象: set.seed(1)x 例如,x 看起来像: >Xa b c d1 -0.6264538 -0.8204684 -0.6264538 -0.8204684 -0.62645382 0.1836433 0.4874291 0.1836433 0.4874291 0.18364333 -0.8356286 0.7383247 -
..
这基本上是这里(不是我提出的)提出的问题,但我已经简化了这个例子,我根本无法弄清楚发生了什么,所以我决定以一种可能会得到更多回应的方式再次提出它. 取数据dd: dd 现在,我们要查找列first 中的数字等于列six 中的数字(这是数据框中的第七列)的行,使用申请: apply(dd,1,function(x) as.integer(x["first"])==x[7])1 2 3假
..
我是 R 初学者,我需要编写一个函数,在固定间隔(每 4 行)内对数据帧的行进行求和.我试过下面的代码 camp 结果是“X[i:(i + 4), ] 中的错误:索引超出范围".我该如何解决?有什么建议吗? 谢谢. 解决方案 zoo 包有 rollapply ,这对于这样的事情非常方便...... #制作一些数据set.seed(1)m
..
我正在尝试使用以下代码将列的子集从 NA 转换为 0.不幸的是,它会将所有单元格变为 0. df1 有什么建议吗? 解决方案 试试这个简单的方法 df1[is.na(df1),]
..
第一个 DF: t.dV1 V2 V3 V41 1 6 11 162 2 7 12 173 3 8 13 184 4 9 14 195 5 10 15 20名称(t.d)
..
我正在处理一些 Date 列并尝试清除明显不正确的日期.我已经使用提到的 safe.ifelse 函数编写了一个函数 此处. 这是我的玩具数据集: df1 这适用于单列: df1$month1 as.Date('2013-10-01'), as.Date('2013-10-01'), df1$month1) 由于我有多个列,我
..
我有一个 R 代码,它可以运行并执行我想要的操作,但是它需要很长时间才能运行.下面是代码的作用和代码本身的解释. 我有一个包含街道地址(字符串)的 200000 行向量:数据.示例: >数据[150000,]地址"15 rue andre lalande Residence Marguerite yourcenar 91000 evry France" 我有一个 131x2 字符串元素的
..
首先,对不起我的英语,我是乌克兰人 socketio卡删除事件执行时,视图没有任何变化 ng-repeat 在我看来 在我的控制器中 $scope.LOG = [{...},...{...}]; SocketIO 发出 socket.on('card_was_deleted', function (data) {$scope.open_object = 未定义;$scope
..
我有很多类似的小东西: dftest_tw
..
我有一个要应用于数据框的函数: def 确定中间(数据,ts):如果 data['U'] == 0 并且 data['D'] >0:中 = 数据 ['C'] + ts/2elif 数据['U'] >0 和数据 ['D'] == 0:mid = data['C'] - ts/2别的:差异=数据['A'] - 数据['B']如果差异 == 0:中 = 数据 ['C'] + 1别的:mid = 数据[
..
我有两个数据框/数据列表'humanSplit和ratSplit`,它们的形式为 >ratSplit$Kidney_F_GSM1328570大鼠基因 大鼠复制比对 RNA 类型1 Crot Kidney_F_GSM1328570 7 REV2 Crot Kidney_F_GSM1328570 12 REV3 Crot Kidney_F_GSM1328570 4 REV 和 >humanSpl
..
我是 R 的新手.由于我的项目需要,我需要对十万个条目进行Chisq测试. 自学了几天,写了一些代码循环运行chisq.test.代码: the.data = read.table ("test_chisq_allelefrq.txt", header=T, sep="\t",row.names=1)p=c()ID=c()for (i in 1:nrow(the.data)) {data.
..
我有一个可以这样生成的数据: set.seed(1)foo
..
我有一个看起来像这样的数据框 var1 可能有一大堆“var"列 - var1、var2....var'n'.与 s_var1、s_var2..... 等相同. 我想编写一个函数,在引用 'var' 列和 'x' 列的同时对 's_var' 列进行计算. 例如:如果有 2 个 'var' 列 n_var 2.5) { s_var[i] = var[i] } else {s_var
..
我有一张桌子: X1 X2 X3Y1 10 12 15Y2 45 5 23Y3 12 47 56 我如何为每一行计算总和并在每个值附近写出该总和的百分比.例如:X1% X2% X3% Y1 10 27% 12 32% 15 40.5%Y2 45 .. 5 .. 23 ..Y3 12 .. 47 .. 56 .. 解决方案 你可以使用.如果 dat 是数据集(dat 在这个例子中是 da
..
我有一个用户定义的函数. funct 显示函数输出 letters1 我有一个数据框,并在其上应用我的函数以使用 apply family 按行组合它. dat 我的尝试 mapply(funct,unique(dat$letters1),dat$letters1) 期望的输出 rbind(funct(unique(dat$letters1),"a"),funct(unique(
..