Mandarel UAS

{r} library(datasets) library(tidyverse) #memanggil data rivers data(CO2) CO2 <- tibble::as.tibble(CO2) {r} #Mendapatkan atau menetapkan kelas objek class(CO2) {r} #Memberikan ringkasan atau tampilan yang lebih lengkap tentang struktur suatu dataset glimpse(CO2) {r} #Menampilkan beberapa baris pertama dari suatu objek head(CO2) {r} #Menghitung Rata-rata ranking lagu di minggu pertama Tahun 2000 mean(CO2$conc) {r} #mengurutkan peubah conc dari yang terkecil CO2 %>% arrange(conc) {r} #Mengurutkan berdasarkan peubah conc dari nilai terbesar CO2 %>% arrange(desc(conc)) ```{r} #menghapus kolom quebec CO2 %>% filter(Type==“Quebec”)

```{r}
#Menghitung rata-rata conc setiap plant
CO2 %>% group_by(Plant) %>% summarize(mean=mean(conc))

{r} #memilih kolom plant,conc, dan treatment CO2 %>% select(Plant,conc,Treatment) {r} #menghilangkan kolom conc dan uptake CO2 %>% select(-conc,-uptake) {r} #Mutasi CO2 %>% mutate(conup=conc+uptake) CO2BARU <- CO2 %>% select(-Plant,-Treatment) %>% mutate(conup=conc+uptake) View(CO2BARU)