tidyr

When I run the code below, everything works as expected # install.packages("dynlm") # install.packages("tidyr") require(dynlm) require(tidyr) Time <- 1950:1993 Y <- c(5820, 5843, 5917, 6054, 6099, 6365, 6440, 6465, 6449, 6658, 6698, 6740, 6931, 7089, 7384, 7703, 8005, 8163, 8506, 8737, 8842, 9022, 9425, 9752, 9602, 9711, 10121, 10425, 10744, 10876, 10746, 10770, 10782, 11179, 11617, 12015, 12336, 12568, 12903, 13029, 13093, 12899, 13110, 13391) X <- c(6284, 6390, 6476, 6640, 6628, 6879, 7080, 7114, 7113, 7256, 7264, 7382, 7583, 7718, 8140, 8508, 8822, 9114, 9399, 9606, 9875, 10111, 10414,

I am working with large datasets and tidyr's spread usually gives me error messages suggesting failure to obtain memory to perform the operation. Therefore, I have been exploring dbplyr . However, as it says here , and also shown below, dbplyr::spread() does not work. My question here is whether there is another way to accomplish what tidyr::spread does while working with tbl_dbi and tbl_sql data without downloading to local memory. Using sample data from here , below I present what I get and what I would like to do and get. #sample tbl_dbi and tbl_sql data df_sample <- tribble(~group1,

I have data of the following: > data <- data.frame(unique=1:9, grouping=rep(c('a', 'b', 'c'), each=3), value=sample(1:30, 9)) > data unique grouping value 1 1 a 15 2 2 a 21 3 3 a 26 4 4 b 8 5 5 b 6 6 6 b 4 7 7 c 17 8 8 c 1 9 9 c 3 I would like to create a table that looks like this: a b c 1 15 8 17 2 21 6 1 3 26 6 3 I am using tidyr::spread and not getting the correct result: > data %>% spread(grouping, value) unique a b c 1 1 15 NA NA 2 2 21 NA NA 3 3 26 NA NA 4 4 NA 8 NA 5 5 NA 6 NA 6 6 NA 4 NA 7 7 NA NA 17 8 8 NA NA 1 9 9 NA NA 3 Or > data %>% select(grouping, value) %>% spread(grouping,

tidyr's spread function only takes column names without quotes. Is there a way I can pass in a variable that contains the column name for eg # example using gather() library("tidyr") dummy.data <- data.frame("a" = letters[1:25], "B" = LETTERS[1:5], "x" = c(1:25)) dummy.data var = "x" dummy.data %>% gather(key, value, var) This gives an error Error: All select() inputs must resolve to integer column positions. The following do not: * var Which is solved using match function which gives the required column position dummy.data %>% gather(key, value, match(var, names(.))) But this same approach