如何计算R中向量中大于某个值的元素数量？

在数据分析中，有时我们需要计算大于或小于某个特定值的值的数量，并且该特定值可能是阈值。例如，我们可能有一个包含人的血压值的向量，我们可能想检查有多少个值大于120。在这种情况下，我们可以使用长度函数，如以下示例所示。

示例

x1<-1:10
x1

输出结果

[1] 1 2 3 4 5 6 7 8 9 10

示例

length(x1[x1>1])

输出结果

[1] 9

示例

x2<-rpois(100,10)
x2

输出结果

[1] 7 8 8 11 11 10 5 8 10 7 13 12 14 13 13 11 6 17 17 13 18 8 13 11 11
[26] 10 10 7 9 10 10 6 11 12 12 10 5 12 14 8 7 5 8 15 9 6 10 10 5 8
[51] 10 10 7 7 11 16 7 9 14 9 16 8 14 3 10 13 11 7 9 6 4 9 14 14 12
[76] 15 10 9 9 11 9 9 14 10 14 9 11 6 9 14 8 7 9 11 9 10 7 12 5 8

示例

length(x2[x2>5])

输出结果

[1] 93

示例

x3<-rpois(120,5)
x3

输出结果

[1] 4 3 5 0 3 1 1 5 7 6 8 7 4 7 9 11 2 7 3 4 1 5 7 8 5
[26] 6 8 5 5 4 4 8 4 5 9 4 9 3 4 8 8 3 10 3 6 4 4 2 6 4
[51] 7 3 4 3 6 8 2 5 7 4 6 7 6 7 5 5 4 3 8 9 7 4 4 4 1
[76] 3 5 5 5 7 8 4 6 7 4 3 5 2 6 4 6 7 6 3 5 10 7 6 4 5
[101] 10 10 7 7 3 11 7 9 3 8 1 8 5 9 3 6 5 9 5 4

示例

length(x3[x3>5])

输出结果

[1] 42

示例

x4<-sample(0:9,120,replace=TRUE)
x4

输出结果

[1] 2 4 5 3 4 3 6 3 2 3 7 5 7 8 0 2 6 0 3 3 1 8 2 1 5 5 3 4 6 3 5 2 6 1 3 9 3
[38] 2 8 6 8 4 9 0 9 2 8 0 5 8 1 5 5 1 2 7 6 8 9 8 8 2 0 0 2 2 2 4 7 2 9 2 5 7
[75] 5 4 2 8 7 3 4 5 2 8 0 2 3 4 6 3 3 3 5 8 4 9 4 8 6 2 9 0 2 6 3 1 2 8 8 4 5
[112] 8 5 7 2 4 0 4 4 0

示例

length(x4[x4>0])

输出结果

[1] 108

示例

x5<-sample(1:10,120,replace=TRUE)
x5

输出结果

[1] 2 5 9 6 1 2 5 8 6 2 2 10 6 2 4 10 6 9 10 7 9 9 7 2 7
[26] 10 9 5 2 9 4 2 2 8 5 1 7 2 3 2 2 5 2 1 2 7 3 4 9 5
[51] 8 5 9 1 1 8 2 1 1 1 5 10 1 4 9 8 9 4 9 3 1 5 1 9 6
[76] 6 5 3 9 5 3 9 2 2 8 2 5 6 4 4 1 7 2 7 4 7 2 6 1 10
[101] 10 4 3 7 4 6 1 6 9 4 8 2 4 7 1 5 5 1 6 2

示例

length(x5[x5>1])

输出结果

[1] 107

示例

x6<-round(rnorm(120,5,0.8),0)
x6

输出结果

[1] 5 5 5 5 5 5 5 5 5 4 3 5 5 5 5 5 3 5 6 3 5 5 5 6 6 6 5 5 5 5 4 5 5 6 6 5 6
[38] 5 4 5 5 5 7 6 6 5 5 6 5 5 4 4 4 6 5 4 6 6 4 5 5 7 7 5 6 5 5 6 4 5 4 6 4 6
[75] 6 5 4 4 5 6 6 6 5 5 4 5 4 4 3 6 6 7 5 6 5 5 5 5 6 7 4 5 4 6 5 7 4 6 5 5 4
[112] 6 5 5 6 5 6 5 5 6

示例

length(x6[x6>5])

输出结果

[1] 31

示例

x7<-round(rexp(120,1.2),0)
x7

输出结果

[1] 0 1 0 1 2 0 0 2 1 0 1 0 0 0 2 0 1 2 2 0 1 0 2 1 3 1 0 0 0 0 1 0 0 2 1 4 1
[38] 0 1 2 0 1 0 1 3 1 0 3 0 0 2 1 1 2 1 1 0 1 1 2 1 0 1 1 0 1 2 0 1 0 0 1 1 1
[75] 2 0 1 0 0 2 0 3 0 2 1 1 0 3 1 1 0 0 1 3 1 1 1 2 0 0 0 0 1 2 0 0 1 0 0 3 1
[112] 2 0 0 1 1 0 0 1 0

示例

length(x7[x7>1])

输出结果

[1] 21

示例

x8<-round(runif(120,2,5),0)
x8

输出结果

[1] 3 3 4 3 5 2 2 4 4 2 3 4 3 3 4 4 5 4 5 5 2 4 3 4 3 3 3 5 2 3 3 2 3 3 5 3 4
[38] 5 4 2 3 3 2 4 2 4 3 4 4 2 3 3 3 4 4 5 4 5 4 3 3 3 5 4 5 3 3 2 5 2 4 3 3 4
[75] 4 4 2 4 4 2 4 2 5 4 3 3 3 3 4 2 4 5 4 3 4 2 2 2 4 3 5 4 3 5 3 4 5 5 3 2 3
[112] 3 4 4 3 2 4 4 2 2

示例

length(x8[x8>4])

输出结果

[1] 19

示例

x9<-sample(100:120,120,replace=TRUE)
x9

输出结果

[1] 103 107 100 103 119 113 104 114 107 116 102 116 115 103 104 103 106 110
[19] 101 106 120 108 111 100 101 107 101 119 113 117 107 119 114 118 115 118
[37] 107 110 116 118 102 118 106 113 112 112 104 119 112 120 115 113 104 120
[55] 105 113 112 119 117 118 103 116 120 107 115 108 105 104 106 106 106 107
[73] 107 112 114 113 111 101 100 107 115 116 111 106 111 108 102 109 108 102
[91] 109 109 112 118 119 109 116 112 101 103 114 119 106 117 120 113 101 118
[109] 109 103 106 109 119 113 111 108 106 106 111 103

示例

length(x9[x9>118])

输出结果

[1] 11

示例

x10<-sample(1001:9999,120)
x10

输出结果

[1] 3488 7457 9491 7422 2716 8570 3510 7737 1234 9748 1222 7851 9055 7677 2331
[16] 1511 3830 7976 3207 6283 8621 8166 1846 8450 6794 2995 5714 4353 6299 5056
[31] 3793 2882 4625 6558 4089 5635 5463 4580 7773 6027 2602 1970 9832 1240 9925
[46] 2786 9829 3931 9500 9508 2617 1652 7741 1560 3448 9895 1329 8854 5187 2161
[61] 2404 4165 7624 1123 5403 8007 5057 5184 3152 8221 2635 5477 9033 6386 6171
[76] 3779 5946 2944 4102 5216 9475 6895 4553 6728 3989 7808 1869 8465 9322 5939
[91] 9161 9620 7835 3986 8397 5404 7229 5472 3104 3584 5423 3961 5396 6813 1986
[106] 7241 7724 6955 6082 8359 1904 3839 7441 6690 9601 8432 4561 7033 2314 3743

示例

length(x10[x10>5000])

输出结果

[1] 68