我在R中有一个大表,现在我想选择奇数行并在该行的第一个元素之前粘贴一个标签

Eva*_*Eva 2 select loops r rows

A=matrix(0,4,2)

A[1,1]=2
A[1,2]=3
A[2,1]=2
A[2,2]=3
A[3,1]=2
A[3,2]=3
A[4,1]=2
A[4,2]=3
Run Code Online (Sandbox Code Playgroud)

现在我想要获取第2,4行并在行this is odd的第一个元素之前返回.

但我不知道如何制作循环来获取第2,4行

chl*_*chl 5

如果我正确理解你的问题,你想要显示一些文本和所有奇数行的第一个元素.你可以试试这个:

cat(paste("This is odd", A[c(2,4),1], "\n"))
Run Code Online (Sandbox Code Playgroud)

那里不需要循环.如果你想使用更大的矩阵,并采取所有奇数行,你可以使用seq(2, nrow(A), by=2)而不是c(2,4).

  • 获得所有偶数行的更简单方法是"A [c(F,T),]`.要获得奇数行,只需切换false和true的顺序.无需使用循环或`seq`,如[R recycles](https://www.inkling.com/read/r-cookbook-paul-teetor-1st/chapter-5/recipe-5-3)值为了你. (5认同)