R studio 문법 다지기! 차트그래프!

#---------------------학습 데이터 불러오기-------------

install.packages("datasets")
library(datasets)

head(quakes,n= 6)
tail(quakes,n= 6)

#-------- 파일 저장 및 불러오기 --------------
write.table(quakes,"quakes.txt", sep= ",")
x <- read.csv("quakes.txt")
x

x <- read.csv(file.choose(), header = T) # 원하는 파일을 선택하여 불러올수있ㅇ음
#---- 위치 확인-----

getwd()
# 아래 주소에서 url을 가져왔다!
# https://goo.gl/SZjkzf

url <-"http://vincentarelbundock.github.io/Rdatasets/csv/carData/TitanicSurvival.csv"
x <- read.csv(url)
x

head(x)
str(x)

# ---------------그래프 그리기 ---------------
# http://goo.gl/6gZTfo
ctrl <- scan("hhh.txt")
trl1 <- scan("jjj.txt")
trl2 <- scan("kkk.txt")

# 0-------------------------------------------

# 차트위 종류 : 파이차트 , 바차트 , 산포토, x,y플로팅

# pch -> 도형 목록

plot(ctrl, main = "차트의 제목", ylab = "kg")
points(trt1, pch = 2) # plot()으로 그린 후 데이터를 추가할 때
points(trl2, pch = 3)
#-*-----------------------------선 잇기------------

plot(ctrl, main = "차트의 제목", ylab = "kg", type = "b")
points(trl1, pch = 2, type ="b") # plot()으로 그린 후 데이터를 추가할 때
points(trl2, pch = 3, type ="b")

# --------------------------실선 점선 파선

plot(ctrl, main = "차트의 제목", ylab = "kg", type = "b", lty= 1)
points(trl1, pch = 2, type ="b", lty = 2) # plot()으로 그린 후 데이터를 추가할 때
points(trl2, pch = 3, type ="b", lty = 3)

#------------------------------------선 굵기 및 선 색 ---------
plot(ctrl, main = "차트의 제목", ylab = "kg", type = "b" ,lwd = 2, col = 4)
points(trl1, pch = 2, type ="b", lwd = 3, col = 2) # plot()으로 그린 후 데이터를 추가할 때

points(trl2, pch = 3, type ="b", lwd = 10, col = 8)

 

# 차트 관련 패키지 다운로드 및 로딩
install.packages("graphics")
library(graphics)

# -------------------------부서별 영업실적
# 파티차트로
x <- c(9, 15, 20, 6)
label <- c("영업 1팀","영업 2팀", "영업 3팀", "영업 4팀")
pie(x, labels = label, main= "부서별 영업 실적")

#단순 파이차트 2
pie(x, init.angle = 90, labels= label, main = "부서별 영업실적")

# 퍼센트가 잇는 Pie차트

pct <- round(x/sum(x)*100) #라운드는 반올림해주는 것
label <- paste(label, pct)
label <- paste(label, "%", sep = "") # 구분자 (sep)
pie(x, labels = label, init.angle = 90, col = rainbow(length(x)), main = " 부서별 영업실적 !!테스트")

# 3차원 그래프를 그릴때(pie 3d in r)

install.packages("plotrix")
library(plotrix)

# explode: 각 조각간의 간격, labelcex : 레이블의 크기
pie3D(x, labels = label, explode = 0.1, labelcex = 0.8, main="부서별 영업실적")

# 단순 바 차트 1
height <- c(9, 15,#---------------------학습 데이터 불러오기-------------

install.packages("datasets")
library(datasets)

head(quakes,n= 6)
tail(quakes,n= 6)

#-------- 파일 저장 및 불러오기 --------------
write.table(quakes,"quakes.txt", sep= ",")
x <- read.csv("quakes.txt")
x

x <- read.csv(file.choose(), header = T) # 원하는 파일을 선택하여 불러올수있ㅇ음
#---- 위치 확인-----

getwd()
# 아래 주소에서 url을 가져왔다!
# https://goo.gl/SZjkzf

url <-"http://vincentarelbundock.github.io/Rdatasets/csv/carData/TitanicSurvival.csv"
x <- read.csv(url)
x

head(x)
str(x)

# ---------------그래프 그리기 ---------------
# http://goo.gl/6gZTfo
ctrl <- scan("hhh.txt")
trl1 <- scan("jjj.txt")
trl2 <- scan("kkk.txt")

# 0-------------------------------------------

# 차트위 종류 : 파이차트 , 바차트 , 산포토, x,y플로팅

# pch -> 도형 목록

plot(ctrl, main = "차트의 제목", ylab = "kg")
points(trt1, pch = 2) # plot()으로 그린 후 데이터를 추가할 때
points(trl2, pch = 3)
#-*-----------------------------선 잇기------------

plot(ctrl, main = "차트의 제목", ylab = "kg", type = "b")
points(trl1, pch = 2, type ="b") # plot()으로 그린 후 데이터를 추가할 때
points(trl2, pch = 3, type ="b")

# --------------------------실선 점선 파선

plot(ctrl, main = "차트의 제목", ylab = "kg", type = "b", lty= 1)
points(trl1, pch = 2, type ="b", lty = 2) # plot()으로 그린 후 데이터를 추가할 때
points(trl2, pch = 3, type ="b", lty = 3)

#------------------------------------선 굵기 및 선 색 ---------
plot(ctrl, main = "차트의 제목", ylab = "kg", type = "b" ,lwd = 2, col = 4)
points(trl1, pch = 2, type ="b", lwd = 3, col = 2) # plot()으로 그린 후 데이터를 추가할 때

points(trl2, pch = 3, type ="b", lwd = 10, col = 8)

 

# 차트 관련 패키지 다운로드 및 로딩
install.packages("graphics")
library(graphics)

# -------------------------부서별 영업실적
# 파티차트로
x <- c(9, 15, 20, 6)
label <- c("영업 1팀","영업 2팀", "영업 3팀", "영업 4팀")
pie(x, labels = label, main= "부서별 영업 실적")

#단순 파이차트 2
pie(x, init.angle = 90, labels= label, main = "부서별 영업실적")

# 퍼센트가 잇는 Pie차트

pct <- round(x/sum(x)*100) #라운드는 반올림해주는 것
label <- paste(label, pct)
label <- paste(label, "%", sep = "") # 구분자 (sep)
pie(x, labels = label, init.angle = 90, col = rainbow(length(x)), main = " 부서별 영업실적 !!테스트")

# 3차원 그래프를 그릴때(pie 3d in r)

install.packages("plotrix")
library(plotrix)

# explode: 각 조각간의 간격, labelcex : 레이블의 크기
pie3D(x, labels = label, explode = 0.1, labelcex = 0.8, main="부서별 영업실적")

# 단순 바 차트 1
height <- c(9, 15, 20, 6)

name <- c("x", 'y', "z", "k")
barplot(height, names.arg = name, main =" 바 그래프 테스트")
# 단순 바 차트 2 : 컬러 지정
barplot(height, names.arg = name, main = " 바에다 색칠하기", col=rainbow(length(height)))

# 데이터 라벨 출력( 바에다가 숫자 적어주기)
bp <- barplot(height, names.arg = name, main = " 바에다 색칠하기", col=rainbow(length(height)), xlab = "부서",
ylab = "영업", ylim = c(0,25))

# e데이터 라벨 출력 pos = 1~4, y값을 반올림해서 정수로
text(x=bp, y= height, labels = round(height,0), pos=4)

# 바 차트의 수평 회전 가로막대 horiz= true
barplot(height, names.arg = name, main = " 바에다 색칠하기", col=rainbow(length(height)), xlab = "부서",
ylab = "영업", horiz = TRUE, width=50)

20, 6)

 

name <- c("x", 'y', "z", "k")
barplot(height, names.arg = name, main =" 바 그래프 테스트")
# 단순 바 차트 2 : 컬러 지정
barplot(height, names.arg = name, main = " 바에다 색칠하기", col=rainbow(length(height)))

# 데이터 라벨 출력( 바에다가 숫자 적어주기)
bp <- barplot(height, names.arg = name, main = " 바에다 색칠하기", col=rainbow(length(height)), xlab = "부서",
ylab = "영업", ylim = c(0,25))

# e데이터 라벨 출력 pos = 1~4, y값을 반올림해서 정수로
text(x=bp, y= height, labels = round(height,0), pos=4)

# 바 차트의 수평 회전 가로막대 horiz= true
barplot(height, names.arg = name, main = " 바에다 색칠하기", col=rainbow(length(height)), xlab = "부서",
ylab = "영업", horiz = TRUE, width=50)