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
require(maps)
## Loading required package: maps
require(viridis)
## Loading required package: viridis
## Loading required package: viridisLite
##
## Attaching package: 'viridis'
## The following object is masked from 'package:maps':
##
## unemp
library(sf)
## Linking to GEOS 3.11.2, GDAL 3.7.2, PROJ 9.3.0; sf_use_s2() is TRUE
library(ggrepel)
library(plotly)
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
theme_set(
theme_void()
)
map <- read_sf("shp/shp_sheet2.shp")
ggplot(map) +
geom_sf(color = "white", aes(fill = COUNTRY)) +
theme(legend.position = "none") +
geom_sf_text(aes(label = COUNTRY), size = 2)
warna <- rep("red", 24)
warna
## [1] "red" "red" "red" "red" "red" "red" "red" "red" "red" "red" "red" "red"
## [13] "red" "red" "red" "red" "red" "red" "red" "red" "red" "red" "red" "red"
map <- read_sf("shp/shp_sheet2.shp")
ggplot(map) +
geom_sf(color = "white", aes(fill = COUNTRY)) +
geom_sf_text(aes(label = COUNTRY), size = 2) +
theme(legend.position = "bottom") +
scale_fill_manual(values = c(warna) ) +
labs(fill='JUDUL LEGEND')
warna <- c("green","green","green","green","orange","orange","orange","orange","yellow","yellow","yellow","yellow","purple","purple","purple","purple","red","red","red","red","pink","pink","pink","pink")
warna
## [1] "green" "green" "green" "green" "orange" "orange" "orange" "orange"
## [9] "yellow" "yellow" "yellow" "yellow" "purple" "purple" "purple" "purple"
## [17] "red" "red" "red" "red" "pink" "pink" "pink" "pink"
map <- read_sf("shp/shp_sheet2.shp")
ggplot(map) +
geom_sf(color = "white", aes(fill = COUNTRY)) +
geom_sf_text(aes(label = COUNTRY), size = 2) +
theme(legend.position = "bottom") +
scale_fill_manual(values = c(warna) ) +
labs(fill='JUDUL LEGEND')
warna <- c("green","green","green","green","orange","orange","orange","orange","yellow","yellow","yellow","yellow","purple","purple","purple","purple","red","red","red","red","pink","pink","pink","pink")
warna
## [1] "green" "green" "green" "green" "orange" "orange" "orange" "orange"
## [9] "yellow" "yellow" "yellow" "yellow" "purple" "purple" "purple" "purple"
## [17] "red" "red" "red" "red" "pink" "pink" "pink" "pink"
map <- read_sf("shp/shp_sheet2.shp")
ggplot(map) +
geom_sf(color = "white", aes(fill = paste0(Article, " ", COUNTRY) )) +
geom_sf_text(aes(label = Article ), size = 2) +
theme(legend.position = "bottom") +
scale_fill_manual(values = c(warna) ) +
labs(fill='JJ')
warna <- c("green","green","green","green","orange","orange","orange","orange","yellow","yellow","yellow","yellow","purple","purple","purple","purple","red","red","red","red","pink","pink","pink","pink")
warna
## [1] "green" "green" "green" "green" "orange" "orange" "orange" "orange"
## [9] "yellow" "yellow" "yellow" "yellow" "purple" "purple" "purple" "purple"
## [17] "red" "red" "red" "red" "pink" "pink" "pink" "pink"
map <- read_sf("shp/shp_sheet2.shp")
ggplot(map) +
geom_sf(color = "white", aes(fill = paste0(Persentase, " ", COUNTRY) )) +
geom_sf_text(aes(label = Persentase ), size = 2) +
theme(legend.position = "bottom") +
scale_fill_manual(values = c(warna) ) +
labs(fill='JJ')
warna <- c("green","green","green","green","orange","orange","orange","orange","yellow","yellow","yellow","yellow","purple","purple","purple","purple","red","red","red","red","pink","pink","pink","pink")
warna
## [1] "green" "green" "green" "green" "orange" "orange" "orange" "orange"
## [9] "yellow" "yellow" "yellow" "yellow" "purple" "purple" "purple" "purple"
## [17] "red" "red" "red" "red" "pink" "pink" "pink" "pink"
map <- read_sf("shp/shp_sheet2.shp")
ggplot(map) +
geom_sf(color = "white", aes(fill = paste0(Persentase, " ", COUNTRY) )) +
geom_sf_text(aes(label = Persentase ), size = 2 ) +
theme(legend.position = "bottom") +
scale_fill_manual(values = c(warna) ) +
labs(fill='JJ')
warna <- c("green","green","green","green","orange","orange","orange","orange","yellow","yellow","yellow","yellow","purple","purple","purple","purple","red","red","red","red","pink","pink","pink","pink")
warna
## [1] "green" "green" "green" "green" "orange" "orange" "orange" "orange"
## [9] "yellow" "yellow" "yellow" "yellow" "purple" "purple" "purple" "purple"
## [17] "red" "red" "red" "red" "pink" "pink" "pink" "pink"
map <- read_sf("shp/shp_sheet2.shp")
ggplot(map) +
geom_sf(color = "white", aes(fill = paste0(Persentase, " ", COUNTRY) )) +
geom_text_repel(aes(label = paste0(Persentase) , geometry = geometry),
stat = "sf_coordinates", size = 3,
fun.geometry = sf::st_centroid,
max.overlaps=nrow(map),
min.segment.length = 0) +
theme(legend.position = "bottom") +
scale_fill_manual(values = c(warna) ) +
labs(fill='JJ')
warna <- c("green","green","green","green","orange","orange","orange","orange","yellow","yellow")
warna
## [1] "green" "green" "green" "green" "orange" "orange" "orange" "orange"
## [9] "yellow" "yellow"
map <- read_sf("shp/shp_sheet3.shp")
ggplot(map) +
geom_sf(color = "white", aes(fill = paste0(Frequency, " ", COUNTRY) )) +
geom_text_repel(aes(label = paste0(Frequency) , geometry = geometry),
stat = "sf_coordinates", size = 3,
fun.geometry = sf::st_centroid,
max.overlaps=nrow(map),
min.segment.length = 0) +
theme(legend.position = "bottom") +
scale_fill_manual(values = c(warna) ) +
labs(fill='JJ')
warna <- c("green","green","green","green","orange","orange","orange","orange","yellow","yellow")
warna
## [1] "green" "green" "green" "green" "orange" "orange" "orange" "orange"
## [9] "yellow" "yellow"
map <- read_sf("shp/shp_sheet3.shp")
ggplot(map) +
geom_sf(color = "white", aes(fill = paste0(Percentage, " ", COUNTRY) )) +
geom_text_repel(aes(label = paste0(Percentage) , geometry = geometry),
stat = "sf_coordinates", size = 3,
fun.geometry = sf::st_centroid,
max.overlaps=nrow(map),
min.segment.length = 0) +
theme(legend.position = "bottom") +
scale_fill_manual(values = c(warna) ) +
labs(fill='JJ')
