Another way to do pivot table in R

Question

I have data set like below:

> head(worldcup)
               Team   Position Time Shots Passes Tackles Saves
Abdoun      Algeria Midfielder   16     0      6       0     0
Abe           Japan Midfielder  351     0    101      14     0
Abidal       France   Defender  180     0     91       6     0
Abou Diaby   France Midfielder  270     1    111       5     0
Aboubakar  Cameroon    Forward   46     2     16       0     0
Abreu       Uruguay    Forward   72     0     15       0     0

Then there is a code count mean of certain variables:

wc_3 <- worldcup %>% 
  select(Time, Passes, Tackles, Saves) %>%
  summarize(Time = mean(Time),
            Passes = mean(Passes),
            Tackles = mean(Tackles),
            Saves = mean(Saves))

and the output is:

> wc_3
      Time   Passes  Tackles     Saves
1 208.8639 84.52101 4.191597 0.6672269

Then I need to perform an output like below:

      var           mean
     Time    208.8638655
   Passes     84.5210084
  Tackles      4.1915966
    Saves      0.6672269

I tried to do like this:

wc_3 <- worldcup %>% 
  select(Time, Passes, Tackles, Saves) %>%
  summarize(Time = mean(Time),
            Passes = mean(Passes),
            Tackles = mean(Tackles),
            Saves = mean(Saves)) %>%
  gather(var, mean, Time:Saves, factor_key=TRUE)

The output is same. My question: is there anyway to perform the same output with the different way?

This is my a course but my submission was rejected. I do not know why but I had ask the about this.

Please advise

Hm a transpose function for tibbles could be nice (is there one?), like `wc_3 %>% t %>% as.data.frame %>% tibble::rownames_to_column() %>% setNames(c("var", "mean"))`. — lukeA, Sep 23 '16 at 09:23

akrun · Accepted Answer · 2016-09-26T14:59:55.423

8

One option will be to gather first, group by 'Var' and summarise to get the mean of 'Val'

library(dplyr)
library(tidyr)
worldcup %>% 
       gather(Var, Val, Time:Saves) %>% 
       filter(Var!= "Shots") %>%
       group_by(Var) %>% 
       summarise(Mean = mean(Val))

edited Sep 26 '16 at 14:59

answered Sep 23 '16 at 09:00

akrun

874,273
37
540
662

Why are you filtering for `Var != "Saves"`? – yeedle Sep 26 '16 at 14:55
@AbeNeuwirth Thank you for the comment. I actually meant to remove `Shots` as it was not in the expected output – akrun Sep 26 '16 at 15:00

score 0 · Answer 2 · answered Sep 23 '16 at 09:50

Another option is to transpose your output wc_3, as follows:

result <- as.data.frame(t(w_c))

Set the name of your "mean" variable:

names(result)[1] <- "mean"

The names of the columns from wc_3 have become rownames in 'result', so we need to get these as values of the column "var":

result$var <- rownames(result)

Set the rownames in our 'result' table as NULL:

rownames(result) <- NULL

Interchange the order of columns:

result <- result[,c(2,1)]

Another way to do pivot table in R

2 Answers2

Linked