上の行の値を持つ列に欠損値を追加します。

Question

毎週分析のための不完全なデータセットがあります。それは次のようになります。

df1 <- data.frame(var1 = c("a","","","b",""), 
      var2 = c("x","y","z","x","z")) 

一部のvar1値がありません。データセットは次のようになります。

df2 <- data.frame(var1 = c("a","a","a","b","b"), 
      var2 = c("x","y","z","x","z")) 

現在、私はこれを行うためにExcelマクロを使用しています。しかし、これにより分析を自動化することが難しくなります。これからはRでこれをやりたいと思いますが、どうやってこれを行うのか分かりません。

ありがとうございました。 COMMENT

var2のAFTER

QUESTIONのUPDATEは私の質問には関係ありません。私がしようとしているのは唯一のことです。 df1からdf2に移動します。ここで

df1 <- data.frame(var1 = c("a","","","b","")) 
df2 <- data.frame(var1 = c("a","a","a","b","b")) 

Answer 1

ランレングス符号化（rle）の使用およびその逆rle.inverseを作ることによって、それを行うための一つの方法です：

fillTheBlanks <- function(x, missing=""){ 
    rle <- rle(as.character(x)) 
    empty <- which(rle$value==missing) 
    rle$values[empty] <- rle$value[empty-1] 
    inverse.rle(rle) 
} 

df1$var1 <- fillTheBlanks(df1$var1) 

結果：

df1 

    var1 var2 
1 a x 
2 a y 
3 a z 
4 b x 
5 b z 

Answer 2

ここでは、Aでありますより簡単な方法：

library(zoo) 
df1$var1[df1$var1 == ""] <- NA 
df1$var1 <- na.locf(df1$var1) 

Answer 3

Fill <- function(x,missing="") 
{ 
    Log <- x != missing 
    y <- x[Log] 
    y[cumsum(Log)] 
} 

結果：：ここで

がやや短く、文字に強制しない別の方法である

# For factor: 
Fill(df1$var1) 
[1] a a a b b 
Levels: a b 

# For character: 
Fill(as.character(df1$var1)) 
[1] "a" "a" "a" "b" "b"