如何在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 次查看

启动您的 职业生涯

通过完成课程获得认证

开始
广告

© . All rights reserved.