Warning: file_get_contents(/data/phpspider/zhask/data//catemap/6/codeigniter/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R 变量对的pmax()循环_R - Fatal编程技术网

R 变量对的pmax()循环

R 变量对的pmax()循环,r,R,我有以下数据帧: varnames<-c( "aR.0", "aL.0", "aR.1", "aL.1", "aR.3", "aL.3") a <-matrix (c(1,2,3,4, 5, 6), 2, 6) colnames (a)<-varnames df<-as.data.frame (a) a aR.0 aL.0 aR.1 aL.1 aR.3 aL.3 [1,] 1 3 5 1 3 5 [2,] 2

我有以下数据帧:

varnames<-c( "aR.0", "aL.0", "aR.1", "aL.1", "aR.3", "aL.3")

a <-matrix (c(1,2,3,4, 5, 6), 2, 6)

colnames (a)<-varnames

df<-as.data.frame (a)


 a
    aR.0 aL.0 aR.1 aL.1 aR.3 aL.3
[1,]    1    3    5    1    3    5
[2,]    2    4    6    2    4    6

varnames好吧,细节取决于数据帧的特定属性,而这些属性在您给出的示例中并不明显。例如,您指定碱基应该相似,但只有一个碱基“a”。还不清楚这些变量的顺序是否总是相同的

无论如何,对于您当前的示例,以下方法可能有效:

df1 <- df[,grep("aR\\..",colnames(df))]
df2 <- df[,grep("aL\\..",colnames(df))]

pmax(df1,df2)

非常感谢你,马克西姆。K这正是我想要的。你帮我省去了输入60行代码的麻烦。
df1 <- df[,grep("aR\\..",colnames(df))]
df2 <- df[,grep("aL\\..",colnames(df))]

pmax(df1,df2)