R語言給圖形填充顏色的操作(polygon函數)
1. 使用polygon進行純色填充
# polygon函數介紹 polygon(x, y = NULL, density = NULL, angle = 45, border = NULL, col = NA, lty = par("lty"), ..., fillOddEven = FALSE) 其中density為填充的陰影線的密度,angle為陰影線的斜率(角度)。值得註意的是,當你需要純色填充時,density和angle可以忽略不寫。然後border為邊框的顏色。同時border也可以是邏輯。即FALSE相當於NULL,TRUE相當於為前景色。 # Distance Between Brownian Motions 佈朗運動之間的距離 n <- 100 xx <- c(0:n, n:0) #生成202個元素的向量,其中前面101與後面101數字對稱 yy <- c(c(0, cumsum(stats::rnorm(n))), rev(c(0, cumsum(stats::rnorm(n))))) plot (xx, yy, type = "n", xlab = "Time", ylab = "Distance") polygon(xx, yy, col = "gray", border = "red") title("佈朗運動之間的距離")
如圖 兩個佈朗運動間的距離用灰色填充
2. 使用polygon進行陰影線填充
# Line-shaded polygons 線陰影多邊形 plot(c(1, 9), 1:2, type = "n") polygon(1:9, c(2,1,2,1,NA,2,1,2,1), density = c(10, 20), angle = c(-45, 45)) #density的值為兩個,即不同的密度
補充:R語言世界地圖轉為SpatialPolygons以及去除地圖內國傢邊界
##加載包
library(maps) library(maptools) library(ggplot2) library(metR)
##提取地圖並轉換為Spatialpolygons
loc <- maps::map('world',interior = FALSE, plot = FALSE, fill = TRUE,col = 'transparent') ids <- sapply(strsplit(loc$names, ":"), function(x) x[1]) loc <- map2SpatialPolygons(map = loc, IDs = ids,proj4string = CRS('+proj=longlat +datum=WGS84 +no_defs'))
##去除內邊界
worldmap1 <- unionSpatialPolygons(loc, IDs = rep(1,length(loc)))
##畫圖
worldmap2 <- fortify(worldmap1) ggplot()+ scale_x_longitude(expand = c(0, 0), breaks = seq(-180, 180, 45))+ scale_y_latitude(expand = c(0, 0), breaks = seq(-90, 90, 30))+ geom_polygon(data = worldmap2, mapping = aes(x = long, y = lat, group = group), colour = 'gray', fill = 'gray', size = 0.5)
##結果圖
以上為個人經驗,希望能給大傢一個參考,也希望大傢多多支持WalkonNet。如有錯誤或未考慮完全的地方,望不吝賜教。
推薦閱讀:
- R語言繪制頻率直方圖的案例
- R語言數據可視化tidyr與ggplot2多個變量分層展示舉例實現
- R語言繪圖樣式設置操作(符號,線條,顏色,文本屬性)
- R語言作圖之density plot(密度圖)的制作步驟
- 聊聊R語言中Legend 函數的參數用法