遍历 r 中列的行名

Question

我想创建一个 function，给定一个字符串，迭代 dataframe 的行名，如果它们相等，则存储它的值。 在这里我举一个玩具例子：

Places  x1  x2  x3  x4  x5  
A       0   5   0   0   0
B       0   0   0   23  0
C       23  0   0   0   0
D       8   0   0   0   0

我想要这样的东西：

sequence <- ("ACF")
function(sequence)
>> 0   5   0   0   0   23  0   0   0   0

“A”在 dataframe 的行名中，“C”也是如此，因此 function 将它们的值存储在一个新向量中。

codification <- function(sequence) {
  bits <- vector()
  for (i in sequence){
    if (any(rownames(dataframe)==i)){
      bits <- bits.append()
    }
  }
}

我认为 function 的 rest 正在工作，但我找不到任何可以写入bits <- bits.append()来存储值的东西。 任何帮助将非常感激。

Answer 1

你不需要 for 循环。 只是一些基地 R。

df <- read.table(text = "Places  x1  x2  x3  x4  x5  
A       0   5   0   0   0
B       0   0   0   23  0
C       23  0   0   0   0
D       8   0   0   0   0", header = TRUE)


codification <- function(sequence){
  unlist(asplit(df[na.omit(match(strsplit(sequence, "")[[1]], df$Places)), -1], 1), use.names = FALSE)
}

codification("ACF")
#>  [1]  0  5  0  0  0 23  0  0  0  0
codification("AACF")
#>  [1]  0  5  0  0  0  0  5  0  0  0 23  0  0  0  0

^{由reprex package (v0.3.0) 创建于 2020-10-24}

---

但是，如果这些实际上是行名，那么您需要：

df <- read.table(text = "  x1  x2  x3  x4  x5  
A       0   5   0   0   0
B       0   0   0   23  0
C       23  0   0   0   0
D       8   0   0   0   0", header = TRUE)


codification <- function(sequence){
  sequence <- strsplit(sequence, "")[[1]]
  sequence <- sequence[sequence %in% rownames(df)]
  unlist(asplit(df[sequence, ], 1), use.names = FALSE)
}

codification("ACF")
#>  [1]  0  5  0  0  0 23  0  0  0  0
codification("AACF")
#>  [1]  0  5  0  0  0  0  5  0  0  0 23  0  0  0  0

^{由reprex package (v0.3.0) 创建于 2020-10-24}

---

无论如何，我建议您创建一个将 df 作为输入的 function。

codification <- function(sequence, df){
  
  # ...

}

在 function 内部使用外部对象并不是很好。