Perform multiple paired t-tests based on groups/categories

by

The tidy way of doing it is using dplyr and broom:

library(dplyr)
library(broom)

df <- data %>% 
  group_by(Product_type) %>% 
  do(tidy(t.test(.$Price_Online, 
                 .$Price_Offline, 
                 mu = 0, 
                 alt = "two.sided", 
                 paired = TRUE, 
                 conf.level = 0.99))))

Much more readable than my base r solution, and it handles the column names for you!

EDIT
A more idiomatic way to do it rather than using do (see r4ds) is to use nest to create nested dataframes for each product type, then run a t-test for each nested dataframe using map from purrr. 

library(broom)
library(dplyr)
library(purrr)
library(tidyr)

t_test <- function(df, mu = 0, alt = "two.sided", paired = T, conf.level = .99) {
  tidy(t.test(df$Price_Offline, 
              df$Price_Online,
              mu = mu, 
              alt = alt,
              paired = paired,
              conf.level = conf.level))
}

d <- df %>%
  group_by(Product_type) %>%
  nest() %>%
  mutate(ttest = map(data, t_test)) %>%
  unnest(ttest, .drop = T)

More Related Contents:

  1. How to reproduce a table of student? [closed]
  2. Faster ways to calculate frequencies and cast from long to wide
  3. How can I remove all duplicates so that NONE are left in a data frame?
  4. strptime, as.POSIXct and as.Date return unexpected NA
  5. Why is it not advisable to use attach() in R, and what should I use instead?
  6. How to delete a row by reference in data.table?
  7. How to replace NA with mean by group / subset?
  8. R – Concatenate two dataframes?
  9. Controlling ggplot2 legend display order
  10. Error in plot.new() : figure margins too large in R
  11. Generate a repeating sequence based on vector
  12. anova test fails on lme fits created with pasted formula
  13. Why is apply() method slower than a for loop in R?
  14. How do I import a CSV file in R? [closed]
  15. How can we make xkcd style graphs?
  16. First entry from string split
  17. World map with ggmap
  18. Saving a graph with ggsave after using ggplot_build and ggplot_gtable
  19. Import data into R with an unknown number of columns?
  20. set ggplot plots to have same x-axis width and same space between dot plot rows
  21. Split the title onto multiple lines?
  22. lapply-ing with the “$” function
  23. How to replace NA (missing values) in a data frame with neighbouring values
  24. Trying to merge multiple csv files in R
  25. Reshape a dataframe to long format with multiple sets of measure columns [duplicate]
  26. Check if string contains ONLY NUMBERS or ONLY CHARACTERS (R)
  27. Empty factors in “by” data.table
  28. remove text after final period in string
  29. Custom legend with imported images
  30. What you can do with a data.frame that you can’t with a data.table?

Leave a Comment