Skip to main content
Markdownによる装飾を手直ししました。
ソース リンク
nekketsuuu
  • 2.4万
  • 12
  • 53
  • 117
  1. 新しい列を作りたくないのですが、その場合

    新しい列を作りたくないのですが、その場合、library(tidyverse)のもとで

    library(tidyverse)のもとで
     mutate(a = a - lag(a))
    
    mutate(a = a - lag(a))

    でよろしいでしょうか。

    でよろしいでしょうか。
  2. 先頭行のNAをその次の行の値で埋めたいのですが
    列名が非常に複雑で、番地を指定してループを回す方法で行きたいのですがうまくいきません。
    下のコードではエラーでした。

     for(i in 2:20000){
     df <- df %>% mutate(df[,i] = df[,i] -lag(df[,i]))
     }
    
     for (i in 2:20000){df[1,i] <- df[2,i]}
    

2.先頭行のNAをその次の行の値で埋めたいのですが
列名が非常に複雑で、番地を指定してループを回す方法で行きたいのですがうまくいきません。
下のコードではエラーでした。

for(i in 2:20000){
df <- df %>% mutate(df[,i] = df[,i] -lag(df[,i]))
}

for (i in 2:20000){df[1,i] <- df[2,i]}

また、エラーは
Error: unexpected '=' in:
"for(i in 2:20000){
df <- df %>% mutate(df[,i] ="
でし

Error: unexpected '=' in:
"for(i in 2:20000){
df <- df %>% mutate(df[,i] ="

でした。

  1. 新しい列を作りたくないのですが、その場合
    library(tidyverse)のもとで
    mutate(a = a - lag(a))
    でよろしいでしょうか。

2.先頭行のNAをその次の行の値で埋めたいのですが
列名が非常に複雑で、番地を指定してループを回す方法で行きたいのですがうまくいきません。
下のコードではエラーでした。

for(i in 2:20000){
df <- df %>% mutate(df[,i] = df[,i] -lag(df[,i]))
}

for (i in 2:20000){df[1,i] <- df[2,i]}

また、エラーは
Error: unexpected '=' in:
"for(i in 2:20000){
df <- df %>% mutate(df[,i] ="
でした。

  1. 新しい列を作りたくないのですが、その場合、library(tidyverse)のもとで

     mutate(a = a - lag(a))
    

    でよろしいでしょうか。

  2. 先頭行のNAをその次の行の値で埋めたいのですが
    列名が非常に複雑で、番地を指定してループを回す方法で行きたいのですがうまくいきません。
    下のコードではエラーでした。

     for(i in 2:20000){
     df <- df %>% mutate(df[,i] = df[,i] -lag(df[,i]))
     }
    
     for (i in 2:20000){df[1,i] <- df[2,i]}
    

また、エラーは

Error: unexpected '=' in:
"for(i in 2:20000){
df <- df %>% mutate(df[,i] ="

でした。

本文に 233 文字追加
ソース リンク
user87562
  • 963
  • 5
  • 25
  • 63

追記2

for(i in 2:20000){
 df[,i] <- df[,i] - lag(df[,i])
}

を実行するとエラーは出ませんが2:20000列目がすべてNAになってしまいます。

また、エラーは
Error: unexpected '=' in:
"for(i in 2:20000){
df <- df %>% mutate(df[,i] ="
でした。

追記2

for(i in 2:20000){
 df[,i] <- df[,i] - lag(df[,i])
}

を実行するとエラーは出ませんが2:20000列目がすべてNAになってしまいます。

また、エラーは
Error: unexpected '=' in:
"for(i in 2:20000){
df <- df %>% mutate(df[,i] ="
でした。

本文に 909 文字追加
ソース リンク
user87562
  • 963
  • 5
  • 25
  • 63

追記
先頭行のNAをその次の行の値で埋めるとはこういう感じです。
投稿を利用させていただきました。

df_lag
#>    col1 col2 col3 col4 col5
#> 1    NA   NA   NA   NA   NA
#> 2     6    5    4    3    2
#> 3     1    1    1    1    1
#> 4     1    1    1    1    1
#> 5     1    1    1    1    1
#> 6     1    1    1    1    1
#> 7     1    1    1    1    1
#> 8     1    1    1    1    1
#> 9     1    1    1    1    1
#> 10    1    1    1    1    1

df_lag[1,] <- df_lag[2,]
df_lag
#>    col1 col2 col3 col4 col5
#> 1     6    5    4    3    2
#> 2     6    5    4    3    2
#> 3     1    1    1    1    1
#> 4     1    1    1    1    1
#> 5     1    1    1    1    1
#> 6     1    1    1    1    1
#> 7     1    1    1    1    1
#> 8     1    1    1    1    1
#> 9     1    1    1    1    1
#> 10    1    1    1    1    1

追記
先頭行のNAをその次の行の値で埋めるとはこういう感じです。
投稿を利用させていただきました。

df_lag
#>    col1 col2 col3 col4 col5
#> 1    NA   NA   NA   NA   NA
#> 2     6    5    4    3    2
#> 3     1    1    1    1    1
#> 4     1    1    1    1    1
#> 5     1    1    1    1    1
#> 6     1    1    1    1    1
#> 7     1    1    1    1    1
#> 8     1    1    1    1    1
#> 9     1    1    1    1    1
#> 10    1    1    1    1    1

df_lag[1,] <- df_lag[2,]
df_lag
#>    col1 col2 col3 col4 col5
#> 1     6    5    4    3    2
#> 2     6    5    4    3    2
#> 3     1    1    1    1    1
#> 4     1    1    1    1    1
#> 5     1    1    1    1    1
#> 6     1    1    1    1    1
#> 7     1    1    1    1    1
#> 8     1    1    1    1    1
#> 9     1    1    1    1    1
#> 10    1    1    1    1    1
ソース リンク
user87562
  • 963
  • 5
  • 25
  • 63
読み込んでいます