TUGAS BAB III (Grafik Batang)

#penjualann barang grafik batang

simpan = read.csv2(file.choose())
simpan

##   Jenis.Kelamin     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)

## Warning: package 'ggplot2' was built under R version 4.5.3

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="none")

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")