如何找到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