library(tidyverse)## Warning: package 'tidyverse' was built under R version 4.3.2## Warning: package 'ggplot2' was built under R version 4.3.2## Warning: package 'readr' was built under R version 4.3.2## Warning: package 'dplyr' was built under R version 4.3.2## Warning: package 'forcats' was built under R version 4.3.2## Warning: package 'lubridate' was built under R version 4.3.2## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.4 ✔ readr 2.1.4
## ✔ forcats 1.0.0 ✔ stringr 1.5.0
## ✔ ggplot2 3.4.4 ✔ tibble 3.2.1
## ✔ lubridate 1.9.3 ✔ tidyr 1.3.0
## ✔ purrr 1.0.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errorslibrary(datasets)
data("trees")
view(trees)
class(trees)## [1] "data.frame"glimpse(trees)## Rows: 31
## Columns: 3
## $ Girth <dbl> 8.3, 8.6, 8.8, 10.5, 10.7, 10.8, 11.0, 11.0, 11.1, 11.2, 11.3, …
## $ Height <dbl> 70, 65, 63, 72, 81, 83, 66, 75, 80, 75, 79, 76, 76, 69, 75, 74,…
## $ Volume <dbl> 10.3, 10.3, 10.2, 16.4, 18.8, 19.7, 15.6, 18.2, 22.6, 19.9, 24.…mean(trees$Volume)## [1] 30.17097mean(trees$Volume)==trees$Volume %>% mean()## [1] TRUEx <- c(0.109, 0.359, 0.63, 0.996, 0.515, 0.142, 0.017, 0.829, 0.907)
x %>% log () %>%
diff() %>%
exp() %>%
round(1) ## [1] 3.3 1.8 1.6 0.5 0.3 0.1 48.8 1.1trees %>% summarise(mean=mean(Volume))## mean
## 1 30.17097trees %>% arrange(Height)## Girth Height Volume
## 1 8.8 63 10.2
## 2 13.8 64 24.9
## 3 8.6 65 10.3
## 4 11.0 66 15.6
## 5 11.7 69 21.3
## 6 8.3 70 10.3
## 7 13.7 71 25.7
## 8 10.5 72 16.4
## 9 16.0 72 38.3
## 10 12.9 74 22.2
## 11 14.5 74 36.3
## 12 11.0 75 18.2
## 13 11.2 75 19.9
## 14 12.0 75 19.1
## 15 11.4 76 21.0
## 16 11.4 76 21.4
## 17 16.3 77 42.6
## 18 14.0 78 34.5
## 19 11.3 79 24.2
## 20 11.1 80 22.6
## 21 14.2 80 31.7
## 22 17.9 80 58.3
## 23 18.0 80 51.5
## 24 18.0 80 51.0
## 25 10.7 81 18.8
## 26 17.3 81 55.4
## 27 17.5 82 55.7
## 28 10.8 83 19.7
## 29 12.9 85 33.8
## 30 13.3 86 27.4
## 31 20.6 87 77.0trees %>% arrange(desc(Height))## Girth Height Volume
## 1 20.6 87 77.0
## 2 13.3 86 27.4
## 3 12.9 85 33.8
## 4 10.8 83 19.7
## 5 17.5 82 55.7
## 6 10.7 81 18.8
## 7 17.3 81 55.4
## 8 11.1 80 22.6
## 9 14.2 80 31.7
## 10 17.9 80 58.3
## 11 18.0 80 51.5
## 12 18.0 80 51.0
## 13 11.3 79 24.2
## 14 14.0 78 34.5
## 15 16.3 77 42.6
## 16 11.4 76 21.0
## 17 11.4 76 21.4
## 18 11.0 75 18.2
## 19 11.2 75 19.9
## 20 12.0 75 19.1
## 21 12.9 74 22.2
## 22 14.5 74 36.3
## 23 10.5 72 16.4
## 24 16.0 72 38.3
## 25 13.7 71 25.7
## 26 8.3 70 10.3
## 27 11.7 69 21.3
## 28 11.0 66 15.6
## 29 8.6 65 10.3
## 30 13.8 64 24.9
## 31 8.8 63 10.2trees %>% filter(Height >= 80) %>% arrange(desc(Height))## Girth Height Volume
## 1 20.6 87 77.0
## 2 13.3 86 27.4
## 3 12.9 85 33.8
## 4 10.8 83 19.7
## 5 17.5 82 55.7
## 6 10.7 81 18.8
## 7 17.3 81 55.4
## 8 11.1 80 22.6
## 9 14.2 80 31.7
## 10 17.9 80 58.3
## 11 18.0 80 51.5
## 12 18.0 80 51.0trees %>% select(Height, Volume) ## Height Volume
## 1 70 10.3
## 2 65 10.3
## 3 63 10.2
## 4 72 16.4
## 5 81 18.8
## 6 83 19.7
## 7 66 15.6
## 8 75 18.2
## 9 80 22.6
## 10 75 19.9
## 11 79 24.2
## 12 76 21.0
## 13 76 21.4
## 14 69 21.3
## 15 75 19.1
## 16 74 22.2
## 17 85 33.8
## 18 86 27.4
## 19 71 25.7
## 20 64 24.9
## 21 78 34.5
## 22 80 31.7
## 23 74 36.3
## 24 72 38.3
## 25 77 42.6
## 26 81 55.4
## 27 82 55.7
## 28 80 58.3
## 29 80 51.5
## 30 80 51.0
## 31 87 77.0trees %>% select(Height, Volume) %>% filter(Height >= 80) %>% arrange(desc(Height))## Height Volume
## 1 87 77.0
## 2 86 27.4
## 3 85 33.8
## 4 83 19.7
## 5 82 55.7
## 6 81 18.8
## 7 81 55.4
## 8 80 22.6
## 9 80 31.7
## 10 80 58.3
## 11 80 51.5
## 12 80 51.0trees %>% select(-Volume)## Girth Height
## 1 8.3 70
## 2 8.6 65
## 3 8.8 63
## 4 10.5 72
## 5 10.7 81
## 6 10.8 83
## 7 11.0 66
## 8 11.0 75
## 9 11.1 80
## 10 11.2 75
## 11 11.3 79
## 12 11.4 76
## 13 11.4 76
## 14 11.7 69
## 15 12.0 75
## 16 12.9 74
## 17 12.9 85
## 18 13.3 86
## 19 13.7 71
## 20 13.8 64
## 21 14.0 78
## 22 14.2 80
## 23 14.5 74
## 24 16.0 72
## 25 16.3 77
## 26 17.3 81
## 27 17.5 82
## 28 17.9 80
## 29 18.0 80
## 30 18.0 80
## 31 20.6 87trees %>% select(-Volume) %>% arrange(Girth)## Girth Height
## 1 8.3 70
## 2 8.6 65
## 3 8.8 63
## 4 10.5 72
## 5 10.7 81
## 6 10.8 83
## 7 11.0 66
## 8 11.0 75
## 9 11.1 80
## 10 11.2 75
## 11 11.3 79
## 12 11.4 76
## 13 11.4 76
## 14 11.7 69
## 15 12.0 75
## 16 12.9 74
## 17 12.9 85
## 18 13.3 86
## 19 13.7 71
## 20 13.8 64
## 21 14.0 78
## 22 14.2 80
## 23 14.5 74
## 24 16.0 72
## 25 16.3 77
## 26 17.3 81
## 27 17.5 82
## 28 17.9 80
## 29 18.0 80
## 30 18.0 80
## 31 20.6 87#perbandingan tinggi dan volume pohon
treeslevel <- trees %>% mutate(ratio.vol.height=Volume/Height)
treeslevel## Girth Height Volume ratio.vol.height
## 1 8.3 70 10.3 0.1471429
## 2 8.6 65 10.3 0.1584615
## 3 8.8 63 10.2 0.1619048
## 4 10.5 72 16.4 0.2277778
## 5 10.7 81 18.8 0.2320988
## 6 10.8 83 19.7 0.2373494
## 7 11.0 66 15.6 0.2363636
## 8 11.0 75 18.2 0.2426667
## 9 11.1 80 22.6 0.2825000
## 10 11.2 75 19.9 0.2653333
## 11 11.3 79 24.2 0.3063291
## 12 11.4 76 21.0 0.2763158
## 13 11.4 76 21.4 0.2815789
## 14 11.7 69 21.3 0.3086957
## 15 12.0 75 19.1 0.2546667
## 16 12.9 74 22.2 0.3000000
## 17 12.9 85 33.8 0.3976471
## 18 13.3 86 27.4 0.3186047
## 19 13.7 71 25.7 0.3619718
## 20 13.8 64 24.9 0.3890625
## 21 14.0 78 34.5 0.4423077
## 22 14.2 80 31.7 0.3962500
## 23 14.5 74 36.3 0.4905405
## 24 16.0 72 38.3 0.5319444
## 25 16.3 77 42.6 0.5532468
## 26 17.3 81 55.4 0.6839506
## 27 17.5 82 55.7 0.6792683
## 28 17.9 80 58.3 0.7287500
## 29 18.0 80 51.5 0.6437500
## 30 18.0 80 51.0 0.6375000
## 31 20.6 87 77.0 0.8850575treeslevel %>% arrange(desc(ratio.vol.height))## Girth Height Volume ratio.vol.height
## 1 20.6 87 77.0 0.8850575
## 2 17.9 80 58.3 0.7287500
## 3 17.3 81 55.4 0.6839506
## 4 17.5 82 55.7 0.6792683
## 5 18.0 80 51.5 0.6437500
## 6 18.0 80 51.0 0.6375000
## 7 16.3 77 42.6 0.5532468
## 8 16.0 72 38.3 0.5319444
## 9 14.5 74 36.3 0.4905405
## 10 14.0 78 34.5 0.4423077
## 11 12.9 85 33.8 0.3976471
## 12 14.2 80 31.7 0.3962500
## 13 13.8 64 24.9 0.3890625
## 14 13.7 71 25.7 0.3619718
## 15 13.3 86 27.4 0.3186047
## 16 11.7 69 21.3 0.3086957
## 17 11.3 79 24.2 0.3063291
## 18 12.9 74 22.2 0.3000000
## 19 11.1 80 22.6 0.2825000
## 20 11.4 76 21.4 0.2815789
## 21 11.4 76 21.0 0.2763158
## 22 11.2 75 19.9 0.2653333
## 23 12.0 75 19.1 0.2546667
## 24 11.0 75 18.2 0.2426667
## 25 10.8 83 19.7 0.2373494
## 26 11.0 66 15.6 0.2363636
## 27 10.7 81 18.8 0.2320988
## 28 10.5 72 16.4 0.2277778
## 29 8.8 63 10.2 0.1619048
## 30 8.6 65 10.3 0.1584615
## 31 8.3 70 10.3 0.1471429Note that the echo = FALSE parameter was added to the
code chunk to prevent printing of the R code that generated the
plot.