Tugas membuat rpubs
Natasya Azizah Ramadhani
2025-06-13
Membuat grafik dari data mtcars
Hii guyss!!! jadi disini saya mau mengolah data menggunakan datamtcars
R code
mtcars <- head(mtcars)
kable(mtcars)| mpg | cyl | disp | hp | drat | wt | qsec | vs | am | gear | carb | |
|---|---|---|---|---|---|---|---|---|---|---|---|
| Mazda RX4 | 21.0 | 6 | 160 | 110 | 3.90 | 2.620 | 16.46 | 0 | 1 | 4 | 4 |
| Mazda RX4 Wag | 21.0 | 6 | 160 | 110 | 3.90 | 2.875 | 17.02 | 0 | 1 | 4 | 4 |
| Datsun 710 | 22.8 | 4 | 108 | 93 | 3.85 | 2.320 | 18.61 | 1 | 1 | 4 | 1 |
| Hornet 4 Drive | 21.4 | 6 | 258 | 110 | 3.08 | 3.215 | 19.44 | 1 | 0 | 3 | 1 |
| Hornet Sportabout | 18.7 | 8 | 360 | 175 | 3.15 | 3.440 | 17.02 | 0 | 0 | 3 | 2 |
| Valiant | 18.1 | 6 | 225 | 105 | 2.76 | 3.460 | 20.22 | 1 | 0 | 3 | 1 |
Menampilkan keterangan mpg untuk 6 mobil pertama
data <- head(mtcars)
data$car <- rownames(data)
ggplot(data, aes(x = reorder(car, mpg), y = mpg, fill = car)) +
geom_bar(stat = "identity") +
labs(title = "MPG untuk 6 Mobil Pertama",
x = "Mobil",
y = "Miles Per Gallon") +
theme_minimal() +
theme(legend.position = "none") +
coord_flip()