h-elena

#stopwords(불용어)

#인터넷 검색 시 검색 용어로 사용하지 않는 단어

#검색 색인 단어로 의미가 없는 단어

#관사, 전치사, 조사, 접속사 등  

#ex) above, few, only, we, than, now, before ...

lapply와 do.call

인수로 받은 함수를 반복 적용해줌

lapply

리턴을 list로 함

do.call 

인자를 list만 받음

예시

> x<-list(c(1,2,3),c(4,5,6))

> x

[[1]]

[1] 1 2 3

[[2]]

[1] 4 5 6

> lapply(x, rbind)

[[1]]

     [,1] [,2] [,3]

[1,]    1    2    3

[[2]]

     [,1] [,2] [,3]

[1,]    4    5    6

> do.call(rbind, x)

     [,1] [,2] [,3]

[1,]    1    2    3

[2,]    4    5    6

#[:digit:] 혹은 \d : 숫자, 0,1,2,3,4,5,6,7,8,9, 동등한 표현 [0-9].

#\D : 숫자가 아님, 동등한 표현 [^0-9].

#[:lower:] : 영문 소문자, 동등한 표현 [a-z].

#[:upper:] : 영문 대문자, 동등한 표현 [A-Z].

#[:alpha:] : 알파벳 대소문자, 동등한 표현 [[:lower:][:upper:]] 혹은 [A-z]

#[:alnum:] : 알파벳 숫자 문자, 동등한 표현 [[:alpha:][:digit:]] 혹은 [A-z0-9].

#\w : 단어 문자, 동등한 표현 [[:alnum:]] 혹은 [A-z0-9].

#\W : 단어가 아닌 것, 동등한 표현 [^A-z0-9].

#[:xdigit:] : 16진수 (밑이 16), 0 1 2 3 4 5 6 7 8 9 A B C D E F a b c d e f, 동등한 표현 [0-9A-Fa-f].

#[:blank:] : 간격 문자, 즉 스페이스와 탭.

#[:space:] : 공백 문자: 탭, 개행문자, 수직탭, 공백, 복귀문자, 서식이송(form feed)

#\s : 간격, ` `.

#\S : 간격 아님.

#[:punct:] : 구두점 문자, ! " # $ % & ’ ( ) * + , - . / : ; < = > ? @ [  ] ^ _ ` { | } ~.

#[:graph:] : 그래픽 (사람이 읽을 수 있는) 문자, 동등한 표현 [[:alnum:][:punct:]].

#[:print:] : 출력가능한 문자, 동등한 표현 [[:alnum:][:punct:]\\s].

#[:cntrl:] : \n, \r 같은 제어문자, 동등한 표현 [\x00-\x1F\x7F].

출처 : https://blog.naver.com/jyc8618/220196809317

seed를 설정하는 이유는 시뮬레이션 결과는 시뮬레이션을 행하는 사람마다 다른 결과를 주기 때문에

동일한 seed를 설정하여 그 결과가 다른 사람들이 하더라도 동일한지 확인할 수 있기 때문에 설정한다.

file.choose()

파일을 선택하여 불러오기

ex

>read.csv(file.choose(), header=T)

df <- read.csv("http://goo.gl/HKnl74")

str(df)

colSums(is.na(df)) #col별로 결측값 개수 구하기

#놀이기구에 대한 만족도와 전체 만족도 간의 관계

#산점도 그리기

attach(df)

plot(overall~rides) #(y축~x축)

plot(overall, rides) #(x축, y축)

#cex=점 크기, pch=점 형태(1-빈원/2-세모/3-더하기/4-곱하기/5-마름모/6-역삼각형...)

#xlim=x축 값의 출력범위 지정, ylim=y축 값의 출력범위 지정, lty=출력되는 선의 형태 지정

plot(overall~rides, main="Overall~Rides", 

     xlab="Satisfaction with Rides", ylab="Overall Satisfaction", 

     cex=1, pch=6, col="blue")

#attach()와 detach()

detach(df)

df$weekend

attach(df)

weekend

#공분산 값 구하기

cov(overall, rides)

#상관계수 구하기 (두 변수 간 선형관계의 강도를 알 수 있음)

#use = 'complete.obs' : 결측값 제거된 상태에서 상관계수를 계산

#method = 'pearson' : 피어슨 상관계수 지정

cor(overall, rides, use = 'complete.obs', method = 'pearson')

#cor함수에 대해 더 알아보기

?cor

#상관계수 검정 

cor.test(overall, rides)

출처 ...

> sprintf("%d", 111) #정수 출력
[1] "111"
> sprintf("%5d", 11) #다섯자리 고정
[1] "   11"
> 
> sprintf("%f", 10.111) #실수 출력
[1] "10.111000"
> sprintf("%.3f", 10.111234) #소수점 3자리수까지
[1] "10.111"
> 
> 
> sprintf("%s", "hello") #문자열 출력
[1] "hello"

csv파일을 메모장으로 연 후

다른이름으로 저장할 때 인코딩을 ANSI로 설정한 후 .csv 확장명으로 저장

출처 : https://blog.naver.com/bonnyborn/221217991960

CA()

Correspondence Analysis

fviz_ca_row()

fviz_ca_col()

fviz_ca_biplot() - row&col

fviz_ca()