Подсчет количества элементов со значениями x в векторе
https://stackoverflow.com/questions/1923273
italiano
english
français
española
中国
日本の
العربية
Deutsch
한국어
Português
RussianВопрос
У меня есть вектор чисел:
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 подсчитывать количество раз значения Икс появляется в векторе?
Решение
Вы можете просто использовать 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
...
Другие советы
Самый прямой путь – это sum(numbers == x).
numbers == x создает логический вектор, который имеет значение TRUE в каждом месте, где встречается x, и когда sumПри этом логический вектор преобразуется в числовое, что преобразует ИСТИНА в 1 и ЛОЖЬ в 0.
Однако обратите внимание, что для чисел с плавающей запятой лучше использовать что-то вроде: sum(abs(numbers - x) < 1e-6).
Я бы, наверное, сделал что-то вроде этого
length(which(numbers==x))
Но на самом деле лучший способ
table(numbers)
А также есть count(numbers) от plyr упаковка.Гораздо удобнее, чем table по моему мнению.
Мое предпочтительное решение использует 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 ...
Если нужное значение не отображается или вам нужно сохранить это значение на будущее, сделайте a а 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
Я считаю, что редко мне хочется узнать частоту одного значения, а не всех значений, и rle кажется самым быстрым способом подсчитать и сохранить их все.
Для этого в R есть стандартная функция.
tabulate(numbers)
вот один быстрый и грязный способ:
x <- 23
length(subset(numbers, numbers==x))
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
Если вы хотите впоследствии подсчитать количество появлений, вы можете использовать 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
Вы можете изменить номер на любой другой в следующей строке.
length(which(numbers == 4))
Используя таблицу, но без сравнения с 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)
Еще один способ, который я считаю удобным:
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)))
Это преобразует набор данных в фактор, а затем summary() дает нам контрольные итоги (подсчет уникальных значений).
Выход:
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
При желании это можно сохранить как фрейм данных.
as.data.frame(cbind(Number = name(s),Freq = s), stringsAsFactors=F, row.names = 1:length(s))
здесь row.names использовался для переименования имен строк.без использования row.names имена столбцов в s используются как имена строк в новом кадре данных
Выход:
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
Существуют разные способы подсчета конкретных элементов.
library(plyr)
numbers =c(4,23,4,23,5,43,54,56,657,67,67,435,453,435,7,65,34,435)
print(length(which(numbers==435)))
#Sum counts number of TRUE's in a vector
print(sum(numbers==435))
print(sum(c(TRUE, FALSE, TRUE)))
#count is present in plyr library
#o/p of count is a DataFrame, freq is 1 of the columns of data frame
print(count(numbers[numbers==435]))
print(count(numbers[numbers==435])[['freq']])
Это можно сделать с помощью outer чтобы получить метрику равенств, за которой следует rowSums, с очевидным смыслом.
Для того, чтобы иметь подсчеты и numbers в том же наборе данных сначала создается data.frame.Этот шаг не требуется, если вы хотите разделить ввод и вывод.
df <- data.frame(No = numbers)
df$count <- rowSums(outer(df$No, df$No, FUN = `==`))
