#R์ ๋ณ์์ ์ธ
a <- 1
b <- 2
c <- 3
a
# R์์๋ ๋ณ์๋ฅผ ๋ฒกํฐ๋ผ๊ณ ๋ถ๋ฅธ๋ค.
# ์ธ์ด์ ๋ณ์, ์กฐ๊ฑด๋ฌธ, ๊ทธ ์ธ์ด๋ง์ ํน์ฑ์ด ์๋๋ฐ ์ด ๊ฒ๋ค์ ์ตํ๋ฉด ๋ชจ๋ ์ธ์ด๋ฅผ ์ตํ ์ ์์.
a + b + c
var1 <- c(1,2,3,4,5)
var1[3]
#R์์๋ list์ indexing์ 1๋ถํฐ ์์ํ๋ค. ์ปดํจํฐ ์ธ์ด๋ค์ด 0๋ถํฐ ์์ํ๋ ์ด์ ๋ ๋ฉ๋ชจ๋ฆฌ๋ฅผ ์๋ผ๊ธฐ ์ํด์
var1 + 20
#๋ฒกํฐ ์ฐ์ฐ (for๋ฌธ์ ์ฐ๊ฒ๋๋ฉด ์๋๊ฐ ๋๋ฆผ)
#๋ฐ์ดํฐ ๋ถ์ํ ๋ for๋ฌธ์ ์ฐ๋ฉด ํด๊ทผ ๋ชปํ ์ง๋! ^~^
var3 <- c(1:10)
help(c) #help๋ฅผ ์ฌ์ฉํ๋ฉด ์๋ ค์ค๋ค
var4 <- "Hello"
var5 <- 'Hello'
var6 <- c("Hi", "Hello")
var4 + "Hi"
english <- c(90, 80, 60, 70)
math <- c(50, 60, 100, 20)
#data.frome
df_midterm <- data.frame(english, math)
df_midterm
mean(df_midterm$english) #๋ณ์์ ์ปฌ๋ผ์ ์ ๊ทผํ ๋์๋ $๋ฅผ ์ฌ์ฉํ๋ค.
df_midterm <- data.frame(english = c(90, 80, 60, 70),
math = c(50, 60, 100, 20),
class = c(1, 1, 2, 2))
install.packages("readxl") #์์
์ฝ๊ธฐ
library(readxl) #์ค์นํ๊ณ ๋ฉ๋ชจ๋ฆฌ์ ์ฌ๋ฆฐ๋ค.
setwd("/Users/iris/Documents/R")
getwd("./data/excel_exam.xlsx")
#/Users/iris/Documents/R/data/excel_exam.xlsx
read_excel("../data/excel_exam.xlsx") #์๋๊ฒฝ๋ก
#/Users/iris/Documents/data/excel_exam.xlsx
read_excel("/Users/iris/Documents/R/Data/excel_exam.xlsx") #์ ๋๊ฒฝ๋ก
# ../-> ์์ํด๋
# ./ -> ํ์ฌํด๋
df_exam <- read_excel("./data/excel_exam.xlsx")
head(df_exam) #์ 6๊ฐ ๋ฐ์ดํฐ ๋ณด๊ธฐ, ๋ ๋ณด๊ณ ์ถ์ผ๋ฉด head(df_exam, ๋ณด๊ณ ์ถ์ ๊ฐ)
tail(df_exam) #๋ค 6๊ฐ ๋ฐ์ดํฐ ๋ณด๊ธฐ, ๋ ๋ณด๊ณ ์ถ์ผ๋ฉด tail(df_exam, ๋ณด๊ณ ์ถ์ ๊ฐ)
dim(df_exam) #row, column๊ฐ ์ฐพ๋ ํจ์
str(df_exam) #์์ฑ
summary(df_exam) #๊ธฐ์ ํต๊ณ๊ฐ
#๊ฒฐ์ธก์น ํ์ธ (row๊ฐ์ ๋ฐ์ดํฐ๊ฐ ์์)
# install.packages("ggplot2")
# R์ด ์๊ฐํ๊ฐ ๊ฐํ ์ด์ ๋ ggplot2 ๋๋ฌธ! cheatsheet๋ฅผ ์ ๊ทน ํ์ฉํ์
library(ggplot2)
mpg #ggplot2์ ๋ค์ด์๋ ์๋์ฐจ ์ ๋ณด
dim(mpg)
#๋ณ์๋ช
๋ฐ๊พธ๊ธฐ
head(mpg)
df_raw <- data.frame(var1 = c(1, 2, 1),
var2 = c(2,3,2 ))
df_raw
names(df_raw) <- c("v1", "v2") #๋ณ์๋ค ์ด๋ฆ์ ๋ฐ๊พธ๊ธฐ
names(mpg)
install.packages("dplyr")
library(dplyr) #R์ ์์ํ ๋์๋ library๋ฅผ ์ ์ผ ์๋จ์ ์ฌ๋ ค๋๊ณ ์์ํ๋ค. ์ด๊ฒ๋ง ๋ด๋ ์ด๋ค ์ฝ๋์ธ์ง ์ ์ ์๋๋ก.
rename(df_raw, variable2 = v2)
df_raw
#r์ ์ญ์ ๋ช
๋ น์ด๊ฐ ์๋ค. ๋ฉ๋ชจ๋ฆฌ์ ๊ณ์ ๋จ์์์.
tmp <-c(100:120)
tmp
tmp <- tmp[-10] #์ด๋ ๊ฒ ์ง์์ง
tmp[c(8,9)]
tmp <- tmp[-c(8,9)]
tmp
mpg[c(1,2,3)]
mpg[-c(1,2,3)] #ํ๋๋ง ์ผ์ ๋,
View(mpg)
# c์ ๋ด๊ฐ ๋ณด๊ณ ์ถ์ ์ธ๋ฑ์ฑ ๋ณด๋ฉด ๋จ.
#mpg[ํ, ์ด]
mpg[c(1,2,3), c(1,2)]
# ๋ถ์ํ ๋, ๋ฐ์ดํฐ ๋ง๋ค์ผ ๊ฑฐ์ ์์. ๋ฐ์ดํฐ ์ฝ์ด์จ๋ค.
# db๊ณ์ ์ฃผ๊ณ ์ฌ๊ธฐ์ ๊ฐ์ ธ์์ ์ฐ๋ผ๊ณ ๋งํด์ค.
#ํ์๋ณ์ : total๋ง๋ค๊ธฐ
df_midterm$total <- df_midterm$english + df_midterm$math
df_midterm
'PlayData' ์นดํ ๊ณ ๋ฆฌ์ ๋ค๋ฅธ ๊ธ
[์๊ณ ๋ฆฌ์ฆ] ์์ ํ์, ์ด๋ถํ์ (0) | 2022.01.28 |
---|---|
[Hadoop] ํ๋ก ์ค์นํ๊ธฐ (0) | 2022.01.24 |
[MongoDB] Mac์์ mongo DB ์ค์นํ๊ธฐ(Monterey) (0) | 2022.01.13 |
[Day24 | ] Servlet, Html, JS (0) | 2021.12.14 |
[์๊ณ ๋ฆฌ์ฆ ํน๊ฐ] ์คํ๊ณผ ํ (0) | 2021.12.08 |