Получение среднего значения множества переменных после группировки по дате с использованием R

Question

Вот мой набор данных: https://app.box.com/s/x5eux7mhdc0geyck4o47ttmpynah0wqk

Снимок:

Я хочу создать фрейм данных вкакое среднее значение настроений будет присутствовать в группе за 2 месяца.

Я попробовал следующий код:

sentiment_dataset$created_at <- ymd_hms(sentiment_dataset$created_at)

sentiment_time <- sentiment_dataset %>% 
  group_by(created_at = cut(created_at, breaks="2 months")) %>%
          summarise(negative = mean(negative),
                    positive = mean(positive)) %>% melt

Он выдал следующую ошибку:

Using created_at as id variables Error in match.names(clabs, names(xi)) : names do not match previous names

Answer 1

Я бы заказал пакет tibbletime :

library(tibbletime)
library(tidyverse)

sentiment_dataset %>%
  arrange(created_at) %>%
  as_tbl_time(index = created_at) %>%
  collapse_by("2 months", clean = TRUE) %>%
  group_by(created_at) %>%
  summarise(negative = mean(negative),
            positive = mean(positive))

# A time tibble: 48 x 3
# Index: created_at
   created_at          negative positive
   <dttm>                 <dbl>    <dbl>
 1 2010-09-01 00:00:00    0.143    1.43 
 2 2010-11-01 00:00:00    0.273    0.727
 3 2011-01-01 00:00:00    0.208    0.792
 4 2011-03-01 00:00:00    0.5      1.38 
 5 2011-05-01 00:00:00    0.25     0.75 
 6 2011-07-01 00:00:00    1        1    
 7 2011-09-01 00:00:00    0        1.5  
 8 2011-11-01 00:00:00    0.333    1    
 9 2012-01-01 00:00:00    0        0    
10 2012-03-01 00:00:00    0        1.6  
# ... with 38 more rows

Естественно, вы можете передать команду gather() после этого ... например:

sentiment_dataset %>%
  arrange(created_at) %>%
  as_tbl_time(index = created_at) %>%
  collapse_by("2 months", clean = TRUE) %>%
  group_by(created_at) %>%
  summarise(negative = mean(negative),
            positive = mean(positive)) %>%
  gather(sentiment, mean_sentiment, -created_at) %>%
  ggplot(., aes(created_at, mean_sentiment, color = sentiment)) +
  geom_point() +
  geom_line() +
  geom_smooth()

Answer 2

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

library(dplyr)
library(tidyr)

sentiment_time <- sentiment_dataset %>%
  mutate(created_at = cut(created_at, breaks="2 months")) %>%
  group_by(created_at) %>%
  summarize(negative = mean(negative),
            positive = mean(positive)) %>%
  gather('sentiment', 'mean_value', negative, positive)