과제 1

성적.txt 활용-행합계 추가, 필드명 추가, 출력

##      [,1] [,2] [,3]
## [1,]    1    2    3
## [2,]    4    5    6
## [3,]    7    8    9

##   1열 2열 3열 행합계
## 1   1   2   3      6
## 2   4   5   6     15
## 3   7   8   9     24

과제 2

과제1 연결 활용- 각 필드(열)별 평균 계산 행 추가, 행명 추가

각 필드별 평균 barplot으로 시각화

##          1열 2열 3열 행합계
## 1행        1   2   3      6
## 2행        4   5   6     15
## 3행        7   8   9     24
## 각열평균   4   5   6     15

과제 3

student.txt 활용-학번과 이름 제거, 과목별 평균 시각화

lapply()활용 : pointbar <-as.numeric(lapply(student1, mean))

색상 초기화 : colors <- c( );

##   학번   이름 국어 영어 수학
## 1    1 가민호   10   20   50
## 2    2 나민호   50   60   50
## 3    3 다민호   50   60   30
## 4    4 라민호   90   80   85
## 5    5 마민호   80   90   50

##   국어 영어 수학
## 1   10   20   50
## 2   50   60   50
## 3   50   60   30
## 4   90   80   85
## 5   80   90   50

## [1] "국영수 평균 : "

## 국어 영어 수학 
##   56   62   53

과제 4

student.txt 활용

sapply() 활용-열별 집계

##   국어 영어 수학
## 1   10   20   50
## 2   50   60   50
## 3   50   60   30
## 4   90   80   85
## 5   80   90   50

## 국어 영어 수학 
##  280  310  265

과제 5

patient.txt 활용

tapply() 활용- 환자의 증세별 나이평균을 수평 barplot으로 시각화

##   환자번호 나이 합병증 증세
## 1        1   30  유형1 악화
## 2        2   34  유형2 호전
## 3        3   28  유형1 완치
## 4        4   52  유형3 악화
## 5        5   37  유형2 호전

과제 6

student1.txt 활용

## [1] "data.frame"

##   분반   이름 국어 영어 수학
## 1    1 가민호   10   20   50
## 2    1 나민호   50   60   50
## 3    2 다민호   50   60   30
## 4    2 라민호   90   80   85
## 5    3 마민호   80   90   50

## stu$분반: 1
## 국어 영어 수학 
##   30   40   50 
## -------------------------------------------------------- 
## stu$분반: 2
## 국어 영어 수학 
## 70.0 70.0 57.5 
## -------------------------------------------------------- 
## stu$분반: 3
## 국어 영어 수학 
##   80   90   50

과제 7

교재 300 페이지 응용-데이터 프레임은 runif()활용

data=data.frame(x=runif(10), y=runif(10))

교재 305 페이지 응용

반올림한 y축의 값이 짝수면 파랑, 홀수면 빨강

ifelse(round(data$y)%%2==0

par(mfrow=c(3,5))과 for문 활용

par(mfrow=c(3,5))

for(i in 1:15)
{
  data=data.frame(x=runif(10), y=runif(10))
  plot(data, pch=i, main=paste("point sample", i),   col=ifelse(round(data$y)%%2==0, "blue", "red"))

}