Đếm số phần tử với các giá trị của x trong một vector

Question

Tôi có một vector số:

numbers <- c(4,23,4,23,5,43,54,56,657,67,67,435, 
     453,435,324,34,456,56,567,65,34,435) 

Làm thế nào tôi có thể có R đếm số lần một giá trị x xuất hiện trong vector?

Answer 1

Bạn có thể chỉ cần sử dụng table():

> a <- table(numbers) 
> a 
numbers 
    4 5 23 34 43 54 56 65 67 324 435 453 456 567 657 
    2 1 2 2 1 1 2 1 2 1 3 1 1 1 1 

Sau đó, bạn có thể tập hợp con nó:

> a[names(a)==435] 
435 
    3 

Hoặc chuyển đổi nó thành một data.frame nếu bạn cảm thấy thoải mái hơn khi làm việc với điều đó:

> as.data.frame(table(numbers)) 
    numbers Freq 
1  4 2 
2  5 1 
3  23 2 
4  34 2 
... 

Answer 2

đây là một cách nhanh chóng và bẩn thỉu:

x <- 23 
length(subset(numbers, numbers==x)) 

Answer 3

tôi có lẽ sẽ làm một cái gì đó như thế này

length(which(numbers==x)) 

Nhưng thực sự, một cách tốt hơn là

table(numbers) 

Answer 4

Cách trực tiếp nhất là sum(numbers == x).

numbers == x tạo ra một vector logic là TRUE ở mọi vị trí đó x xảy ra, và khi sum ing, vector logic được cưỡng chế số mà chuyển đổi TRUE để 1 và FALSE để 0.

Tuy nhiên, lưu ý rằng đối các số dấu phẩy động, tốt hơn là sử dụng một số thứ như: sum(abs(numbers - x) < 1e-6).

Answer 5

Có một chức năng tiêu chuẩn trong R cho rằng

tabulate(numbers)

Answer 6

giải pháp ưa thích của tôi sử dụng rle, mà sẽ trả về một giá trị (nhãn, x trong ví dụ của bạn) và chiều dài, đại diện cho bao nhiêu lần giá trị xuất hiện theo thứ tự.

Bằng cách kết hợp rle với sort, bạn có cách cực nhanh để đếm số lần bất kỳ giá trị nào xuất hiện. Điều này có thể hữu ích với các vấn đề phức tạp hơn.

Ví dụ:

> numbers <- c(4,23,4,23,5,43,54,56,657,67,67,435,453,435,324,34,456,56,567,65,34,435) 
> a <- rle(sort(numbers)) 
> a 
    Run Length Encoding 
    lengths: int [1:15] 2 1 2 2 1 1 2 1 2 1 ... 
    values : num [1:15] 4 5 23 34 43 54 56 65 67 324 ... 

Nếu giá trị mà bạn muốn không hiển thị, hoặc bạn cần phải lưu trữ giá trị đó cho sau này, làm cho a một data.frame.

> b <- data.frame(number=a$values, n=a$lengths) 
> b 
    values n 
1  4 2 
2  5 1 
3  23 2 
4  34 2 
5  43 1 
6  54 1 
7  56 2 
8  65 1 
9  67 2 
10 324 1 
11 435 3 
12 453 1 
13 456 1 
14 567 1 
15 657 1 

Tôi hiếm khi biết tần suất của một giá trị và không phải tất cả giá trị, và rle có vẻ là cách nhanh nhất để đếm và lưu trữ tất cả.

Answer 7

Ngoài ra còn có count(numbers) từ gói plyr. Thuận tiện hơn nhiều so với table theo ý kiến ​​của tôi.

Answer 8

hơn Một cách tôi thấy thuận tiện là:

numbers <- c(4,23,4,23,5,43,54,56,657,67,67,435,453,435,324,34,456,56,567,65,34,435) 
(s<-summary (as.factor(numbers))) 

này chuyển đổi dữ liệu đến yếu tố, và sau đó tóm tắt() cho chúng ta những tổng số kiểm soát (tội danh các giá trị duy nhất).

Output là:

4 5 23 34 43 54 56 65 67 324 435 453 456 567 657 
2 1 2 2 1 1 2 1 2 1 3 1 1 1 1 

này có thể được lưu trữ như dataframe nếu ưa thích.

as.data.frame (cbind (Số = tên (s), Freq = s), stringsAsFactors = F, row.names = 1: length (s))

đây liên tiếp. tên đã được sử dụng để đổi tên tên hàng. mà không sử dụng row.names, tên cột trong s được sử dụng như tên hàng trong dataframe mới

Output là:

 Number Freq 
1  4 2 
2  5 1 
3  23 2 
4  34 2 
5  43 1 
6  54 1 
7  56 2 
8  65 1 
9  67 2 
10 324 1 
11 435 3 
12 453 1 
13 456 1 
14 567 1 
15 657 1 

Answer 9

Sử dụng bảng nhưng không có so sánh với names:

numbers <- c(4,23,4,23,5,43,54,56,657,67,67,435) 
x <- 67 
numbertable <- table(numbers) 
numbertable[as.character(x)] 
#67 
# 2 

table là hữu ích khi bạn đang sử dụng số lượng các yếu tố khác nhau nhiều lần. Nếu bạn chỉ cần một số, sử dụng sum(numbers == x)

Answer 10

Nếu bạn muốn đếm số lần xuất hiện sau đó, bạn có thể tận dụng các sapply chức năng:

index<-sapply(1:length(numbers),function(x)sum(numbers[1:x]==numbers[x])) 
cbind(numbers, index) 

Output:

 numbers index 
[1,]  4  1 
[2,]  23  1 
[3,]  4  2 
[4,]  23  2 
[5,]  5  1 
[6,]  43  1 
[7,]  54  1 
[8,]  56  1 
[9,]  657  1 
[10,]  67  1 
[11,]  67  2 
[12,]  435  1 
[13,]  453  1 
[14,]  435  2 
[15,]  324  1 
[16,]  34  1 
[17,]  456  1 
[18,]  56  2 
[19,]  567  1 
[20,]  65  1 
[21,]  34  2 
[22,]  435  3 

Answer 11

Bạn có thể thay đổi số thành bất kỳ thứ gì bạn muốn trong dòng sau

length(which(numbers == 4)) 

Answer 12

numbers <- c(4,23,4,23,5,43,54,56,657,67,67,435 453,435,324,34,456,56,567,65,34,435) 

> length(grep(435, numbers)) 
[1] 3 


> length(which(435 == numbers)) 
[1] 3 


> require(plyr) 
> df = count(numbers) 
> df[df$x == 435, ] 
    x freq 
11 435 3 


> sum(435 == numbers) 
[1] 3 


> sum(grepl(435, numbers)) 
[1] 3 


> sum(435 == numbers) 
[1] 3 


> tabulate(numbers)[435] 
[1] 3 


> table(numbers)['435'] 
435 
    3 


> length(subset(numbers, numbers=='435')) 
[1] 3