Хобрук: Ваш путь к мастерству в программировании

добавление средневзвешенного с агрегатом

У меня есть кадр данных ниже

library(ggplot2)
v = c(100,50,50,20,30,100,100,100,40,5)
s = c(1,10, 5, 90,40, 100, 1,1,30,5)
g = c(rep("A",5),rep("B",5))
m = c (1,1,5,5,10, 10,10,8,5,2)
d = data.frame(value = v, size= s, group = g, m = m)
d
a  = aggregate(d$v, by = list(d$m, d$g), FUN= mean)
a
ggplot(data=a, aes(x=Group.1, y=x, group=Group.2)) +
  geom_line( )+geom_point()

В настоящее время агрегат() принимает среднее значение "v" в каждой группе "g" и "m".

Вместо простого среднего я хотел бы построить средневзвешенное значение, используя «s» с каждым «g» и «m» в качестве веса. Например, когда g = A и m = 1, агрегат возвращает 75, что является средним значением 100 и 50, но я хотел бы вернуть средневзвешенное значение (100 * 1 + 50 * 10)/11 = 54.

Какой лучший способ?

Спасибо

r aggregate
28.06.2016

Ответы:


1

Мы можем использовать dplyr

library(dplyr)
d %>%
  group_by(m, group)  %>%
  summarise(vmean =  floor(weighted.mean(value, size)))
#     m  group vmean
#  <dbl> <fctr> <dbl>
#1     1      A    54
#2     2      B     5
#3     5      A    21
#4     5      B    40
#5     8      B   100
#6    10      A    30
#7    10      B   100

Или с помощью base R

by(d[c("value", "size")], list(d$group, d$m), 
             FUN = function(x) weighted.mean(x[,1], x[,2]))
28.06.2016
Новые материалы
Создание кнопочного меню с использованием HTML, CSS и JavaScript
Вы будете создавать кнопочное меню, которое имеет состояние наведения, а также позволяет вам выбирать кнопку при нажатии на нее. Финальный проект можно увидеть в этом Codepen . Шаг 1..
Внедрите OAuth в свои веб-приложения для повышения безопасности
OAuth — это широко распространенный стандарт авторизации, который позволяет приложениям получать доступ к ресурсам от имени пользователя, не раскрывая его пароль. Это позволяет пользователям..
Классы в JavaScript
class является образцом java Script Object. Конструкция «class» позволяет определять классы на основе прототипов с чистым, красивым синтаксисом. // define class Human class Human {..
Как свинг-трейдеры могут использовать ИИ для больших выигрышей
По мере того как все больше и больше профессиональных трейдеров и активных розничных трейдеров узнают о возможностях, которые предоставляет искусственный интеллект и машинное обучение для улучшения..
Как построить любой стол
Я разработчик программного обеспечения. Я люблю делать вещи и всегда любил. Для меня программирование всегда было способом создавать вещи, используя только компьютер и мое воображение...
Обзор: Машинное обучение: классификация
Только что закончил третий курс курса 4 часть специализации по машинному обучению . Как и второй курс, он был посвящен низкоуровневой работе алгоритмов машинного обучения. Что касается..
Разработка расширений Qlik Sense с qExt
Использование современных инструментов веб-разработки для разработки крутых расширений Вы когда-нибудь хотели кнопку для установки переменной в приложении Qlik Sense? Когда-нибудь просили..