par(mfrow=c(2,3))

x<- c(1, 2, 3, 4, 5) 
y<- c(80,89,95,73,98)
plot(x, y)    
plot(x, y, type="h")      
plot(x, y, type="b", xlab="학생번호", ylab="프로그램 성적")    
cat("kor Eng Mat", "70 85 90", "88 95 73", file="grade.data", sep="\n")  
g.data <- scan("grade.data", skip=1, quiet=TRUE)    
g.data

## [1] 70 85 90 88 95 73

g.mt <- matrix(scan("grade.data",skip=1), byrow=T, ncol=3)   
g.mt

##      [,1] [,2] [,3]
## [1,]   70   85   90
## [2,]   88   95   73

plot(g.mt[1,], g.mt[2,])   
pie(y, radius=1)
hist(y)