R语言给图形填充颜色的操作(polygon函数)

转载 作者：qq735679552 更新时间：2022-09-27 22:32:09 25 4

# 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 <- 100xx <- 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("布朗运动之间的距离")

# 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的值为两个，即不同的密度

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

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)

25 4 0

• html - 填充 :initial vs. 填充:0

  padding:initial 比 padding:0 有什么优势吗？示例: textarea { padding: 0; } Hello, world! 最佳答案 它们的意思是一

• java - 使用 JButton 填充 JList 并使用 Jlist 上的 DoubleClick 填充 JTextField

  我尝试通过按钮填充 JList，然后在先前填充的 Jlist 上使用 DoubleClick 填充 JTextField。 代码: private void extractUsedVariables

• jquery添加宽度+填充；

  我正在尝试做 var width = ($(this).width() + $(this).css('padding-left') + $(this).css('padding-right' ))；

• CSS悬停没有文本边距/填充

  我在导航中添加了悬停效果，遗憾的是悬停也影响了上面的文字。如何在不影响文本位置的情况下向导航添加悬停？ 可悲的是，我找不到解决这个问题的方法。 HTML 模板:http://projects.help

• F# printf 填充

  我是 F# 初学者，下面代码中的 %-5s 和 %5s 有什么作用？我认为它提供了空间填充，但我不确定它是如何填充的？ printfn "%-5s %5s" "a" "b" 当我尝试 prin

• Sails.js 填充 where

  我需要选择带狗的用户(带 type 等于“狗”的宠物) var User = Waterline.Collection.extend({ identity: 'user', attribute

• excel - 如何使用具有一系列值的自动填充/填充

  我一直在尝试让 Excel 在一组列上应用公式，然后将模式扩展到整个行集。 这导致了以下代码: For i = 0 To avgsheetNames.Count - 1 If Contains(CSt

• Flutter TextButton 填充

  随着 Flutter 2.0 的发布，FlatButton已被替换为 TextButton . 因此，填充属性不再直接可用，而是作为 ButtonStyle属性(property)。 我的问题是，我该

• wpf - WPF中的对接/填充

  这似乎是一个简单的问题，但我已经尝试了一个小时，似乎无法弄清楚。 我要做的就是用 Canvas 填充 MainWindow。我找不到任何允许这样做的属性，我能想到的唯一方法是设置 Canvas.Wid

• iPhone 添加了奇怪的左边距/填充

  这是a website具有移动 View 。 网站宽度为 640 像素，但 iPhone 以 678 像素渲染文档。在 Android 中看起来很棒。 我添加了视口(viewport)元: 主体 C

• java - GridBagLayout 填充

  我正在使用 GridBagLayout到(当前)显示两行。我知道这种布局对于这项任务来说太过分了，但我正在努力学习如何使用它。问题是我已将两个面板添加到两个单独的行中，并且内容周围存在巨大差距(请参见

• javascript - 单击更改谷歌地图多边形颜色/填充

  我有以下代码已传递给我并创建多边形: var map; function initialize() { var myLatlng = new google.maps.LatLng(-36.4

• java - 填充 JPanel

  我在 Jpanel 中有一些项目，然后将其推到顶部并用作基本搜索引擎的工具栏。我遇到一个问题，因为没有足够的空间，所以我的最后一个组合框没有显示。但是，左侧有很多空白空间，我需要移动所有内容来填充 J

• c++ - 如何为二进制图像中的形状重新着色以进行索引(填充)？

  我创建了带有阈值的二进制图像。如下图所示如何改变白色形状的颜色以使其可索引？ 到目前为止，这是我的代码: void threshold() { cv::Mat src_8uc3_img = c

• java - 填充 JTable

  我有一个 JTable，我想知道是否有更好的方法来填充它，这是我的代码: //Metodo para llenar un jtable con datos de la base public stat

• python - 从卷中裁剪空数组(填充)

  我想要做的是裁剪一个卷以删除所有不相关的数据。例如，假设我有一个 100x100x100 的体积，其中填充了 0，但其中的 50x50x50 体积则填充了 1。如何从原始体积中获得裁剪后的 50x50

• Java ArrayList 填充

  因此，我正在创建一种对一组数字进行洗牌的方法，其想法是创建这些数字的总体。因此，我创建了一个循环，对数字进行洗牌，然后将其添加到数组列表中，但是经过一些调试语句后，我发现它确实对数字进行洗牌，但只将最

• c# - 静态集合是否保证在另一个类使用它之前被初始化/填充？

  假设我有这两个类: public class A where T : IEntityWithID, new() { private static EntityInfo entityInfo =

• C 中大整型加法中的进位数字/填充

  我正在尝试添加用户输入的两个大整数作为字符串。当两个输入字符串的长度不同时，我尝试用零填充较短的数字，但它不起作用。因此，如果我输入 456 和 7，它会给出 3，前面有一些随机字符。感谢您的任何建议

• arrays - 填充 UITableViewController

  这是我将内容打印到表格 View 的代码 override func tableView(_ tableView: UITableView, cellForRowAt indexPath: Index