在 R 中应用和应用行为

Question

考虑以下df ：

structure(list(GID7173723 = c("A", "T", "G", "A", "G"), GID4878677 = c("G", 
"C", "G", "A", "G"), GID88208 = c("A", "T", "G", "A", "G"), GID346403 = c("A", 
"T", "G", "A", "G"), GID268825 = c("G", "C", "G", "A", "G")), row.names = c(NA, 
5L), class = "data.frame")

看起来像这样：

  GID7173723 GID4878677 GID88208 GID346403 GID268825
1          A          G        A         A         G
2          T          C        T         T         C
3          G          G        G         G         G
4          A          A        A         A         A
5          G          G        G         G         G

以及以下 function：

f = function(x){
  ifelse(x=='A',x<-1,x) 
}

使用apply一切运行良好，如我所料：

    apply(df, 1,f)

          1   2   3   4   5  
GID7173723 "1" "T" "G" "1" "G"
GID4878677 "1" "C" "G" "1" "G"
GID88208   "1" "T" "G" "1" "G"
GID346403  "1" "T" "G" "1" "G"
GID268825  "1" "C" "G" "1" "G"

但如果我使用sapply或lapply所有值都转换为 1：

> sapply(dfn,f)
     GID7173723 GID4878677 GID88208 GID346403 GID268825
[1,]          1          1        1         1         1
[2,]          1          1        1         1         1
[3,]          1          1        1         1         1
[4,]          1          1        1         1         1
[5,]          1          1        1         1         1

我从文档中lapply和sapply将FUN应用于每个元素。 为什么一切都被转换为1？ R 将整数强制转换为字符串有什么关系？ 请帮忙。

我不明白的另一个方面是为什么使用这个新的 function 我只有一个包含 5 个元素的vector ，而不是一个充满“G”的dataframe ：

    f2 = function(x) x<-'G'

> sapply(dfn,f2)
GID7173723 GID4878677   GID88208  GID346403  GID268825 
       "G"        "G"        "G"        "G"        "G" 

> apply(dfn, 1,f2)
  1   2   3   4   5 
"G" "G" "G" "G" "G" 

Answer 1

• apply 将 df 或矩阵作为输入，输出=>vector, list, array
• lapply 将 df、list 或 vector 作为输入，输出=> list
• sapply 将 df、list 或 vector 作为输入，outputs=> 向量或矩阵

第一个问题。 如果你使用

apply(df, 2,f)

你还会得到一张满是 1 的桌子。 R 未将字符串转换为整数。

第二个问题。 试试这个，因为 1 用于行，2 用于列。

apply(df, 2,f2)