sportos = read.csv2("p:/kgyozo/sportkerdoiv.csv") sportos$nem = factor(sportos$nem,labels=c("nő","férfi")) sportos$iskola = factor(sportos$iskola,labels=c("<ált.isk.","ált.isk.","középf.","érettségi","felsőf.")) sportos$sportegyesulet = factor(sportos$sportegyesulet,labels=c("nem","igen"))