공간

# csv를 exam에 할당
exam <- read.csv("csv_exam.csv")

# 데이터의 앞부분 6행까지
head(exam)
# 앞부분 10행까지
head(exam,10)

# 뒷부분 6행
tail(exam)
# 뒷부분 10행까지
tail(exam,10)

#데이터 뷰어창에서 데이터 확인
View(exam)

#데이터 행, 열 확인
dim(exam)

#데이터 속성 확인
str(exam)

#데이터 요약 통계량 확인
summary(exam)

#df_raw를 df_new로 백업
df_new <- df_raw

# 변수 이름 변경
df_new <- rename(df_new,v2=var2)

# var_sum 이름의 파생 변수 생성
df_new$var_sum <- df_new$var1 + df_new$v2

# 조건문을 활용 파생 변수 생성
df_new$exam <- ifelse(df_new$var_sum >=5,"pass","fail")

# 등급 빈도표
# 표 생성
table(df_new$var1)

# 등급 빈도 막대 그래프
# 막대 그래프 생성
library(ggplot2)
qplot(df_new$var1)

#각 변수 생성
sex <- c("남", "여","남")
age <- c(26, 42, 35)
grade <- c(3.8, 4.2, 2.6)
pay <- c(2700, 4000, 3500)

#앞서 만든 변수로 dataframe을 만들어 df_student에 할당
df_student <- data.frame(sex,age,grade,pay)

#다음과 같은 형태도 가능
df_student <- data.frame(sex = c("남", "여","남"),
                         age = c(26, 42, 35),
                         grade = c(3.8, 4.2, 2.6),
                         pay = c(2700, 4000, 3500))

#mean 함수를 이용해 df_student의 pay평균 계산
mean(df_student$pay)

#엑셀 파일로 데이터 프레임 만들수도 있다
install.packages("readxl")
library(readxl)

#read_excel을 통해 파일을 읽어 온 후 df_test에 할당한다
df_test <- read_excel("test.xlsx")

#엑셀의 첫번째 행이 변수명이 아니라면 read_excel에 col_names = F를 붙여준다
#F는 False의 약자이다.
df_test <- read_excel("test.xlsx", col_names = F)
#이러면 첫번째 행은 데이터로 인식하며, 변수명들은 X__숫자로 자동 지정된다.

#여러개 시트일 경우 sheet= #을 지정해준다
df_test <- read_excel("test.xlsx", sheet = 1)

#csv 파일 불러오기
df_test <- read.csv("test.csv")
#첫번째 행이 변수명 아닐 경우
df_test <- read.csv("test.csv", header = F)
#문자가 들어있을 경우 stringsAsFactors=F 옵션 추가
df_test <- read.csv("test.csv", stringsAsFactors = F)

#데이터 프레임을 csv 파일로 저장
write.csv(df_test, file = "df_test.csv")

#데이터 프레임을 rdata로 저장
save(df_test, file = "df_test.rda")

#rda 파일 불러오기
load("df_test.rda")

#read_excel 과 read.csv 할 경우 변수명에 데이터 프레임을 할당해줄것.
#rda는 파일명이 곧 데이터프레임의 변수명이 된다.

install.packages("ggplot2")

library(ggplot2)

#범주형 데이터 생성
x <- c("a","a","c","c","f")
#빈도 막대 그래프 출력
qplot(x)

#x축 cty
qplot(data = mpg, x = hwy)
#x축 drv y축 hwy
qplot(data = mpg, x = drv, y = hwy)
#x축 drv y축 hwy, 선 그래프
qplot(data = mpg, x = drv, y = hwy, geom = "line")
#x축 drv y축 hwy, 상자 그림
qplot(data = mpg, x = drv, y = hwy, geom = "boxplot")
#x축 drv y축 hwy, 상자 그림, drv별 색 표현
qplot(data = mpg, x = drv, y = hwy, geom = "boxplot", colour = drv)

?qplot