1 Data

library(readxl)
data <- read_excel ("DataVenn.xlsx")
## New names:
## • `` -> `...1`
colnames(data) <- c("Category", "Tidak_Deprivasi", "Deprivasi", "Total")
data
## # A tibble: 3 × 4
##   Category     Tidak_Deprivasi Deprivasi     Total
##   <chr>                  <dbl>     <dbl>     <dbl>
## 1 Tidak_Miskin       64286798.  7131890. 71418688.
## 2 Miskin              5775236.  3447631.  9222867.
## 3 Total              70062034. 10579521. 80641555.

Mengubah kolom yang diperlukan menjadi numerik

data$Tidak_Deprivasi <- as.numeric(data$Tidak_Deprivasi)
data$Deprivasi <- as.numeric(data$Deprivasi)
data$Total <- as.numeric(data$Total)
data$Tidak_Deprivasi
## [1] 64286798  5775236 70062034
data$Deprivasi
## [1]  7131890  3447631 10579521
data$Total
## [1] 71418688  9222867 80641555

2 Menghitung Persentase

# Menghitung nilai diagonal (Tidak Miskin - Tidak Deprivasi dan Miskin - Deprivasi)
diagonal_values <- c(data$Tidak_Deprivasi[1], data$Deprivasi[2])

# Total populasi
total_population <- data$Total[3]

Menghitung persentase diagonal

diagonal_percentages <- (diagonal_values / total_population) * 100
# Menghitung persentase untuk setiap nilai berdasarkan total populasi
data$Tidak_Deprivasi_percent <- round((data$Tidak_Deprivasi / total_population) * 100,2)
data$Deprivasi_percent <- round((data$Deprivasi / total_population) * 100,2)

# Menampilkan hasil sebagai dataframe
result <- data.frame(
  Category = data$Category,
  Tidak_Deprivasi_Percent = data$Tidak_Deprivasi_percent,
  Deprivasi_Percent = data$Deprivasi_percent
)
result
##       Category Tidak_Deprivasi_Percent Deprivasi_Percent
## 1 Tidak_Miskin                   79.72              8.84
## 2       Miskin                    7.16              4.28
## 3        Total                   86.88             13.12

3 Diagram Venn

library(VennDiagram)
## Loading required package: grid
## Loading required package: futile.logger

Menentukan ukuran grup berdasarkan data yang ada

Area 1: Hanya Miskin (Tidak Deprivasi untuk Miskin)

Area 2: Hanya Deprivasi (Deprivasi untuk Tidak Miskin)

Intersection: Miskin dan Deprivasi (Deprivasi untuk Miskin)

area1 <- 7.16          # Miskin dan Tidak Deprivasi
area2 <- 8.84          # Tidak Miskin dan Deprivasi
intersection <- 4.28   # Miskin dan Deprivasi

# Membuat plot Venn
venn.plot <- draw.pairwise.venn(
  area1 = area1,
  area2 = area2,
  cross.area = intersection,
  category = c("Miskin", "Deprivasi"),
  fill = c("lightblue", "lightgreen"),
  lty = "blank",
  cex = 2,
  cat.cex = 2,
  cat.pos = c(0, 0),
  cat.dist = 0.05
)

#grid.draw(venn.plot)

Direktorat Statistik Kesejahteraan Rakyat, BPS,