h-elena

 par() 그래프의 출력을 조정 – 그래프 화면의 분할, 마진, 글자 크기, 색상등 설정

ex) par(mar=c(0, 0, 0, 0))

• pty=“s” (x축과 y축을 동일비율로 설정, square) pty=“m" (최대크기로 설정, maximal)

• legend = c(“name1”, “name2”)

• bty="o" (box type 그래프의 상자모양을 설정) o, l, 7, c, u

• pch=1(default) point character (1=동그라미, 2=세모, …, 19=채운동그라미)

• lty=(solid가 default) (line type, 1=직선, 2=점선)

• lwd = 1, 2.. (선의 굵기)

• cex=1(default) (character expansion) 문자나 점의 크기, 숫자가 클수록 글자크기 커짐

• mar (아래, 왼쪽, 위쪽, 오른쪽)

출처: http://zbulletjournal.tistory.com/47 [Things are looking up]

아직 읽지는 않았지만 '그릿'의 내용 중에서

워랜버핏의 직업상 목표.

우리가 알고 있는 워렌버핏은 직업상 일을 하면서 우선 순위를 정하는 3단계를 다음과 같이 설명했다.

첫째, 직업상 목표를 25개를 쓴다.
둘째, 자신을 성찰해가면서 그중에 가장 중요한 목표 5개에 동그라미를 친다. 반드시 5개만 골라야 한다.
셋째, 동그라미를 치지 않은 20개의 목표를 찬찬히 살핀다. 그 20개는 당신이 무슨 수를 써서라도 피해야할 일이다. 당신의 신경을 분산시키고 시간과 에너지를 빼앗고 더 중요한 목표에서 시선을 앗아갈 일이기 때문이다.

grep()

데이터 中 컬럼네임에 '가'가 포함된 데이터의 행 번호를 추출

ex:

>grep("가", 데이터$컬럼네임)

[1] 1 3

>뉴데이터 <- 데이터[grep("가", 데이터$컬럼네임)]

    value1 value2

1   가나다   300

3   가수     500

• ^가 : '가'로 시작하는
• 가$ : '가'로 끝나는
• 가 : '가'가 포함되는

> getCircleArea <- function(r){

+   area=3.14*r^2

+   return(area) #반환값이 없을 경우 생략 가능

+ }

> getCircleArea(3)

[1] 28.26

#열 추가

> x<-cbind(x, 학과=c("경영", "영"))

> x<-cbind(x, 학과=c("경영", "영"))

> x<-cbind(x, 학과=c("경영", "영어"))

> x

    성명 나이 주소 학과 학과 학과

1 홍길동   20 서울 경영 경영 경영

2   둘리   30 대전   영   영 영어

#행 추가

> x<-rbind(x, data.frame(성명="장발장", 나이=40, 주소="파리", 학과="전산학"))

> x

    성명 나이 주소   학과

1 홍길동   20 서울   경영

2   둘리   30 대전   영어

3 장발장   40 파리 전산학

#열 삭제

> x <- x[,-c(4, 5)]

> x

    성명 나이 주소 학과

1 홍길동   20 서울 경영

2   둘리   30 대전 영어

> y<-list("이름"="홍길동", "학번"=123456, "나이"=20)

> y

$이름

[1] "홍길동"

$학번

[1] 123456

$나이

[1] 20

> y["이름"]

$이름

[1] "홍길동"

> y[["이름"]]

[1] "홍길동"

> y$이름

[1] "홍길동"

> x<-list("홍길동", 232133, c(1, 2, 3), "232")

> x

[[1]]

[1] "홍길동"

[[2]]

[1] 232133

[[3]]

[1] 1 2 3

[[4]]

[1] "232"

> y<-list("이름"="홍길동", "학번"=123456, "나이"=20)

> y

$이름

[1] "홍길동"

$학번

[1] 123456

$나이

[1] 20

>names<-list(c("row1", "row2"), c("col1", "col2", "col3"))

>x<-array(c(1, 2, 3, 4, 5, 6),dim=c(2,3),dimnames = names)

> x

     col1 col2 col3

row1    1    3    5

row2    2    4    6

* , 와 " 을 유의하자!

배열보다 고차원 개념으로 다차원 행렬을 만들 수 있음

> x<-array(1:6, dim=c(2,3))

> x

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

[1,]    1    3    5

[2,]    2    4    6

> x <- array(1:24, dim=c(2, 3,4))

> x

, , 1

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

[1,]    1    3    5

[2,]    2    4    6

, , 2

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

[1,]    7    9   11

[2,]    8   10   12

, , 3

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

[1,]   13   15   17

[2,]   14   16   18

, , 4

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

[1,]   19   21   23

[2,]   20   22   24

행렬 이름 넣기

rownames(x) <- c("a", "b", "c")

colnames(x) <- c("!", "@", "#")

dimnames(x)=list(c("바", "꾸", "기"), c("리", "스", "트"))