The data simulation in this data analysis tries to read the direction of the ideology of society in the Jakarta area, with a sample of one area consisting of 100, so that the data consists of 500 samples.
dataideology <-data.frame(
Region= c(
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"East Jakarta","East Jakarta","East Jakarta","East Jakarta","East Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"West Jakarta","West Jakarta","West Jakarta","West Jakarta","West Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"South Jakarta","South Jakarta","South Jakarta","South Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"Center Jakarta","Center Jakarta","Center Jakarta","Center Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta",
"North Jakarta","North Jakarta","North Jakarta","North Jakarta"),
x =c(2.2,2.3,2.2,2.4,2.5,2.4,2.6,2.7,2.6,2.7,2.1,2.1,2.4,2.3,2.4,2.4,2.7,
2.5,2.9,3.2,3.1,3.3,3.3,3.5,2.3,2.3,2.4,2.6,2.4,3.4,3.5,3.6,3.6,3.8,
3.9,3.7,3.6,3.6,2.3,2.3,2.3,2.3,2.3,2.3,2.3,1.2,1.2,1.4,1.4,1.6,1.7,1.6,
1.8,1.6,1.9,2,2.1,2.1,2.4,2.5,2.4,2.1,2.6,2.6,2.7,2.1,2.1,2.7,2.1,2.1,
2.3,3.1,1.1,2.1,1.1,1.2,1.2,2.1,2.3,3.2,3,2.1,2.1,2.3,2.4,2.4,2.1,2.1,
2.1,1,1,1.8,3,3,3,2.1,2.1,2.9,3,3,4.1,4.1,4.2,4.5,6.1,5.1,4.1,5.1,5.1,
5.6,6,6,6,5.3,4.1,4.5,5.6,5.9,5.9,5.9,5.9,5.8,5.8,5.8,5.4,6,5.3,5.1,
4.3,4.3,4.5,4.5,4.3,5.6,5.6,5.6,4.5,5.6,5.4,5.3,5.3,4.5,4.2,4.2,4.4,
4.6,5.5,5.4,4.1,6,4.8,5.9,5.3,5.3,5.3,4.1,4.1,4.2,4.2,4.1,4.5,5,5,5,
5.3,6.1,6.2,6.2,5.1,5.1,5.2,4.1,4,4.9,4.3,3.9,3.9,5.9,5.9,5.1,4.4,4.1,
4.4,4.3,4.3,4.6,5.2,4.5,4.2,4.2,4.5,5.4,5.6,3.9,4.1,4.6,5.1,4.3,5.5,6,
9.1,9.3,9.3,8.1,8.4,7.2,6.2,6.9,7.1,7.4,7.3,7.5,8.1,6.8,8.2,8.3,9.1,9.8,
8.2,9.1,7.5,8.9,9,8.5,8.4,8.1,7.9,8.1,9,6.9,8.5,8.2,8,8.1,8.2,8.9,9,8.9,
9.7,7.5,7.8,8.1,9.5,7.7,7.8,8.2,8.5,8.5,8.3,8.6,7.4,7.3,6.9,9.1,9,7.9,
6.7,7.8,8.4,6.9,7.8,8.1,9.6,9.1,9.6,9.6,9.5,9,7.9,8,8.6,8.3,8.4,8.7,8.6,
8.5,8.4,7.1,7.1,7.2,7,7.9,8.9,9.9,9.1,7.8,7.5,6.9,9.1,8.3,8.2,8.7,7.9,
7.4,8.1,8.4,9.1,9.6,7.4,8.5,8.6,8.7,9.5,9.5,9.4,9.5,9.6,9.6,9.2,9.5,
9.6,9.5,9.5,9.4,9.6,9.5,9.3,9.5,9.2,9.4,9.5,8.2,7.9,9.3,8,7.5,8,8.7,7.6,
6.8,9.7,7.6,7.6,7.9,8.7,8.7,7.8,7.9,7.9,8.3,9.4,9.6,9.7,9.5,8.3,9.5,8.4,
8.6,8.6,9.5,7.8,8.7,8.9,7.8,7.8,9.6,9.4,9.5,7.6,9.8,7.8,8.7,7.8,9.8,7.8,
9.8,7.7,7.7,7.8,7.9,7.6,8.7,9.8,8.7,8.7,9.8,6.8,8.7,7.8,9.7,6.7,8.7,8.2,
9.2,9.2,9.4,9.4,8.4,8.6,7.6,8.7,7.8,8.7,7.6,8.7,8.6,9.6,8.7,7.8,8,6.6,6,
5,7.7,5.4,5.4,5.6,4.7,2.3,4.5,9.4,6.8,7.5,6.7,8.6,6.7,7.6,7.7,8.7,6.5,
4.3,5.5,7.9,8.5,4.9,7.6,7.6,6.4,6.5,5.7,7.6,8.4,8.4,4.5,5.6,7.5,7.6,7.6,
7.5,4.5,7.5,6.7,7.6,7.5,5.4,6.7,7.5,7.7,8.5,8.5,7.6,6.6,6.3,7.5,7.5,8.6,
8.6,7.5,9.7,4.3,3.1,4.2,4.2,6.5,6.4,6.4,6.7,7.5,7.4,6.7,7.5,6.4,6.7,4.3,
7.7,7.7,7.7,7.7,3.7,3.7,3.7,3.7,3.7,6.6,5.5,6.6,3.5,3.5,4.3,6.5,4.6,5.6,
6.4,4.6,4.3,5.4,6.4,5.4,4.5,5.4),
y =c(9.1,9.3,9.1,9,8.1,9.1,9.1,7.1,7.1,7.4,7.5,8.3,9.1,8.1,8.3,8.5,8.4,8.2,9.2,
9.1,9.4,9.4,8.3,8.4,7.1,8.1,9.1,7,8,8,8,8,8,8.2,8.4,8.5,7.5,8.4,8.1,8.2,8.3,
9.3,9.3,9.4,9.4,7.8,7.8,9.8,7.6,8.9,9.7,7.7,8.6,6.4,8.7,7.6,7.8,7.6,8.8,8.3,
7,8.7,7.8,6.9,9.8,9.7,8.7,8.7,7.7,7.6,9.7,8.6,8.6,8.7,7.8,7.6,8.6,8.6,8.6,
8.8,9.7,9.8,9.8,8.9,9.8,9.8,8.9,7.8,7.8,7.5,7.6,8.5,8.6,8.7,7.8,7.6,7.5,7.7,
7.7,8,7.6,7.6,9.8,9.7,8.7,8.7,8.6,7.6,8,8.7,8,8,8.7,8.7,8.9,9.8,8.7,8,7.7,
7.5,8.7,8.6,7.8,9.7,7.6,7,8,7.8,8.7,8.7,8.9,9.6,9.6,8.7,9.7,9.4,9.6,8.7,8.6,
8.5,8.4,8,9.4,9.4,9.5,9.6,9.5,9.5,7.8,8.7,8.7,7.9,7.8,7.8,7.8,7.6,7.6,8.7,
9.3,8.3,8.7,9.7,9.5,8.6,8.6,7.8,7.6,9.5,7.6,7.8,7.3,7.3,7.2,7.1,7.8,8.7,8.4,
8.2,9.3,9.5,9.5,9.4,9.2,8.3,8.3,8.2,8.4,8.2,9,9.3,9.4,9.5,9.3,9.3,9.3,9.5,
9.8,9.5,9,8.5,3.2,3.1,3.1,4.1,2.1,1.1,0.4,0.2,0,5,0,5,0.3,2.1,3.1,2.1,2.5,
2.1,2.5,2.1,2.5,3.1,2.1,2.1,2.1,0.8,0.1,1.1,2.1,2.1,3.1,3.9,2.1,2.4,2.1,0.4,
1.9,1.8,1.4,1.4,1.1,0.2,2.1,2.3,1.2,2,3,2,3,2,1,1,1,1.3,1.6,1.7,1.9,2.9,1.2,
1.4,1.4,1.8,1.3,2.1,2.3,2.6,1.1,1.1,1.3,1.4,1.2,1.5,1.6,1.7,2.1,2.3,2.5,2.1,
3.4,1.3,1.3,2.1,1.5,1.4,1.4,1.2,1.3,3.1,1.4,2.1,4.1,3.1,2.6,2.6,2.1,2.1,2.9,
2,2,3.4,3.1,1.2,3,1.2,1.2,1.9,1.8,1.9,1.2,1.2,0.4,0.4,0.5,0.5,0.4,0.4,0.3,
0.2,0.4,0.4,0.2,0.1,0.1,0.3,0.3,0.5,0.5,0.6,0.5,1.2,1.4,1.5,1,2,1.2,1.4,1.5,
1.9,1.8,1.8,1.7,1.5,1.5,1.5,1.8,1.6,1.5,3.2,3.2,2.3,2.5,2.6,2.9,2.5,2.4,2.4,
1.5,3.1,2.1,3.1,4.5,3.2,1.3,1.4,3.2,3.2,4.3,2.4,2.3,3.3,3.3,3.4,1.2,2.4,2.4,
2.6,2.7,3.9,3.2,3.2,3.4,2.1,2.1,2.4,1.2,1.4,1.5,1.4,1.5,3,2,2,2,2.1,2.3,1.2,
1.9,1.8,1.3,1.4,3.2,3.2,2.3,5.4,5.4,7.6,5.6,7.5,7.8,3.9,4.2,7.5,7.6,7.5,7.5,
8.5,7.4,7.7,7.6,8.7,8.7,4.2,4.4,6.4,5.4,5.3,7.5,5.4,4.3,4.3,4.4,4.2,7.4,9.2,
9.2,3.2,3.2,4.2,7.5,4.2,4,5,6,6,6,6,6.3,6.3,7.4,8.7,8.7,7.6,7.5,7.5,6.7,7.7,
6.4,5.4,5.4,6.4,6.4,4.3,7.5,6.8,6.3,3.5,7.4,5.5,6.4,5.7,1.3,1.3,1.5,1.5,6.3,
4.3,2.3,3.1,5.3,3.2,3.2,5.4,5.3,8.3,8.5,8.5,8.5,8.5,8.5,7.4,6.4,6.4,6.4,3.2,
4.2,4.3,5.3,5.3,4.5,4.2))
Create Data Analyst with ggplot2;
library(ggplot2)
ggplot(dataideology, aes(x = x, y = y, color = Region)) +
geom_point() +
stat_ellipse() +
labs(title = "Ideological of Jakarta Society",
x = "Liberal-Moderate",
y = "Conservative-Traditional") +
geom_vline(xintercept = 5, linetype = "dashed") +
geom_hline(yintercept = 5, linetype = "dashed") +
theme_bw()+
theme(plot.title = element_text(face = "bold"))
The image you show is a scatter plot that shows the ideological distribution of society in various areas of Jakarta. Here is how to describe the plot.
X-Axis (Horizontal): Measured from Liberal-Moderate, with lower values toward the left (more liberal) and higher values toward the right (more moderate).
Y-Axis (Vertical): Measured from Conservative-Traditional, with lower values toward the bottom (more conservative) and higher values toward the top (more traditional).
East Jakarta: Most of the data points are in the upper right quadrant, indicating a tendency towards a more Moderate-Traditional ideology.
West Jakarta: The distribution tends to be in the upper left quadrant, indicating a more Liberal-Traditional tendency.
North Jakarta: This data group is widely distributed, with most of the data in the upper middle quadrant, covering a more Traditional spectrum but with a wider variation in the Liberal-Moderate dimension.
South Jakarta and Center Jakarta: Both of these areas are more distributed in the lower right quadrant, indicating a more Moderate tendency with a slight tendency towards Liberal.
Relationship between Location and Ideology: This plot shows that there is a certain relationship between the geographic location in Jakarta and the ideological tendencies of its people. For example, residents from East Jakarta tend to be more moderate and traditional compared to other areas, while residents from West Jakarta tend to be more liberal but still maintain traditional values.
Data Distribution: The differences in the distribution of points in each area indicate the diversity in the ideologies of the people in Jakarta. Some areas show a more concentrated pattern (for example, East Jakarta), while other areas such as North Jakarta show a wider spread.