인공지능 6/1

#R

#인공지능

 

오늘부터 R 시작이다.

 

 

> a<-1
> a
[1] 1
> b<-2
> b
[1] 2
> c<-3
> c
[1] 3
> d<-3.5
> d
[1] 3.5
> a+b
[1] 3
> a+b+c
[1] 6
> 4/b
[1] 2
> 5*b
[1] 10
> var1<-c(1,2,5,7,8)
> var1
[1] 1 2 5 7 8
> var2<-c(1:5)
> var2
[1] 1 2 3 4 5
> var3<-seq(1,5)
> var3
[1] 1 2 3 4 5
> var4<-seq(1,10,by=2)
> var4
[1] 1 3 5 7 9
> var5<-seq(1,10,by=3)
> var5
[1]  1  4  7 10
> var1
[1] 1 2 5 7 8
> var1+2
[1]  3  4  7  9 10
> var1
[1] 1 2 5 7 8
> var2
[1] 1 2 3 4 5
> var1+var2
[1]  2  4  8 11 13
> str1<-"a"
> str1
[1] "a"
> str2<-"text"
> str2
[1] "text"
> str3<-"Hello World!"
> str3
[1] "Hello World!"
> str4<-c("a","b","c")
> str4
[1] "a" "b" "c"
> str5<-c("Hello!","World","is","good!")
> str5
[1] "Hello!" "World"  "is"     "good!" 
> str1+2
Error in str1 + 2 : 이항연산자에 수치가 아닌 인수입니다
> 
> 
> class(var2)
[1] "integer"
> print(var4)
[1] 1 3 5 7 9
> a<-1
> a
[1] 1
> b<-2
> b
[1] 2
> c<-3
> c
[1] 3
> d<-3.5
> d
[1] 3.5
> a+b
[1] 3
> a+b+c
[1] 6
> 4/b
[1] 2
> 5*b
[1] 10
> var1<-c(1,2,5,7,8)
> var1
[1] 1 2 5 7 8
> var2<-c(1:5)
> var2
[1] 1 2 3 4 5
> class(var2)
[1] "integer"
> var3<-seq(1,5)
> var3
[1] 1 2 3 4 5
> var4<-seq(1,10,by=2)
> var4
[1] 1 3 5 7 9
> print(var4)
[1] 1 3 5 7 9
> var5<-seq(1,10,by=3)
> var5
[1]  1  4  7 10
> var1
[1] 1 2 5 7 8
> var1+2
[1]  3  4  7  9 10
> var1
[1] 1 2 5 7 8
> var2
[1] 1 2 3 4 5
> var1+var2
[1]  2  4  8 11 13
> str1<-"a"
> str1
[1] "a"
> str2<-"text"
> str2
[1] "text"
> str3<-"Hello World!"
> str3
[1] "Hello World!"
> str4<-c("a","b","c")
> str4
[1] "a" "b" "c"
> str5<-c("Hello!","World","is","good!")
> str5
[1] "Hello!" "World"  "is"     "good!" 
> str1+2
Error in str1 + 2 : 이항연산자에 수치가 아닌 인수입니다

 

> x<-c(1,2,3)
> x
[1] 1 2 3
> mean(x)
[1] 2
> max(x)
[1] 3
> min(x)
[1] 1
> str5
[1] "Hello!" "World"  "is"     "good!" 
> paste(str5,collapse=",")
[1] "Hello!,World,is,good!"
> paste(str5,collapse=" ")
[1] "Hello! World is good!"
> x_mean<-mean(x)
> x_mean
[1] 2
> str5_paste<-paste(str5,collapse = " ")
> str5_paste
[1] "Hello! World is good!"

install.packages("ggplot2") #install.packages를 실행 시킨 후 필요한 패키지를 다운로드 받는다.
library(ggplot2) #ggplot2 패키지를 로드한다.

x<-c("a","a","b","c")
qplot(x)
qplot(data=mpg,x=hwy)
qplot(data=mpg,x=drv,y=hwy)
qplot(data=mpg,x=drv,y=hwy,geom="line")
qplot(data=mpg,x=drv,y=hwy,geom="boxplot")
qplot(data=mpg,x=drv,y=hwy,geom="boxplot",colour=drv)

순서대로 나온 결과이다.