This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
summary(cars)## speed dist
## Min. : 4.0 Min. : 2.00
## 1st Qu.:12.0 1st Qu.: 26.00
## Median :15.0 Median : 36.00
## Mean :15.4 Mean : 42.98
## 3rd Qu.:19.0 3rd Qu.: 56.00
## Max. :25.0 Max. :120.00library(tidyverse)## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --## v ggplot2 3.3.5 v purrr 0.3.4
## v tibble 3.1.6 v dplyr 1.0.7
## v tidyr 1.2.0 v stringr 1.4.0
## v readr 2.1.2 v forcats 0.5.1## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()library(dplyr)
x <- tribble(
~key, ~val_x, ~val_x2,
1, "Statistik", "A",
2, "Kewarganegaraan", "B+",
3, "Linier Algebra", "A",
4, "Teosofi", "B+",
5, "Sejarah Peradaban Islam", "A"
)
y <- tribble(
~key, ~val_y,~val_y2,
1, "PBO", "A",
2, "Elektronik Digital", "A",
3, "Praktikum Elektronika Digital", "A",
4, "Praktikum PBO", "A",
5, " "," "
)
x## # A tibble: 5 x 3
## key val_x val_x2
## <dbl> <chr> <chr>
## 1 1 Statistik A
## 2 2 Kewarganegaraan B+
## 3 3 Linier Algebra A
## 4 4 Teosofi B+
## 5 5 Sejarah Peradaban Islam Ay## # A tibble: 5 x 3
## key val_y val_y2
## <dbl> <chr> <chr>
## 1 1 "PBO" "A"
## 2 2 "Elektronik Digital" "A"
## 3 3 "Praktikum Elektronika Digital" "A"
## 4 4 "Praktikum PBO" "A"
## 5 5 " " " "x %>%
inner_join(y, by = "key")## # A tibble: 5 x 5
## key val_x val_x2 val_y val_y2
## <dbl> <chr> <chr> <chr> <chr>
## 1 1 Statistik A "PBO" "A"
## 2 2 Kewarganegaraan B+ "Elektronik Digital" "A"
## 3 3 Linier Algebra A "Praktikum Elektronika Digital" "A"
## 4 4 Teosofi B+ "Praktikum PBO" "A"
## 5 5 Sejarah Peradaban Islam A " " " "x <- tribble(
~key, ~val_x, ~val_x2,
1, "Statistik", "A",
2, "Kewarganegaraan", "B+",
3, "Linier Algebra", "A",
4, "Teosofi", "B+",
5, "Sejarah Peradaban Islam", "A"
)
y <- tribble(
~key, ~val_y,~val_y2,
1, "PBO", "A",
2, "Elektronik Digital", "A",
3, "Praktikum Elektronika Digital", "A",
4, "Praktikum PBO", "A",
6, "PKPBA", "A"
)
x## # A tibble: 5 x 3
## key val_x val_x2
## <dbl> <chr> <chr>
## 1 1 Statistik A
## 2 2 Kewarganegaraan B+
## 3 3 Linier Algebra A
## 4 4 Teosofi B+
## 5 5 Sejarah Peradaban Islam Ay## # A tibble: 5 x 3
## key val_y val_y2
## <dbl> <chr> <chr>
## 1 1 PBO A
## 2 2 Elektronik Digital A
## 3 3 Praktikum Elektronika Digital A
## 4 4 Praktikum PBO A
## 5 6 PKPBA Aleft_join(x,y)## Joining, by = "key"## # A tibble: 5 x 5
## key val_x val_x2 val_y val_y2
## <dbl> <chr> <chr> <chr> <chr>
## 1 1 Statistik A PBO A
## 2 2 Kewarganegaraan B+ Elektronik Digital A
## 3 3 Linier Algebra A Praktikum Elektronika Digital A
## 4 4 Teosofi B+ Praktikum PBO A
## 5 5 Sejarah Peradaban Islam A <NA> <NA>right_join(x,y)## Joining, by = "key"## # A tibble: 5 x 5
## key val_x val_x2 val_y val_y2
## <dbl> <chr> <chr> <chr> <chr>
## 1 1 Statistik A PBO A
## 2 2 Kewarganegaraan B+ Elektronik Digital A
## 3 3 Linier Algebra A Praktikum Elektronika Digital A
## 4 4 Teosofi B+ Praktikum PBO A
## 5 6 <NA> <NA> PKPBA Afull_join(x,y)## Joining, by = "key"## # A tibble: 6 x 5
## key val_x val_x2 val_y val_y2
## <dbl> <chr> <chr> <chr> <chr>
## 1 1 Statistik A PBO A
## 2 2 Kewarganegaraan B+ Elektronik Digital A
## 3 3 Linier Algebra A Praktikum Elektronika Digital A
## 4 4 Teosofi B+ Praktikum PBO A
## 5 5 Sejarah Peradaban Islam A <NA> <NA>
## 6 6 <NA> <NA> PKPBA Ax <- tribble(
~key, ~val_x, ~val_x2,
1, "Statistik", "A",
2, "Kewarganegaraan", "B+",
1, "Linier Algebra", "A",
2, "Teosofi", "B+",
2, "Sejarah Peradaban Islam", "A",
1, "PBO", "A",
2, "Elektronik Digital", "A",
2, "Praktikum Elektronika Digital", "A",
2, "Praktikum PBO", "A",
1, "PKPBA", "A"
)
y <- tribble(
~key, ~val_y,~val_y2,
1, "Sangat Baik", "Pertahankan",
2, "Baik", "Tingkatkan"
)
left_join(x,y, by="key")## # A tibble: 10 x 5
## key val_x val_x2 val_y val_y2
## <dbl> <chr> <chr> <chr> <chr>
## 1 1 Statistik A Sangat Baik Pertahankan
## 2 2 Kewarganegaraan B+ Baik Tingkatkan
## 3 1 Linier Algebra A Sangat Baik Pertahankan
## 4 2 Teosofi B+ Baik Tingkatkan
## 5 2 Sejarah Peradaban Islam A Baik Tingkatkan
## 6 1 PBO A Sangat Baik Pertahankan
## 7 2 Elektronik Digital A Baik Tingkatkan
## 8 2 Praktikum Elektronika Digital A Baik Tingkatkan
## 9 2 Praktikum PBO A Baik Tingkatkan
## 10 1 PKPBA A Sangat Baik Pertahankanx <- tribble(
~key, ~val_x, ~val_x2,
1, "Statistik", "A",
2, "Kewarganegaraan", "B+",
1, "Linier Algebra", "A",
2, "Teosofi", "B+",
2, "Sejarah Peradaban Islam", "A",
1, "PBO", "A",
2, "Elektronik Digital", "A",
2, "Praktikum Elektronika Digital", "A",
2, "Praktikum PBO", "A",
1, "PKPBA", "A"
)
y <- tribble(
~key, ~val_y,~val_y2,
1, "Sangat Baik", "Pertahankan",
2, "Baik", "Tingkatkan"
)
right_join(x,y, by="key")## # A tibble: 10 x 5
## key val_x val_x2 val_y val_y2
## <dbl> <chr> <chr> <chr> <chr>
## 1 1 Statistik A Sangat Baik Pertahankan
## 2 2 Kewarganegaraan B+ Baik Tingkatkan
## 3 1 Linier Algebra A Sangat Baik Pertahankan
## 4 2 Teosofi B+ Baik Tingkatkan
## 5 2 Sejarah Peradaban Islam A Baik Tingkatkan
## 6 1 PBO A Sangat Baik Pertahankan
## 7 2 Elektronik Digital A Baik Tingkatkan
## 8 2 Praktikum Elektronika Digital A Baik Tingkatkan
## 9 2 Praktikum PBO A Baik Tingkatkan
## 10 1 PKPBA A Sangat Baik Pertahankanx <- tribble(
~key, ~val_x, ~val_x2,
1, "Statistik", "A",
2, "Kewarganegaraan", "B+",
3, "Linier Algebra", "A",
4, "Teosofi", "B+",
5, "Sejarah Peradaban Islam", "A"
)
y <- tribble(
~key, ~val_y,~val_y2,
1, "PBO", "A",
2, "Elektronik Digital", "A",
3, "Praktikum Elektronika Digital", "A",
4, "Praktikum PBO", "A",
6, "PKPBA", "A"
)
semi_join(x,y, by="key")## # A tibble: 4 x 3
## key val_x val_x2
## <dbl> <chr> <chr>
## 1 1 Statistik A
## 2 2 Kewarganegaraan B+
## 3 3 Linier Algebra A
## 4 4 Teosofi B+x <- tribble(
~key, ~val_x, ~val_x2,
1, "Statistik", "A",
2, "Kewarganegaraan", "B+",
3, "Linier Algebra", "A",
3, "Teosofi", "B+",
1, "Sejarah Peradaban Islam", "A"
)
y <- tribble(
~key, ~val_y,~val_y2,
1, "PBO", "A",
2, "Elektronik Digital", "A",
3, "Praktikum Elektronika Digital", "A",
3, "Praktikum PBO", "A",
1, "PKPBA", "A"
)
semi_join(x,y, by="key")## # A tibble: 5 x 3
## key val_x val_x2
## <dbl> <chr> <chr>
## 1 1 Statistik A
## 2 2 Kewarganegaraan B+
## 3 3 Linier Algebra A
## 4 3 Teosofi B+
## 5 1 Sejarah Peradaban Islam Ax <- tribble(
~key, ~val_x, ~val_x2,
1, "Statistik", "A",
2, "Kewarganegaraan", "B+",
3, "Linier Algebra", "A",
4, "Teosofi", "B+",
5, "Sejarah Peradaban Islam", "A"
)
y <- tribble(
~key, ~val_y,~val_y2,
1, "PBO", "A",
2, "Elektronik Digital", "A",
3, "Praktikum Elektronika Digital", "A",
4, "Praktikum PBO", "A",
6, "PKPBA", "A"
)
anti_join(x,y, by="key")## # A tibble: 1 x 3
## key val_x val_x2
## <dbl> <chr> <chr>
## 1 5 Sejarah Peradaban Islam Aa <- tribble(
~x, ~y,
5, 4,
3, 1,
2, 6
)
b <- tribble(
~x, ~y,
5, 4,
3, 1,
2, 6
)
a## # A tibble: 3 x 2
## x y
## <dbl> <dbl>
## 1 5 4
## 2 3 1
## 3 2 6b## # A tibble: 3 x 2
## x y
## <dbl> <dbl>
## 1 5 4
## 2 3 1
## 3 2 6intersect(a,b)## # A tibble: 3 x 2
## x y
## <dbl> <dbl>
## 1 5 4
## 2 3 1
## 3 2 6union(a, b)## # A tibble: 3 x 2
## x y
## <dbl> <dbl>
## 1 5 4
## 2 3 1
## 3 2 6setdiff(a, b)## # A tibble: 0 x 2
## # ... with 2 variables: x <dbl>, y <dbl>setdiff(b, a)## # A tibble: 0 x 2
## # ... with 2 variables: x <dbl>, y <dbl>