simpan <- data.frame(
jeniskelamin = c(
"Laki-Laki","Laki-Laki","Laki-Laki","Laki-Laki","Laki-Laki",
"Laki-Laki","Laki-Laki","Laki-Laki","Laki-Laki","Laki-Laki",
"Perempuan","Perempuan","Perempuan","Perempuan","Perempuan",
"Perempuan","Perempuan","Perempuan","Perempuan","Perempuan"
),
pendapatan = c(1,2,3,4,5,6,7,8,9,10,1,2,3,4,5,6,7,8,9,10),
pengeluaran = c(0.5,0.9,1.1,2,4,5,6.2,5.5,5.8,4.5,
0.7,1.4,2.8,3.3,4.3,5,6.7,5.9,5.7,8)
)
simpan
## jeniskelamin pendapatan pengeluaran
## 1 Laki-Laki 1 0.5
## 2 Laki-Laki 2 0.9
## 3 Laki-Laki 3 1.1
## 4 Laki-Laki 4 2.0
## 5 Laki-Laki 5 4.0
## 6 Laki-Laki 6 5.0
## 7 Laki-Laki 7 6.2
## 8 Laki-Laki 8 5.5
## 9 Laki-Laki 9 5.8
## 10 Laki-Laki 10 4.5
## 11 Perempuan 1 0.7
## 12 Perempuan 2 1.4
## 13 Perempuan 3 2.8
## 14 Perempuan 4 3.3
## 15 Perempuan 5 4.3
## 16 Perempuan 6 5.0
## 17 Perempuan 7 6.7
## 18 Perempuan 8 5.9
## 19 Perempuan 9 5.7
## 20 Perempuan 10 8.0
plot(
simpan[2:3],
main = "Pendapatan dan Pengeluaran per-Bulan, dalam Jutaan Rupiah"
)
Pendapatan=simpan$pendapatan
Pengeluaran=simpan$pengeluaran
plot(Pendapatan, Pengeluaran)
library(ggplot2)
qplot(
Pendapatan,
Pengeluaran,
main = "Pendapatan dan Pengeluaran per-Bulan, dalam Jutaan",
xlab = "Pendapatan per-Bulan",
ylab = "Pengeluaran per-Bulan"
)
## Warning: `qplot()` was deprecated in ggplot2 3.4.0.
## This warning is displayed once per session.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
jenis=simpan$jeniskelamin
ggplot(simpan, aes(Pendapatan, Pengeluaran)) +
geom_point(aes(color = jenis, shape = jenis))
grafik=ggplot(simpan, aes(Pendapatan, Pengeluaran)) +
geom_point(aes(color=jenis, shape=jenis))
grafik + geom_vline(xintercept=2.5)
grafik + geom_vline(xintercept = 2.5) +
geom_vline(xintercept = 5)
grafik + geom_vline(xintercept = 1:5)
grafik + geom_vline(xintercept = c(2.5, 5, 7.5))
data3.2 <- data.frame(
Tahun = 2001:2007,
Barang_A = c(90,100,115,130,140,150,160),
Barang_B = c(80,90,100,110,120,130,140),
Barang_C = c(70,80,90,100,110,120,130)
)
data3.2
## Tahun Barang_A Barang_B Barang_C
## 1 2001 90 80 70
## 2 2002 100 90 80
## 3 2003 115 100 90
## 4 2004 130 110 100
## 5 2005 140 120 110
## 6 2006 150 130 120
## 7 2007 160 140 130
Tahun <- data3.2$Tahun
Barang_A <- data3.2$Barang_A
plot(Tahun, Barang_A, type = "o")
Barang_B <- data3.2$Barang_B
plot(Tahun, Barang_A, type = "o")
lines(Tahun, Barang_B, type = "o")
Barang_C <- data3.2$Barang_C
plot(Tahun, Barang_A, type = "o")
lines(Tahun, Barang_B, type = "o")
lines(Tahun, Barang_C, type = "o")
plot(
Tahun,
Barang_A,
type = "o",
ylim = c(40,180),
main = "Data Penjualan Barang A, B, C, dari Tahun 2001-2007",
xlab = "Tahun",
ylab = "Jumlah Barang yang Terjual"
)
lines(Tahun, Barang_B, type = "o")
lines(Tahun, Barang_C, type = "o")
data3.3 <- data.frame(
Tahun = 2001:2007,
Barang_A = c(90,100,115,130,140,150,160)
)
data3.3
## Tahun Barang_A
## 1 2001 90
## 2 2002 100
## 3 2003 115
## 4 2004 130
## 5 2005 140
## 6 2006 150
## 7 2007 160
barplot(
data3.3$Barang_A,
data3.3$Tahun,
main = "Penjualan Barang Jenis A dari Tahun 2001-2007",
ylab = "Jumlah Barang yang Terjual",
names.arg = c(
"2001", "2002", "2003", "2004",
"2005", "2006", "2007"
)
)
data3.4 <- data.frame(
Jenis_Kelamin = c("Laki-Laki", "Laki-Laki", "Perempuan", "Perempuan"),
Hobi = c("Olahraga", "Memasak", "Olahraga", "Memasak"),
Jumlah = c(90, 10, 25, 75)
)
data3.4
## Jenis_Kelamin Hobi Jumlah
## 1 Laki-Laki Olahraga 90
## 2 Laki-Laki Memasak 10
## 3 Perempuan Olahraga 25
## 4 Perempuan Memasak 75
barplot(
matrix(data3.4$Jumlah, nrow = 2, byrow = TRUE),
beside = TRUE,
names.arg = c("Olahraga", "Memasak"),
main = "Hubungan antara Jenis Kelamin dan Hobi",
ylab = "Jumlah"
)
produk <- c("Produk A", "Produk B", "Produk C", "Produk D")
jumlah <- c(12, 5, 8, 10)
pie(
jumlah,
labels = produk,
main = "Jumlah Produk yang Terjual"
)
IQ <- c(
85,90,92,95,96,98,100,101,102,103,
105,106,107,108,109,110,111,112,113,114,
115,116,117,118,119,120,121,122,123,124,
125,126,127,128,129,130,131,132,133,134,
135,136,137,138,139,140,141,142,143,144,
145,146,147,148,149,150,151,152,153,154,
155,156,157,158,159,160,161,162,163,164,
165,166,167,168,169,170,171,172,173,174,
175,176,177
)
hist(
IQ,
main = "Histogram Skor IQ",
xlab = "Skor IQ",
ylab = "Frekuensi"
)
