R の行間の差を計算する方法

diff()関数を使用すると、R のデータ フレーム内の行間の差分を計算できます。

 #find difference between rows in every column of data frame
diff( as.matrix (df))

#find difference between rows of specific column
diff(df$column_name)

次の例は、この構文を実際に使用する方法を示しています。

例 1: 各列の行間の差異を見つける

次のコードは、データ フレームの各列の行間の差を計算する方法を示しています。

 #create data frame
df <- data. frame (day=c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
                 sales=c(7, 8, 8, 12, 10, 9, 13, 16, 11, 7))

#view data frame
df

   day sales
1 1 7
2 2 8
3 3 8
4 4 12
5 5 10
6 6 9
7 7 13
8 8 16
9 9 11
10 10 7

#calculate difference between rows for each column
diff( as.matrix (df))

      day sales
 [1,] 1 1
 [2,] 1 0
 [3,] 1 4
 [4,] 1 -2
 [5,] 1 -1
 [6,] 1 4
 [7,] 1 3
 [8,] 1 -5
 [9,] 1 -4

例 2: 特定の列の行間の違いを見つける

次のコードは、データ フレーム内の特定の列の行間の差を計算する方法を示しています。

 #create data frame
df <- data. frame (day=c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
                 sales=c(7, 8, 8, 12, 10, 9, 13, 16, 11, 7))

#calculate difference between rows in 'sales' column
diff(df$sales)

[1] 1 0 4 -2 -1 4 3 -5 -4

例 3: 行間の違いを見つけて新しい列を追加する

次のコードは、データ フレーム内の特定の列の行間の差異を計算し、これらの差異を新しい列としてデータ フレームの末尾に追加する方法を示しています。

 #create data frame
df <- data. frame (day=c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
                 sales=c(7, 8, 8, 12, 10, 9, 13, 16, 11, 7))

#calculate difference between rows in 'sales' column
sales_diff <- diff(df$sales)

#append NA to beginning of differences vector
sales_diff <- c(NA, sales_diff)

#append differences vector as new column
df$sales_diff <- sales_diff

#view updated data frame
df

   day sales sales_diff
1 1 7 NA
2 2 8 1
3 3 8 0
4 4 12 4
5 5 10 -2
6 6 9 -1
7 7 13 4
8 8 16 3
9 9 11 -5
10 10 7 -4

追加リソース

次のチュートリアルでは、R で他の一般的な行関数を実行する方法について説明します。

RでcolSums()関数を使用する方法
R で rowSums() 関数を使用する方法
R で nrow() 関数を使用する方法