这是我的代码尝试将函数应用于tibble中的每一行,mytib:
> mytib
# A tibble: 3 x 1
value
<chr>
1 1
2 2
3 3
这是我的代码,我试图将函数应用于tibble中的每一行:
mytib = as_tibble(c("1" , "2" ,"3"))
procLine <- function(f) {
print('here')
print(f)
}
lapply(mytib , procLine)
使用lapply
:
> lapply(mytib , procLine)
[1] "here"
[1] "1" "2" "3"
$value
[1] "1" "2" "3"
此输出表明每行不会调用一次函数,因为我希望输出为:
here
1
here
2
here
3
如何将函数应用于tibble中的每一行?
更新:我很感谢提供的答案,这些答案允许我的预期结果,但我对我的实施做了什么错误? lapply
应该为每个元素应用一个函数吗?
答案 0 :(得分:3)
invisible
用于避免显示输出。此外,您必须循环遍历名为“value”的列的元素,而不是整个列。
invisible( lapply(mytib$value , procLine) )
# [1] "here"
# [1] "1"
# [1] "here"
# [1] "2"
# [1] "here"
# [1] "3"
默认情况下, lapply
循环遍历数据框的列。请参阅下面的示例。在每次迭代中,两列的值作为整体打印。
mydf <- data.frame(a = letters[1:3], b = 1:3, stringsAsFactors = FALSE )
invisible(lapply( mydf, print))
# [1] "a" "b" "c"
# [1] 1 2 3
要遍历数据框中列的每个元素,您必须循环两次,如下所示。
invisible(lapply( mydf, function(x) lapply(x, print)))
# [1] "a"
# [1] "b"
# [1] "c"
# [1] 1
# [1] 2
# [1] 3