market_share <- c(30, 25, 20, 15, 10) labels <- c("Company A", "Company B", "Company C", "Company D", "Others") pie(market_share, labels = labels, col = rainbow(length(labels)), main = "Pie Chart: Market Share")

set.seed(123) data <- rnorm(1000, mean = 50, sd = 10) hist(data, breaks = 30, col = "lightgreen", main = "Histogram: Random Normal Distribution", xlab = "Values")

Teknik Sampling dan Survei