R语言绘制样本分布图

 

1、

library(ggplot2)
Beijing <- c(116,40)    ## 经纬度信息
Tokyo <- c(139, 36)
Paris <- c(2, 48)
Sydney <- c(150, -33)
Newyork <- c(-74, 40)

dat <- as.data.frame(rbind(Beijing, Tokyo, Paris, Sydney,Newyork))
names(dat) <- c("long","lat")      ## 生成数据框

ggplot(data =  dat, aes(x = long, y = lat)) + 
  borders("world", col = "grey",size= 0.5) + geom_point(cex = 4, col = c("blue", "red", "green", "purple", "cyan")) +
  geom_text(label = c("AA", "BB", "CC", "DD","EE"),cex = 4,
            fontface = "bold",family = "sans", hjust= -0.5,vjust=0.5)  + scale_y_continuous("Latitude") + 
  scale_x_continuous("Longitude") +  theme_bw()  + theme(panel.grid=element_blank()) +
  theme(panel.border = element_rect(fill=NA,color="black", size=1.5, linetype="solid")) + 
  theme(axis.title.y=element_text(vjust=0.5, hjust = 0.5,size=25,face = "bold"),
        axis.text.x=element_text(vjust= 0,hjust = 0.5, size=15,face = "bold"),
        axis.text.y=element_text(vjust=0.5,hjust = 0.5,size=15,face = "bold"),
        axis.title.x=element_text(vjust=0.5,hjust = 0.5, size=25,face = "bold")) +
  theme(axis.ticks.x=element_line(color="black",size=0.8,lineend = 2)) +
  theme(axis.ticks.y=element_line(color="black",size=0.8,lineend = 2)) +
  theme(plot.margin=unit(rep(1,4),'cm'))

ggsave('distribute.png',dpi = 1080)  

 

绘图结果：