# logikai vektor csak a vietnámi L1-et tartalmazó sorokra
viet = Chinese$L1 == "Vietnamese"

xmin = 0
xmax = 100
ymin = 0
ymax = 0.03

# ábra

plot(density(Chinese$score[viet]), xlim = c(xmin,xmax), ylim = c(ymin,ymax),lwd=2,col="green", main = "vietnámi és angol tanulók pontszámai", xlab = "csoportonként n = 50", ylab = "sűrűség")

# ne hozzon létre új ábrát, hanem a meglévőbe rajzolja a következő görbét

par(new=T)

# angol (azaz nem vietnámi) sorok ábrázolása
# a tengelyeket ne rajzolja újra

plot(density(Chinese$score[!viet]), xlim = c(xmin,xmax), ylim = c(ymin,ymax),lwd=2,col="blue",main = "",xlab = "", ylab = "")

# ábra mentése

# pdf-ként
dev.print("kinai_pontszamok.pdf",device=pdf)

# képformátumban
png(file="kinai_pontszamok.png",bg="white")

# utána kell létrehozni az ábrát, majd

device(off)