Tugas Praktikum 1

library("ggplot2")
library("dplyr")

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

data.responsi <- read.csv("Data responsi.csv")

#Soal Nomor 3 Sajikan frekuensi responden menurut jenis kelamin dan usia menggunakan bar chart dan pie chart. Informasi apa yang Anda peroleh

ggplot(data.responsi, aes(JK, fill=as.factor(JK)), ylim=c(0,40), ylab="Frekuensi Jenis Kelamin", main="Histogram Jenis Kelamin") + geom_bar()

===============================================================================

#Soal Nomor 5 Sajikan peubah usia responden, tanggungan, pengalaman, dan pendapatan menggunakan dot plot, diagram dahan daun, histogram dan boxplot. Informasi apa yang Anda peroleh? Apakah semua grafik relevan untuk menyajikan peubah tersebut?

#Output Dotplot dari peubah Usia, Tanggungan, Pengalaman, dan Pendapatan 1. Peubah Usia

 stripchart(data.responsi[3], method = "stack", vertical = F, pch=19,col="navy", xlab="Usia Petani", main="Dotplot Usia Petani Padi Organik di Tasikmalaya")

2. Peubah Tangggungan

stripchart(data.responsi[5], method = "stack", vertical = F, pch=19,col="green", xlab="Tanggungan", main="Dotplot Jumlah Tanggungan Petani Padi Organik di Tasikmalaya")

3. Peubah Pengalaman

stripchart(data.responsi[7], method = "stack", vertical = F, pch=19,col="red", xlab="PengalamanPetani", main="Dotplot Pengalaman Petani Padi Organik di Tasikmalaya")

4. Peubah Pendapatan

stripchart(data.responsi[7], method = "stack", vertical = F, pch=19,col="black", xlab="Pendapatan Petani", main="Dotplot Pendapatan Petani Padi Organik di Tasikmalaya")

#Output Steam and Leaf dari peubah Usia, Tanggungan, Pengalaman, dan Pendapatan 1. Peubah Usia

stem(data.responsi$Usia)

## 
##   The decimal point is 1 digit(s) to the right of the |
## 
##   2 | 0
##   2 | 
##   3 | 
##   3 | 566678999
##   4 | 0112223444
##   4 | 55777
##   5 | 04
##   5 | 8
##   6 | 0
##   6 | 5

2. Peubah Tanggungan

stem(data.responsi$Tanggungan, scale = 2)

## 
##   The decimal point is at the |
## 
##    1 | 00000000
##    2 | 000000
##    3 | 000000000
##    4 | 000000
##    5 | 
##    6 | 
##    7 | 
##    8 | 
##    9 | 
##   10 | 
##   11 | 0

3. Peubah Pengalaman

stem(data.responsi$Pengalaman, scale = 1)

## 
##   The decimal point is at the |
## 
##    0 | 00
##    2 | 007
##    4 | 
##    6 | 000057000007
##    8 | 00777000
##   10 | 000
##   12 | 0
##   14 | 
##   16 | 0

4. Peubah Pendapatan

stem(data.responsi$Pendapatan)

## 
##   The decimal point is 1 digit(s) to the right of the |
## 
##   1 | 5567
##   2 | 003444
##   2 | 5556677799
##   3 | 00113
##   3 | 568
##   4 | 2
##   4 | 
##   5 | 
##   5 | 5

#Output Boxplot dari peubah Usia, Tanggungan, Pengalaman, dan Pendapatan 1. Peubah Usia

hist(data.responsi$Usia, main = "Histogram Usia", col = "darkblue", xlab="Usia")

2. Peubah Tanggungan

hist(data.responsi$Tanggungan, main = "Histogram Tanggungan", col = "blue", xlab="Tanggungan")

3. Peubah Pengalaman

hist(data.responsi$Pengalaman, main = "Histogram Pengalaman", col = "darkgrey", xlab="Pengalaman",xlim=c(0,20))

4. Peubah Pendapatan

hist(data.responsi$Pendapatan, main = "Histogram Pendapatan", col = "grey", xlab="Pendapatan", xlim = c(0,70))

#Output Boxplot dari peubah Usia, Tanggungan, Pengalaman, dan Pendapatan 1. Peubah Usia

boxplot(data.responsi$Usia, main="Boxplot Usia", col = "blue")

2. Peubah Tanggungan

boxplot(data.responsi$Tanggungan, main="Boxplot Tanggungan", ylim=c(0,15),pch=20)

3. Peubah Pengalaman

boxplot(data.responsi$Pengalaman, main="Boxplot Pengalaman", pch=20)

4. Peubah Pendapatan

boxplot(data.responsi$Pendapatan, main="Boxplot Pendapatan", pch=20)

=============================================================================== #Soal Nomor 7 1. Output Pengalaman dengan Pendapatan

plot(data.responsi$Pengalaman,data.responsi$Pendapatan, xlim = c(0,20), xlab = "Pengalaman", ylab = "Pendapatan")

2. Output Tanggungan dengan Pendapatan

plot(data.responsi$Tanggungan,data.responsi$Pendapatan, xlim=c(0,15), xlab = "Tanggungan", ylab = "Pendapatan")

#Soal Nomor 8 Tentukan nilai minimum, maksimum, rata-rata, median, simpangan baku dari semua peubah numerik. Informasi apa yang Anda peroleh?

data.responsi %>% select(Usia, Tanggungan, Pengalaman, Pendapatan) %>% summary()

##       Usia        Tanggungan       Pengalaman       Pendapatan   
##  Min.   :20.0   Min.   : 1.000   Min.   : 1.000   Min.   :15.00  
##  1st Qu.:39.0   1st Qu.: 1.250   1st Qu.: 6.000   1st Qu.:24.00  
##  Median :42.0   Median : 3.000   Median : 7.000   Median :26.25  
##  Mean   :43.2   Mean   : 2.733   Mean   : 7.323   Mean   :27.43  
##  3rd Qu.:46.5   3rd Qu.: 3.000   3rd Qu.: 8.925   3rd Qu.:30.75  
##  Max.   :65.0   Max.   :11.000   Max.   :16.000   Max.   :55.00