data3.4

simpan = read.table("data3.4.csv", header = TRUE, sep = ",")
simpan

##   jeniskelamin     hobi jumlah
## 1    laki-laki olahraga     90
## 2    laki-laki  Memasak     10
## 3    Perempuan olahraga     25
## 4    Perempuan  Memasak     75

frekuensi = c(90, 10, 25, 75)
barplot(t(matrix(frekuensi, ncol = 2, byrow = TRUE, dimnames = list(c("Laki-Laki", "Perempuan"), c("Olahraga", "Memasak")))),
        main = "Hubungan antara Jenis Kelamin dan Hobi", xlab = "Jenis Kelamin",
        col = c("darkblue", "orange"), beside = TRUE, ylim = c(0, 150), legend.text = TRUE,
        args.legend = list(x = "topright"))

frekuensi2 = c(2, 12, 16, 6)
barplot(frekuensi2, ylim = c(0, 20), main = "Jumlah Mahasiswa yang Memperoleh Nilai A, B, C, dan D, untuk Matakuliah Matematika 1",
        names.arg = c("A", "B", "C", "D"), ylab = "Jumlah Mahasiswa",
        xlab = "Nilai Mahasiswa", cex.names = 0.8, col = c("green", "yellow", "orange", "red"))

dat = data.frame(
  jenis_kelamin = factor(c("Laki-Laki", "Perempuan"), levels = c("Laki-Laki", "Perempuan")),
  total = c(20, 70))
dat

##   jenis_kelamin total
## 1     Laki-Laki    20
## 2     Perempuan    70

library(ggplot2)
ggplot(data = dat, aes(x = jenis_kelamin, y = total)) + geom_bar(stat = "identity")

ggplot(data = dat, aes(x = jenis_kelamin, y = total, fill = jenis_kelamin)) + geom_bar(stat = "identity")

ggplot(data = dat, aes(x = jenis_kelamin, y = total, fill = jenis_kelamin)) + geom_bar(stat = "identity") + guides(fill = FALSE)

## Warning: The `<scale>` argument of `guides()` cannot be `FALSE`. Use "none" instead as
## of ggplot2 3.3.4.
## This warning is displayed once per session.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

ggplot(data = dat, aes(x = jenis_kelamin, y = total, fill = jenis_kelamin)) + geom_bar(stat = "identity") +
  xlab("Jenis Kelamin") + ylab("Jumlah Mahasiswa") + ggtitle("Universitas XYZ")

dat = data.frame(
  jenis_kelamin = factor(c("Laki-Laki", "Laki-Laki", "Perempuan", "Perempuan"), 
                         levels = c("Laki-Laki", "Perempuan")),
  hobi = factor(c("Olahraga", "Memasak", "Olahraga", "Memasak"), 
                levels = c("Olahraga", "Memasak")),
  total = c(80, 20, 40, 60)
)
dat

##   jenis_kelamin     hobi total
## 1     Laki-Laki Olahraga    80
## 2     Laki-Laki  Memasak    20
## 3     Perempuan Olahraga    40
## 4     Perempuan  Memasak    60

ggplot(data = dat, aes(x = hobi, y = total, fill = jenis_kelamin)) + 
  geom_bar(stat = "identity", position = position_stack(reverse = TRUE)) + 
  xlab("Hobi Mahasiswa") + 
  ylab("Jumlah Mahasiswa") + 
  ggtitle("Universitas XYZ") + 
  geom_text(aes(y = total / 1.3, label = total), position = position_stack(reverse = TRUE))

ggplot(data = dat, aes(x = hobi, y = total, fill = jenis_kelamin)) + 
  geom_bar(stat = "identity", position = position_dodge()) + 
  xlab("Hobi Mahasiswa") + 
  ylab("Jumlah Mahasiswa") + 
  ggtitle("Universitas XYZ")

ggplot(data = dat, aes(x = hobi, y = total, fill = jenis_kelamin)) + 
  geom_bar(stat = "identity", position = position_dodge()) + 
  xlab("Hobi Mahasiswa") + 
  ylab("Jumlah Mahasiswa") + 
  ggtitle("Universitas XYZ") + 
  geom_text(aes(y = total / 4, label = total), position = position_dodge(width = 1))