library('foreign')
Sys.setlocale(category = "LC_ALL", locale = "Greek")

masticha <- read.spss('02_masticha.sav', to.data.frame=TRUE)

names(masticha) <- c('id', 'arithmos.deltiou', 'nvisits', 'residence', 'duration', 
"a4_drinks" , "b4_bread" , "c4_sweets" , "d4_cosmetics", "e4_pharmac" , "choice1" , "choice2" , 
"knowledge.after.visit" , "new.knowledge.sec" , "store.image" , "a9_location" , 
"b9_ext_image" , "c9_decoration", "d9_prices" , "e9_service" , "z9_order.cleaning" , 
"h9_music" , "reason.of.visit" , "a11_pres.masticha" , "b11_pres.comsetics" , 
"c11_pres.oral.hygiene" , "d11_pres.sweets",
"d11_pres.bread" , "z11_pres.candies" , "h11_pres.book.rec" , "th11_pres.book.trad" , 
"i11_pres.kentimata" , "k11_pres.pictures" , "l11_pres.pharmac" , "revisit.intention" , 
"annual.visits", "distance" , "a15_int.masticha" , "b15_int.cosm" , "c15_int.oral" , 
"d15_int.sweets" , "e15_int.bread" , "z15_int.candies" , "15_int.book.rec" , "th15_int.book.trad",
"i15_int.kentimata" , "k15_int.pict" , "l15_int.pharmac" , "reason.chios.visit" , 
"impor.natural.ingred" , "impor.recycling" , "gender" , "family.status" , "n.children", 
"age" , "age2" , "profession" , "income" , "income2" , "education" , "education2" , "knowledge" , 
"image", "variety.products" , "intention.to.buy" , "amount" , "nitems" , "types.prod" , "families" , 
"value.per.item")

frq(masticha$residence)
frq(masticha$reason.of.visit)


x<-masticha$reason.of.visit
tabx <- table(x)                                
tabx[which(tabx == max(tabx))]
par(mfrow=c(2,1))
barplot(table(masticha$reason.of.visit))
pie(table(masticha$reason.of.visit))
par(mar = c(5, 16, 4, 2))
barplot(table(masticha$reason.of.visit), horiz=TRUE,las=1, border=NA)

frq(masticha$d9_prices)
library(psych)
describe(as.numeric(masticha$d9_prices))