exampleForStackOver.R

In SensataUX/sensataDataAnalysis: Package for Analysis of Sensata Survey Data

#Minimal working example

library(tidyverse)
graphData <- tibble(y = rep(1:5,2),
                    ponde = runif(10, min = 0, max = 1),
                    z = rep(1:2,5)
                    )

totalData <- graphData %>%
  group_by(z) %>%
  summarise(val1 = prop.table(questionr::wtd.table(y, weights = ponde))[1]*100,
            val2 = prop.table(questionr::wtd.table(y, weights = ponde))[2]*100,
            val3 = prop.table(questionr::wtd.table(y, weights = ponde))[3]*100,
            val4 = prop.table(questionr::wtd.table(y, weights = ponde))[4]*100,
            val5 = prop.table(questionr::wtd.table(y, weights = ponde))[5]*100)

totalData <- graphData %>%
  group_by(z) %>%
  summarise(val = list(prop.table(questionr::wtd.table(y, weights = ponde))*100)) %>%
  unnest_wider(val)


# What I would like

nFinal <- 10 #or any valued

totalData <- graphData %>%
  summarise(val1 = prop.table(questionr::wtd.table(y, weights = ponde))[1]*100,
            val2 = prop.table(questionr::wtd.table(y, weights = ponde))[2]*100,
            val3 = prop.table(questionr::wtd.table(y, weights = ponde))[3]*100,
            val4 = prop.table(questionr::wtd.table(y, weights = ponde))[4]*100,
            val5 = prop.table(questionr::wtd.table(y, weights = ponde))[5]*100,
            ...
          valnFinal = prop.table(questionr::wtd.table(y, weights = ponde))[nFinal]*100)