Я пытаюсь отобразить объявления о вакансиях, связанных с ИИ, за последний год, используя ggplot, но мне нужно изменить цветовую схему по умолчанию, чтобы она перешла от светло-синего (# 52ABF0) к темно-синему (# 142E47).Кроме того, у меня есть некоторые почтовые индексы, которые являются выбросами (856 рабочих мест в одной области и 516 в другой).Большинство вакансий находятся в диапазоне 0-300.Поэтому мне также нужно изменить маркеры на 0-100, 100-200, 200-300 и 300+ вместо равномерно распределенных.
Я пробовал использовать scale_fill_gradientn и scale_fill_gradient2, но по какой-то причинеggplot пропускает эти команды сразу, когда я пытаюсь построить график.
[install.packages('zipcode')
library(zipcode)
library(tidyverse)
install.packages('maps')
library(maps)
install.packages('viridis')
library(viridis)
install.packages('ggthemes')
library(ggthemes)
devtools::install_github("hrbrmstr/albersusa")
install.packages('albersusa')
library(albersusa)
fm<-Export <- read.csv("ai_job_postings.csv", header=FALSE)
colnames(fm) <- colnames(Export) <- c("job_id", "post_date", "fill_date", "time_to_fill", "company", "vertical", "location", "salary",
"city", "state", "zip", "county", "latitude", "longitude", "region_state")
fm.zip<-aggregate(data.frame(count=fm$job_id),list(zip=fm$zip,county=fm$county),length)
fm<- merge(fm.zip, zipcode, by='zip')
us<-map_data('state')
ggplot(fm,aes(longitude,latitude)) +
geom_polygon(data=us,aes(x=long,y=lat,group=group),color='gray',fill=NA,alpha=.35)+
geom_point(aes(color = count),size=2.5,alpha=.25) +
xlim(-125,-65)+ylim(20,50) +
theme(panel.grid.major = element_blank(),
panel.background = element_blank(),
panel.grid.minor = element_blank(),
axis.ticks.y=element_blank(),
axis.ticks.x=element_blank(),
axis.text.x = element_blank(),
axis.title=element_blank(),
axis.text = element_blank(),
legend.title=element_text(size=25),
legend.text=element_text(size=14),
plot.caption = element_text(size=12, hjust = 1.3)) +
scale_fill_gradient2(low = "#52ABF0", mid = "#3874A5", high = "#142E47", midpoint = 200, guide="colorbar", limits=c(0,900)) +
labs(color="AI Postings", caption=paste0(sum(fm$count), " AI Job Postings Nationwide June 2018 - June 2019"))]