How to store loop table data - r

Question

I am a newbie in R. Could somebody please help me with this problem? I want to store the loop table data and export it into excel file, but I have not succeeded. Thanks.
Qquest7 <- c("A", "B", "A", "A", "A", "B", "B", "B", "B", "A")
Qquest24 <- c("neutral", "somewhat satisfied", "somewhat satisfied", "not able to rate", "somewhat satisfied", "less satisfied", "not able to rate", "dissatisfied", "very satisfied", "dissatisfied")
Qquest25 <- c("not able to rate", "not able to rate", "not able to rate", "somewhat satisfied", "not able to rate", "not able to rate", "dissatisfied", "dissatisfied", "not able to rate", "very satisfied")
Qquest26 <- c("not able to rate", "somewhat satisfied", "not able to rate", "less satisfied", "not able to rate", "neutral", "somewhat satisfied", "neutral", "neutral", "somewhat satisfied")
Qquest27 <- c("very satisfied", "not able to rate", "somewhat satisfied", "neutral", "very satisfied", "neutral", "neutral", "somewhat satisfied", "neutral", "not able to rate")
Qquest28 <- c("not able to rate", "not able to rate", "not able to rate", "not able to rate", "not able to rate", "not able to rate", "very satisfied", "neutral", "somewhat satisfied", "neutral")
Qquest29 <- c("desktop", "laptop", "tablet", "cellphone", "desktop", "desktop", "tablet", "laptop", "cellphone", "laptop")
df <- data.frame(Qquest7, Qquest24, Qquest25, Qquest26, Qquest27, Qquest28, Qquest29)
library(openxlsx)
trial2429 <- c("Qquest24","Qquest25", "Qquest26", "Qquest27", "Qquest28", "Qquest29")
x <- data.frame()
y <- data.frame()
for (i in df[trial2429]){
x[i] <- table(df$Qquest7, i)
y <- print(x)
}
write.xlsx(y, file = "trial2429.xlsx")

Answer 1

I'm not 100% what you're after as desired output, but this function I've used for my own purposes might do the trick for you. Using your df and trial2429 for data, first give trial2429 some names:
names(trial2429) <- trial2429
Now, build a function that takes a list and sequentially adds its contents to a .csv file:
## Export list
export_results <- function(df_list, file_name = "outfile.csv") {
if (file.exists(file_name)) {
file.remove(file_name)
print("Removed old file.")
}
## Clean export function
writeout <- function(table_name) {
write(table_name, file_name, sep = ",", append = TRUE)
tab.out <- df_list[[table_name]]
tab.out <- cbind(rownames(tab.out), tab.out)
write.table(
tab.out,
file_name,
row.names = FALSE,
sep = ",",
append = TRUE
)
write("", file_name, sep = ",", append = TRUE)
}
for (i in names(df_list)) {
writeout(i)
}
}
Get the table version for each question that you're after, and store it in a list:
q.list <- lapply(trial2429, function(x){
table(df$Qquest7, df[[x]])
})
Call the function defined above on that list:
export_results(q.list, file_name = "trial2429.csv")
It'll throw some warning messages, but it seems to not cause any problems- your output should like this in Excel:
Edit: Fixed number-of-columns issue