about R-programming

a<-c(1,2,3,4,5)
b<-c('A', 'B', 'C', 'D', 'E')
c<-factor(c('남', '여', '남', '남'))
d<-c(T,F,T,T)
e<-c(3i)

 

참, 거짓 유무 판단(데이터 형태를 확인, 논리형으로 반환.
is.numeric(a)
is.character(b)

is.logical(d)

is.factor(c)

is.complex(e) <- 복소수형

 

수치형 > 문자형, 수치형 > 논리형, 문자형 > 수치형으로 변환.
aa<-as.character(a)

height<-c(160, 140, 155)
name<-c("이하은", "박연경", "김유미")
names(height)<-name
height['이하은']

 

* 데이터 프레임 생성

name <- c("R", "Python", "Java")

ID <- c(1,2,3)

df <- data.frame(name,ID)

df <- data.frame(name,ID,stringsAsFactors=FALSE)

stringsAsFactors - 범주형 전환.

str(df)

 

* 데이터 프레임 인덱싱

df

df[2,1]

 

a <- matrix(1:10,2,5)

a <- as.data.frame(a)

- 데이터 프레임으로 변환.

a <- as.matrix(a)

a <- as.list(a)

 

if(조건1){

}else if(조건2){

#조건1이 참이 아니면서 조건2가 참일 때 해당 부분 수행.

}else if(조건3){

#조건1, 2가 참이 아니면서 조건3가 참일 때 해당 부분 수행.

}else{

#조건1, 2. 3이 모두 참이 아니면 해당 부분 수행

}

 

# R 조건문

# if문

a <- 3

b <- 4

 

if(a<b){

cat("a가 b보다 작음")

}

if(b<a){

cat("b가 a보다 작음") # 출력되지 않음.

}

 

# else문

a <- 3

b <- 4

if(a>b){

cat("a>b")

}else{

cat("a<b 또는 a==b")

}

 

# else if 문

a <- 3

b <- 3

if(a>b){

cat("a>b")

}else if{

cat("a<b")

}else{

cat("a==b")

}

 

if(5>5){

cat("5>5")

}else if(5>4){

cat("5>4")

}else if(5>4.5){

cat("5>4.5")

}else if(5==5){

cat("5==5)

}

 

# 중첩된 if문

a <- 5

b <- 3

c <- 4

if(a>b){

if(a>c){

cat("a,b,c 중 a가 가장 크다")

}else{

cat("a,b,c 중 a>b 나 a<=c")

}

}

if((a>b)&(a>c)){

cat("a,b,c 중에 a가 가장 크다")

}

 

# if문, else if 차이점

a <- 3

b <- 3

if(a==b){

cat("a==b") # 해당만 실행됨.

}else if(a%%b==0){

cat("a%%b==0")

}

 

a <- 3

b <- 3

if(a==b){

cat("a==b")

}

if(a%%b==0){

cat("a%%b==0")

}

 

# 원소 벡터가 아닌 벡터화된 논리값이 조건에 들어갈 경우

a <- c(1,1,1)

b <- c(1,0,0)

if(a&b){

cat("a&b")

}

 

apply <- 1

mango <- 0

if(apple>0 |mango>0){

cat("과일 있음")

}else{

cat("과일 없음")

}

 

R <- 85

Python <- 95

if(R>90 & Python>90){

cat("A+")

}else if(R>90 & Python>80){

cat("R 역량은 A+, Python 역량 A")

}else if(R>80 & Python>90){

cat("R 역량은 A, Python 역량은 A+")

}else{

cat("B")

}