Question

我有一个data.frame＆＃34; df＆＃34;有5列：＆＃34;年＆＃34;，＆＃34;州＆＃34;，＆＃34;县＆＃34;，＆＃34; fips＆＃34; （州 - 县标识符），＆＃34;产量＆＃34;。

许多县的收益率都包含NA。我最初通过代码消除了任何NA值的县：

Data <- df %>% group_by(fips) %>% filter(!any(is.na(Yield)))

我现在只需要消除那些包含超过3个NA的县。因此，NA> 3

对于那些NA =＆lt; 3，我使用spline函数：

v <- na.spline(df$Yield)
df$Yield <- v

到目前为止，我有以下内容删除所有县NA＆gt; 3并使用样条线填充剩余郡的NA：

if(length(df$Yield[is.na(df$Yield))<3){
na.spline(df$Yield)
}
}else{
df %>% group_by(fips) %>% filter(!any(is.na(Yield)))
}

这显然不起作用。任何见解将不胜感激。

Answer 1

使用dplyr

library(dplyr)
library(zoo) 
df %>% 
   group_by(fips) %>%
   filter(sum(is.na(Yield))<3) %>% 
   mutate(Yield=na.spline(Yield))

使用data.table

library(data.table)#v1.9.5+
setDT(df)[, .SD[sum(is.na(Yield))<=3] , fips][,Yield:= na.spline(Yield) ,fips][]

或使用base R

transform(subset(df, ave(is.na(Yield), fips, FUN=sum)<3), Yield=na.spline(Yield))

数据

set.seed(29)
df <- data.frame(fips= sample(LETTERS[1:4], 30, replace=TRUE), 
     Yield= as.numeric(sample(c(NA,0:3), 30, replace=TRUE)), 
         stringsAsFactors=FALSE)

R：在Yield列中删除具有＆gt; 3 NA的县，并使用na.spline用于＆lt; 3 NA＆＃39; s

1 个答案:

数据