Возможно, это просто, но я не могу найти ответ в Интернете. У меня проблема с расчетом среднего по факторам по уровням. Мои данные выглядят типично:
factor, value
a,1
a,2
b,1
b,1
b,1
c,1
Я хочу, чтобы вектор A содержал среднее значение только для уровня "a". Если я набираю A на консоли, я хочу получить 1.5. И этот метод вычисления среднего должен использовать коэффициенты.
Заранее благодарю за помощь.
Просто для удовольствия опубликовать решение data.table, хотя вам, вероятно, следует сделать то, что предлагает @lukeA
library(data.table)
A <- setDT(df)[factor == "a", mean(value)]
## [1] 1.5
aggregate(value~factor, FUN=mean) в Python (не говоря уже о том, что Pandas скопировал все из R).
- person David Arenburg; 06.11.2018
np.reshape(-1,.... Можно в итераторе загнать горпубы и тд. Но думаю, эта дискуссия ни к чему не приведет :)
- person David Arenburg; 06.11.2018
взгляните на tapply, который позволяет вам разбить вектор в соответствии с фактором (факторами) и применить функцию к каждому подмножеству
> dat<-data.frame(factor=sample(c("a","b","c"), 10, T), value=rnorm(10))
> r1<-with(dat, tapply(value, factor, mean))
> r1
a b c
0.3877001 -0.4079463 -1.0837449
> r1[["a"]]
[1] 0.3877001
Вы можете получить доступ к своим результатам, используя r1[["a"]] и т. Д.
В качестве альтернативы можно использовать один из популярных пакетов R (plyr).
> library(plyr)
> r2<-ddply(dat, .(factor), summarize, mean=mean(value))
> r2
factor mean
1 a 0.3877001
2 b -0.4079463
3 c -1.0837449
> subset(r2,factor=="a",select="mean")
mean
1 0.3877001
Вместо этого вы также можете использовать dlply (который принимает фрейм данных и вместо этого возвращает список)
> dlply(dat, .(factor), summarize, mean=mean(value))$a
mean
1 0.3877001
ddply на ddply(dat, .(factor, factor2), summarize, mean=mean(value)), и это будет распространено на большее количество столбцов, по которым вы хотите сгруппировать. надеюсь, это поможет
- person JPC; 15.01.2020
Следующий код запрашивает среднее значение, когда factor = a:
mean(data$value[data$factor == "a"])
Еще одна простая возможность - это функция "by":
by(value, factor, mean)
Среднее значение фактора «а» можно получить следующим образом:
factor_means <- by(value, factor, mean)
factor_means[attr(factor_means, "dimnames")$factor=="a"]
aggregate(value~factor, FUN=mean)- person Thomas schedule 30.04.2014