Praktik Data Frame RK

Riza

install.packages(“tidyverse”) install.packages( “data.table”) install.packages( “readxl”) install.packages(“writexl”) install.packages(“ggplot2”) install.packages(“stringr”)

library(“tidyverse”)

getwd()

Membuat data

nama <- c(“Budi”, “Rudi”, “Johan”) umur <- c(23, 25, 26) kota <- c(“Bandung”, “Makassar”, “Medan”)

Menggabungkan data menjadi data frame

data_orang <- data.frame(Nama = nama, Umur = umur, Kota = kota)

Menampilkan data

print(data_orang)

Data nama

nama <- c(“Rudi”, “Joni”, “Budi”, “Dian”, “Jokowi”, “Prabowo”, “Mega”, “Gusdur”, “Luhut”, “Ahok”)

Data umur

umur <- c(22, 25, 22, 34, 45, 75, 60, 78, 77, 88)

Data kota: 3 Jakarta, 2 Medan, 1 Makassar, 4 Jayapura

kota <- c(rep(“Jakarta”, 3), rep(“Medan”, 2), “Makassar”, rep(“Jayapura”, 4))

Membuat data frame

data_orang <- data.frame(Nama = nama, Umur = umur, Kota = kota)

Menampilkan data

print(data_orang)

getwd() setwd(“~/Desktop”) setwd(“C:/Users/NAMA_USER/Desktop”)

write.csv(data_orang, “data_orang.csv”, row.names = FALSE)

Install package jika belum

install.packages(“rvest”) install.packages(“httr”)

Load library

library(rvest) library(httr)

URL detik news

url <- “https://news.detik.com/”

Ambil konten HTML

page <- read_html(url)

Cek struktur HTML (gunakan browser untuk inspect elemen dulu)

# Di sini kita ambil elemen judul berita utama (biasanya pakai tag

atau ) # Detik menggunakan banyak kelas dinamis, contoh selector berikut bisa berubah

# Contoh ambil semua teks dari elemen

judul_berita <- page %>% html_elements(“h2”) %>% html_text()

Tampilkan hasil

print(judul_berita)