求助，R代码逐行单独运行

8942

收藏 2022-02-27

请问在运用eval（parse）函数时，如何做到每行单独调用？现在想将参数表里的每个等级按年份匹配到主表中，示例数据集table如下:
年份    等级    参数
1          A
2          A
3          B
3          C
1          A
参数表Para:
等级 Y1 Y2    Y3    Y4
A
B
C
D
TABEL$P1 <- eval(parse(text=paste0("PARA$Y",TABEL$年份)))[TABLE$等级]

似乎R代码不同于SAS是每行单独调用，在parse函数里最终只会调用到最后一行的PARA$Y1，赋值给所有人。
此外很多时候我想逐行写代码根据前面某一列的数值去进行运算，他都会调用出整列，请问这种学名是叫什么啊？谢谢大神！

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

s609078902

2022-2-28 09:51:54

用 dplyr::left_join() 合并就行

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

K1ngFjsh

2022-2-28 11:57:01

尝试过不用eval parse函数，改为Table$参数 <- Parameter[match(Table$等级,Parameter$等级),match(paste0("Y",Table$年份),colnames(Parameter))。但是一致判定[x,y]中y是一个list，不能逐行返回结果而是返回了一个list，把出现过的Y都匹配进来了

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

K1ngFjsh

2022-2-28 11:57:08

还有一个逐行运算的例子，比如我想对A列每行的数和10取最小值，TABLE$B <- min(TABLE$A,10)是直接取的整个A列的最小值和10去比。而不是每行去运行，请问该如何做到？

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

K1ngFjsh

2022-2-28 11:59:49

s609078902 发表于 2022-2-28 09:51
用 dplyr::left_join() 合并就行

将参数表参数合并为一列，列名和行名合并去进行匹配？比如A_Y1确实做到了，但是因为我涉及到后面很多运算，所以这个方法有些繁琐

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

s609078902

2022-2-28 23:00:44

K1ngFjsh 发表于 2022-2-28 11:59
将参数表参数合并为一列，列名和行名合并去进行匹配？比如A_Y1确实做到了，但是因为我涉及到后面很多运算 ...

你把参数表的值填上，我再看看。应该变换下数据格式就行了

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

点击查看更多内容…

abelus

2022-3-2 13:44:27

完成这个任务，不需要用eval这么高大上的东东

eval parse这些，都是语言级别的功能，做分析的时候，一般人用不到。
如果感觉要用这个，通常花点功夫可以找到替代的函数。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

abelus

2022-3-2 13:45:22

K1ngFjsh 发表于 2022-2-28 11:57
还有一个逐行运算的例子，比如我想对A列每行的数和10取最小值，TABLE$B

apply(mat, 1, function(x) {min(c(10, x))})

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

abelus

2022-3-2 13:46:03

merge函数即可

或者tidyverse系列包中的*join就搞定

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

K1ngFjsh

2022-3-3 11:14:34

abelus 发表于 2022-3-2 13:45
apply(mat, 1, function(x) {min(c(10, x))})

大佬，这函数我咋试了半天还是取的整个一列啊。。。比如我想对TABLE里的（参数）列进行处理，
我写的语句
TABLE$参数 <- apply(TABLE,1,function(x) {min(c(10, TABLE参数))})
咋还是不行。。我没太习惯R

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

abelus

2022-3-3 14:58:11

> mat <- matrix(1:50, byrow = T, ncol = 5)
> mat
[,1] [,2] [,3] [,4] [,5]
[1,] 1 2 3 4 5
[2,] 6 7 8 9 10
[3,] 11 12 13 14 15
[4,] 16 17 18 19 20
[5,] 21 22 23 24 25
[6,] 26 27 28 29 30
[7,] 31 32 33 34 35
[8,] 36 37 38 39 40
[9,] 41 42 43 44 45
[10,] 46 47 48 49 50
> apply(mat, 1, function(x) max(c(10, x)))

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

K1ngFjsh

2022-3-3 16:56:11

abelus 发表于 2022-3-3 14:58
> mat mat
[,1] [,2] [,3] [,4] [,5]
[1,] 1 2 3 4 5

这个好像是每一行整个去和10比呀，输出10,10,15,20,25,30，可否指定V1列呢？输出结果是10,10,11,16,21,26.。。。等等

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

abelus

2022-3-3 17:04:36

K1ngFjsh 发表于 2022-3-3 16:56
这个好像是每一行整个去和10比呀，输出10,10,15,20,25,30，可否指定V1列呢？输出结果是10,10,11,16,21,26 ...

pmax(10, mat[, 1])

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

abelus

2022-3-3 17:08:14

K1ngFjsh 发表于 2022-3-3 16:56
这个好像是每一行整个去和10比呀，输出10,10,15,20,25,30，可否指定V1列呢？输出结果是10,10,11,16,21,26 ...

如果是要每列都处理
apply(mat, 2, function(x) pmax(10, x))

也就等价于
mat[mat < 10] <- 10

通过您原始问题的描述不知道到底要得到个啥结果。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

K1ngFjsh

2022-3-3 17:29:18

abelus 发表于 2022-3-3 17:08
如果是要每列都处理
apply(mat, 2, function(x) pmax(10, x))

可能我表述的不是很清楚，就是把第一列每一项设置个下限，让他们不得低于10，是不是我想的太复杂了有什么简单的处理方法？。原数据集：
[,1] [,2] [,3] [,4] [,5]
[1,] 1 2 3 4 5
[2,] 6 7 8 9 10
[3,] 11 12 13 14 15
[4,] 16 17 18 19 20
[5,] 21 22 23 24 25
[6,] 26 27 28 29 30
[7,] 31 32 33 34 35
[8,] 36 37 38 39 40
[9,] 41 42 43 44 45
[10,] 46 47 48 49 50
变成→：
[,1] [,2] [,3] [,4] [,5]
[1,] 10 2 3 4 5
[2,] 10 7 8 9 10
[3,] 11 12 13 14 15
[4,] 16 17 18 19 20
[5,] 21 22 23 24 25
[6,] 26 27 28 29 30
[7,] 31 32 33 34 35
[8,] 36 37 38 39 40
[9,] 41 42 43 44 45
[10,] 46 47 48 49 50

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

abelus

2022-3-4 07:52:09

K1ngFjsh 发表于 2022-3-3 17:29
可能我表述的不是很清楚，就是把第一列每一项设置个下限，让他们不得低于10，是不是我想的太复杂了有什么 ...

那就
mat[, 1] <- pmax(10, mat[, 1])
即可

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

K1ngFjsh

2022-3-4 15:45:04

abelus 发表于 2022-3-4 07:52
那就
mat[, 1]

谢谢大佬，还有这么个语句呢

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

K1ngFjsh

2022-3-4 19:41:34

abelus 发表于 2022-3-2 13:46
merge函数即可

或者tidyverse系列包中的*join就搞定

关于MERGE函数合并，因为我相当于双主键合并，首先在参数表中找到等级这一行，然后定位到第几年再返回，请问如何写才能让merge函数返回匹配上的特定列的值呢
主表：

等级	年份	参数
A	1	1
A	3	3
B	1	5
C	3	11
C	1	9

参数表Para:

等级	Y1	Y2	Y3	Y4
A	1	2	3	4
B	5	6	7	8
C	9	10	11	12
D	13	14	15	16

其实我最初的想法是定位到参数表中的位置，如等级A第一年就赋值PARA[1,1]，代码即
TABLE#参数 <- PARA[match(TABLE$等级,PARA#等级),match(paste0("Y",TABLE#年份),colnames(PARA)]
可是会报错，说什么如果我在[,]里列不能为一个list形式

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

abelus

2022-3-5 11:18:42

K1ngFjsh 发表于 2022-3-4 19:41
关于MERGE函数合并，因为我相当于双主键合并，首先在参数表中找到等级这一行，然后定位到第几年再返回，请 ...

para.long <- reshape(para, varying = list(2:5), idvar = 'lvl', timevar = 'year', v.names = 'y', direction = 'long')
merge(dat, para.long, by = c('lvl', 'year'), all.x = T)

这样应该就可以得到结果了

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

K1ngFjsh

2022-3-9 11:53:19

abelus 发表于 2022-3-5 11:18
para.long

恩恩，这样就相当于把他们转置造了个双主键去匹配，谢谢大佬

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群