如何在R中查詢頻率資料的方差?


如果我們有頻率資料,那麼我們首先需要透過重複每個值對應的頻率來找到總資料或完整資料,然後我們可以對這些完整資料應用 var 函式。

例如,如果我們有一個名為 df 的資料框,它包含兩列,例如 X 和頻率,那麼我們可以使用下面給出的命令找到總資料:

Total_data<-rep(X,Frequency)

現在,中位數將透過使用如下命令找到:

var(Total_data)

示例 1

以下程式碼片段建立了一個示例資料框:

x<-rpois(20,20)
frequency<-sample(1:10,20,replace=TRUE)
df1<-data.frame(x,frequency)
df1

建立了以下資料框

   x frequency
1  11 3
2  15 9
3  23 2
4  16 3
5  16 4
6  17 10
7  19 6
8  23 9
9  15 6
10 22 4
11 21 5
12 18 10
13 21 3
14 27 1
15 16 5
16 27 5
17 19 8
18 23 5
19 19 3
20 16 8

為了在上面建立的資料框 df1 上找到總資料,請將以下程式碼新增到上述程式碼片段中:

x<-rpois(20,20)
frequency<-sample(1:10,20,replace=TRUE)
df1<-data.frame(x,frequency)
Total_data1<-rep(x,frequency)
Total_data1

輸出

如果您將上面給出的所有程式碼片段作為單個程式執行,它將生成以下輸出:

[1] 11 11 11 15 15 15 15 15 15 15 15 15 23 23 16 16 16 16 16 16 16 17 17 17 17
[26] 17 17 17 17 17 17 19 19 19 19 19 19 23 23 23 23 23 23 23 23 23 15 15 15 15
[51] 15 15 22 22 22 22 21 21 21 21 21 18 18 18 18 18 18 18 18 18 18 21 21 21 27
[76] 16 16 16 16 16 27 27 27 27 27 19 19 19 19 19 19 19 19 23 23 23 23 23 19 19
[101] 19 16 16 16 16 16 16 16 16

為了在上面建立的資料框上查詢 Total_data1 的方差,請將以下程式碼新增到上述程式碼片段中:

x<-rpois(20,20)
frequency<-sample(1:10,20,replace=TRUE)
df1<-data.frame(x,frequency)
Total_data1<-rep(x,frequency)
var(Total_data1)

輸出


如果您將上面給出的所有程式碼片段作為單個程式執行,它將生成以下輸出:

[1] 12.58699

示例 2

以下程式碼片段建立了一個示例資料框:

y<-rpois(20,20)
count<-sample(1:10,20,replace=TRUE)
df2<-data.frame(y,count)
df2

建立了以下資料框

  y count
1  25 2
2  14 2
3  13 8
4  22 6
5  18 1
6  30 9
7  22 9
8  26 1
9  23 3
10 20 2
11 17 2
12 12 5
13 20 3
14 12 8
15 20 1
16 11 7
17 19 3
18 13 3
19 17 8
20 15 8

為了在上面建立的資料框 df2 上找到總資料,請將以下程式碼新增到上述程式碼片段中:

y<-rpois(20,20)
count<-sample(1:10,20,replace=TRUE)
df2<-data.frame(y,count)
Total_data2<-rep(y,count)
Total_data2

輸出

如果您將上面給出的所有程式碼片段作為單個程式執行,它將生成以下輸出:

[1] 25 25 14 14 13 13 13 13 13 13 13 13 22 22 22 22 22 22 18 30 30 30 30 30 30
[26] 30 30 30 22 22 22 22 22 22 22 22 22 26 23 23 23 20 20 17 17 12 12 12 12 12
[51] 20 20 20 12 12 12 12 12 12 12 12 20 11 11 11 11 11 11 11 19 19 19 13 13 13
[76] 17 17 17 17 17 17 17 17 15 15 15 15 15 15 15 15

為了在上面建立的資料框上查詢 Total_data2 的方差,請將以下程式碼新增到上述程式碼片段中:

y<-rpois(20,20)
count<-sample(1:10,20,replace=TRUE)
df2<-data.frame(y,count)
Total_data2<-rep(y,count)
var(Total_data2)

輸出

如果您將上面給出的所有程式碼片段作為單個程式執行,它將生成以下輸出:

[1] 33.33138

示例 3

以下程式碼片段建立了一個示例資料框:

z<-sample(1:2,20,replace=TRUE)
count<-sample(1:10,20,replace=TRUE)
df3<-data.frame(z,count)
df3

建立了以下資料框

  z count
1  1 8
2  1 1
3  1 3
4  1 5
5  1 3
6  2 5
7  2 6
8  1 1
9  1 10
10 2 10
11 2 6
12 2 7
13 2 1
14 1 5
15 1 4
16 1 1
17 2 2
18 1 5
19 2 2
20 2 6

為了在上面建立的資料框 df3 上找到總資料,請將以下程式碼新增到上述程式碼片段中:

z<-sample(1:2,20,replace=TRUE)
count<-sample(1:10,20,replace=TRUE)
df3<-data.frame(z,count)
Total_data3<-rep(z,count)
Total_data3

輸出

如果您將上面給出的所有程式碼片段作為單個程式執行,它將生成以下輸出:

[1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1
[39] 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 1 1 1 1 1 1 1 1 1 1
[77] 2 2 1 1 1 1 1 2 2 2 2 2 2 2 2

為了在上面建立的資料框上查詢 Total_data3 的方差,請將以下程式碼新增到上述程式碼片段中:

z<-sample(1:2,20,replace=TRUE)
count<-sample(1:10,20,replace=TRUE)
df3<-data.frame(z,count)
Total_data3<-rep(z,count)
var(Total_data3)

輸出

如果您將上面給出的所有程式碼片段作為單個程式執行,它將生成以下輸出:

[1] 0.2527473

更新於: 2021年11月2日

395 次檢視

啟動您的 職業生涯

透過完成課程獲得認證

開始
廣告