Ich bin noch ziemlicher R-Anfänger, habe es dann aber doch geschafft mit dem likert-package einen schöne Grafik zu basteln, auch mit großer Hilfe von jogo. Die beiden Gruppennamen habe ich auch leicht über das csv-file einstellen können. Gerne würde ich nun auch die Originalfragen wieder ins Spiel bringen, also statt "life_quality" z.B. "Did life quality improve in your community?"
Mein Code ist derzeit:
Code: Alles auswählen
library(likert)
#Laden der Daten aus Excel
g<-read.csv2("C:/Users/felix/OneDrive/Documents/R/SurveyData2.csv", sep=";", dec=",", header=TRUE)
str(g)
by(g, g$Location, FUN=summary)
xtabs(~ Location + econ_comm, data=g)
tapply(g$future_persp, g$Location, FUN=table)
#Both-Object erstellen
both<-g$Location
#Convert to factors
g <- within(g, {
gold_21cent <- factor(gold_21cent, levels=1:6)
future_persp <- factor(future_persp, levels=1:6)
jobs_comm <- factor(jobs_comm, levels=1:6)
inequality_comm <- factor(inequality_comm, levels=1:6)
econ_comm <- factor(econ_comm, levels=1:6)
exp_growth <- factor(exp_growth, levels=1:6)
future_region <- factor(future_region, levels=1:6)
life_quality <- factor(life_quality, levels=1:6)
workers_comm <- factor(workers_comm, levels=1:6)
work_project <- factor(work_project, levels=1:6)
coexist_tradact <- factor(coexist_tradact, levels=1:6)
informed_deals <- factor(informed_deals, levels=1:6)
contamination_environ <- factor(contamination_environ, levels=1:6)
fear_environ <- factor(fear_environ, levels=1:6)
infrastructure_comm <- factor(infrastructure_comm, levels=1:6)
emigration_comm <- factor(emigration_comm, levels=1:6)
investment_region <- factor(investment_region, levels=1:6)
agree_comm <- factor(agree_comm, levels=1:6)
water_quant <- factor(water_quant, levels=1:6)
water_qual <- factor(water_qual, levels=1:6)
conflicts_comm <- factor(conflicts_comm, levels=1:6)
included_mining <- factor(included_mining, levels=1:6)
support_govern <- factor(support_govern, levels=1:6)
proud_comm <- factor(proud_comm, levels=1:6)
} )
comm_likert = likert(g[,2:14], grouping=g[,1])
plot(comm_likert)
Liebe Grüße!