Подсчет количества элементов со значениями х в векторе

Question

У меня есть вектор чисел:

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

Как я могу иметь R подсчитать, сколько раз значение х появляется в векторе?

Answer 1

Вы можете просто использовать 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 

Тогда вы можете подмножество его:

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

Или превратить его в data.frame, если вы более комфортно работать с этим:

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

Answer 2

здесь один быстрый и грязный способ:

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

Answer 3

я бы, вероятно, сделать что-то вроде этого

length(which(numbers==x)) 

Но на самом деле, лучший способ

table(numbers) 

Answer 4

Самый прямой путь sum(numbers == x).

numbers == x создает логический вектор, ИСТИНА в любом месте, которое происходит х, и когда sum ИНГ, логический вектор приведен к цифровому, который преобразует значение TRUE 1 и FALSE 0.

Однако, обратите внимание, что для чисел с плавающей запятой лучше использовать что-то вроде: sum(abs(numbers - x) < 1e-6).

Answer 5

Существует стандартная функция R для этого

tabulate(numbers)

Answer 6

Мой предпочтительным решением использует rle, который будет возвращать значение (метку, x в вашем примере) и длиной, которая представляет сколько раз это значение появилось в последовательности.

Объединив rle с sort, у вас есть чрезвычайно быстрый способ подсчета количества раз, когда появилось какое-либо значение. Это может быть полезно при более сложных проблемах.

Пример:

> 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 ... 

Если значение, которое вы хотите не отображается, или вам нужно сохранить это значение для последующего использования, сделать adata.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 

Я считаю, что это редко, что я хочу знать частоту одного значения и не все значения, и RLE, кажется, самый быстрый способ получить подсчитывать и хранить их все.

Answer 7

Существует также count(numbers) от plyr упаковка. Намного удобнее, чем table.

Answer 8

Еще один способ я считаю удобным является:

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))) 

Это преобразует набор данных к фактору, а затем резюме() дает нам контрольные суммы (Графы уникальных значений).

Выход:

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 

Это может быть сохранена как dataframe, если предпочтительным.

as.data.frame (cbind (Number = имена (ы), Freq = S), stringsAsFactors = F, row.names = 1: длина (ы))

здесь строки. имена были использованы для переименования имен строк. без использования row.names, имена столбцов в S используются в качестве имен строк в новой dataframe

Выход:

 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

Используя таблицу, но без сравнения с 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 является полезно, когда вы используете подсчеты разных элементов несколько раз. Если вам нужен только один счет, использовать sum(numbers == x)

Answer 10

Если вы хотите, чтобы подсчитать количество появлений впоследствии, вы можете использовать sapply функции:

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

Выход:

 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

You может изменить номер по вашему желанию в следующей строке

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