_대문 | 방명록 | 최근글 | 홈피소개 | 주인놈
FrontPage › dplyr

Contents

[-]
1 inner join
2 첫 5행만
3 기본 예제
4 참고자료


1 inner join #

> data1
  id mid
1 23  43
2  4  56
3 78  29
4 54  99
> data2
  id final
1  4    77
2 23     2
3 54    19
4 70    31
> dplyr::inner_join(data1, data2, by="id")
  id mid final
1 23  43     2
2  4  56    77
3 54  99    19

2 첫 5행만 #

dplyr::filter(df, row_number() <= 5)

3 기본 예제 #

#install.packages("dplyr")
library("dplyr")

df <- tbl_df(iris)
df
class(df)

#필터
filter(df, Species == "setosa", Sepal.Length >= 4)
filter(df, Species == "setosa" | Species == "versicolor")

#정렬
arrange(df, Sepal.Length, desc(Sepal.Width))

#특정 컬럼만 조회
select(df, Sepal.Length, Species)
select(df, -Species)
select(df, Sepal.Width:Petal.Width)
select(df, -(Sepal.Width:Petal.Width))

#열추가
mutate(df, compute = Sepal.Length * Sepal.Width, total.Sepal.Length = sum(Sepal.Length))
transform(df, compute = Sepal.Length * Sepal.Width, total.Sepal.Length = sum(Sepal.Length))

#집계
summarise(df, total=sum(Sepal.Length))
summarise(group_by(df, Species), total=sum(Sepal.Length))

#chain 기능
group_by(df, Species) %>% filter(Sepal.Length >= 5) %>% summarise(total=sum(Sepal.Length))



댓글 남기기..
이름: : 오른쪽의 새로고침을 클릭해 주세요. 새로고침
EditText : Print : Mobile : FindPage : DeletePage : LikePages : Powered by MoniWiki : Last modified 2018-04-13 23:12:53

진실한 의식을 갖춘 영혼은 자신보다 훨씬 뛰어난 무엇을 발견할 줄 압니다. 칭찬이란 이해입니다. 근본적으로 누구나 위대하고 훌륭합니다. 누군가를 아무리 칭찬한다 해도 지나치지 않습니다. 타인 속에 있는 위대함과 아름다움을 발견하는 눈을 기르십시오. 《보여줄 수 있는 사랑은 아주 작습니다》 (칼릴지브란)