gpt4 book ai didi

r - 如何使用 tapply 并保留值的顺序

转载 作者:行者123 更新时间:2023-12-02 23:50:55 26 4
gpt4 key购买 nike

希望这不是一个太愚蠢的问题,但作为一个 R 初学者,我对 tapply 有一个严重的问题。可以说

factors <- as.factor( c("a", "b", "c", "a", "b", "c", "a", "b", "c") )
values <- c( 1, 2, 3, 4, 5, NA, 7, NA, NA )
tapply(
values,
factors,
function(x){
if( sum(is.na(x)) == 1 ){
x[ is.na(x) ] <- 0
}
return(x)
}
)

结果是

$a
[1] 1 4 7

$b
[1] 2 5 0

$c
[1] 3 NA NA

但是,我需要的是获取一个保留值原始顺序的向量,即:

c( 1,2,3,4,5,NA,7,0,NA )

提前非常感谢。

最佳答案

在这种情况下,您应该使用 ave 函数:

> ave(values, factors, FUN=function(x) {
+ if( sum(is.na(x)) == 1 ){
+ x[ is.na(x) ] <- 0
+ }
+ return(x)
+ }
+ )
[1] 1 2 3 4 5 NA 7 0 NA

关于r - 如何使用 tapply 并保留值的顺序,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6103879/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com