最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

R語言給圖形填充顏色的操作(polygon函數(shù))

 更新時(shí)間:2021年03月13日 15:58:56   作者:臥新實(shí)驗(yàn)室  
這篇文章主要介紹了R語言給圖形填充顏色的操作(polygon函數(shù)),具有很好的參考價(jià)值,希望對(duì)大家有所幫助。一起跟隨小編過來看看吧

1. 使用polygon進(jìn)行純色填充

# polygon函數(shù)介紹
polygon(x, y = NULL, density = NULL, angle = 45,
    border = NULL, col = NA, lty = par("lty"),
    ..., fillOddEven = FALSE)
其中density為填充的陰影線的密度,angle為陰影線的斜率(角度)。值得注意的是,當(dāng)你需要純色填充時(shí),density和angle可以忽略不寫。然后border為邊框的顏色。同時(shí)border也可以是邏輯。即FALSE相當(dāng)于NULL,TRUE相當(dāng)于為前景色。

# Distance Between Brownian Motions 布朗運(yùn)動(dòng)之間的距離
n <- 100
xx <- c(0:n, n:0)  #生成202個(gè)元素的向量,其中前面101與后面101數(shù)字對(duì)稱
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("布朗運(yùn)動(dòng)之間的距離")

如圖 兩個(gè)布朗運(yùn)動(dòng)間的距離用灰色填充

2. 使用polygon進(jìn)行陰影線填充

# 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的值為兩個(gè),即不同的密度

補(bǔ)充:R語言世界地圖轉(zhuǎn)為SpatialPolygons以及去除地圖內(nèi)國(guó)家邊界

##加載包

library(maps)
library(maptools)
library(ggplot2)
library(metR)

##提取地圖并轉(zhuǎn)換為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'))

##去除內(nèi)邊界

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)

##結(jié)果圖

以上為個(gè)人經(jīng)驗(yàn),希望能給大家一個(gè)參考,也希望大家多多支持腳本之家。如有錯(cuò)誤或未考慮完全的地方,望不吝賜教。

相關(guān)文章

最新評(píng)論

桐城市| 安庆市| 门源| 沧源| 昌吉市| 会宁县| 青河县| 民权县| 都匀市| 开平市| 沁阳市| 花莲市| 湘潭市| 长丰县| 邓州市| 浑源县| 调兵山市| 广河县| 宁武县| 高唐县| 黄骅市| 濮阳县| 江川县| 昌黎县| 武川县| 顺平县| 建德市| 乌拉特后旗| 金秀| 古蔺县| 四平市| 克东县| 沙田区| 太和县| 呼图壁县| 德格县| 滁州市| 平阴县| 广河县| 唐山市| 隆回县|