У меня есть 40 ответов (Q1_Biodiv, Q1_Poll, ....) в опросе, где я хочу проанализировать социальные дескрипторы для каждого ответа.Я хочу выписать описательные результаты моих данных и объединить их с итоговыми результатами ANOVA для нескольких ответов.Затем я хотел бы написать все в одном листе Excel.
Мои данные таковы:
Q1_Biodiv Q1_Poll gender2 edu3 job3 country2
2 2 1 1 1 1
3 3 1 1 1 1
2 2 1 1 2 1
2 5 1 1 1 1
2 5 1 1 1 2
5 5 2 1 2 2
3 3 1 1 2 2
5 5 2 1 1 1
5 5 2 1 1 1
3 3 1 1 2 1
3 3 1 1 1 2
2 2 1 1 1 2
Я попробовал этот код: я использую библиотеку (WriteXLS) и библиотеку (метла))
db1$job <- factor(db1$job)
job <- tabular( Q1_Biodiv+Q1_Poll ~ job* (mean+sd), data=db1
db1$education <- factor(db1$education)
edu<- tabular( Q1_Biodiv+Q1_Poll ~ education* (mean+sd), data=db1 )
db1$gender <- factor(db1$gender)
ge <- tabular( Q1_Biodiv+Q1_Poll ~ gender* (mean+sd), data=db1)
db1$country <- factor(db1$country)
co <- tabular( Q1_Biodiv+Q1_Poll~country* (mean+sd), data=db1)
####### ANOVA
av11 <- anova(lm(Q1_Biodiv~job+edu+gender+country,data=db1))
av11<-tidy(av11)
# save everything to the same excel sheet in the right order
# Dosen't work with this
WriteXLS(av1, "descriptives.xlsx")
Может ли кто-нибудь быть так любезен, чтобы помочь мне закончить всю задачу ???Большое спасибо заранее!