- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我想让传单调色板以零为中心(红白绿发散)。我已经尝试过 this post 中的说明.当我尝试手动创建颜色时,我得到了红绿发散,但无法将其居中为零。
我的密码
regions@data <- data.frame(region <- c("APAC (excl. China)", "Africa",
"Americas", "Europe", "Greater China", "Middle East"),
change_targeted <- c(36,-21,25,4,173,34))
color = "#666"
weight = 0.5
opacity = 1
fillOpacity = 1
dashArray = ""
hl_color = "black"
hl_weight = 1
hl_dashArray = ""
library(RColorBrewer)
nHalf = nrow(regions@data)/2
Min = min(regions@data[,"change_targeted"])
Max = max(regions@data[,"change_targeted"])
Thresh = 0
## Make vector of colors for values below threshold
rc1 = colorRampPalette(colors = c("red", "white"), space="Lab")(nHalf)
## Make vector of colors for values above threshold
rc2 = colorRampPalette(colors = c("white", "green"), space="Lab")(nHalf)
rampcols = c(rc1, rc2)
## In your example, this line sets the color for values between 49 and 51.
rampcols[c(nHalf, nHalf+1)] = rgb(t(col2rgb("white")), maxColorValue=256)
rb1 = seq(Min, Thresh, length.out=nHalf+1)
rb2 = seq(Thresh, Max, length.out=nHalf+1)[-1]
rampbreaks = c(rb1, rb2)
pal <- colorNumeric(
palette = rampcols, #"Blues", #YlGnBu,YlOrRd
domain = regions@data$change_targeted)
leaflet(regions, options = leafletOptions(zoomControl = FALSE,
attributionControl=FALSE)) %>%
addPolygons(color = color,
weight = weight, #smoothFactor = 0.5,
opacity = opacity, fillOpacity = fillOpacity,
dashArray = dashArray,
fillColor = ~pal(change_targeted),
highlightOptions = highlightOptions(color = hl_color,
weight = hl_weight,
dashArray = hl_dashArray,
bringToFront = TRUE),
label =
~as.character(paste0(region,"",round(change_targeted,1),"%")),
labelOptions = labelOptions(noHide = T, textOnly = F,
direction = "left",
textsize = "12px")) %>%
setView(35, 36, 0.5) %>%
addLegend("bottomright", pal = pal, values = ~change_targeted,
title = NULL,
labFormat = labelFormat(suffix = "%"), opacity=1)
最佳答案
由于我没有您的数据,区域,我选择使用我一直用于 Stack Overflow 上的一些答案的虚拟数据。我希望你不要介意。 Josh 的回答基本上为您提供了正确的方向。你可能误解了他的代码。在 that question ,他创建并组合了两个调色板。然后,他手动将中点颜色设置为绿色。你想知道他在每个调色板中创造了 50 种颜色。你的故事是另一个故事;你需要扭曲他的答案。您想使用红色、白色和绿色创建不对称的颜色范围。您需要在红色和白色之间(即 -20 和 0 之间)创建 20 种颜色,在白色和绿色之间(即 0 和 180 之间)创建 180 种颜色。您可以使用实际数据更改这些范围。
现在您想使用 Josh 的代码。您不必全部使用它。您所需要的只是创建两个调色板并将它们组合起来。完成后,您就可以开始了。在下面的代码中,我跳过了您的突出显示选项,以尽量减少这种情况。
library(raster)
library(dplyr)
library(leaflet)
library(RColorBrewer)
### Get UK polygon data
UK <- getData("GADM", country = "GB", level = 2)
### Create dummy data
set.seed(111)
mydf <- data.frame(place = unique(UK$NAME_2),
value = sample(x = -20:180, size = n_distinct(UK$NAME_2), replace = TRUE))
### Create an asymmetric color range
## Make vector of colors for values smaller than 0 (20 colors)
rc1 <- colorRampPalette(colors = c("red", "white"), space = "Lab")(20)
## Make vector of colors for values larger than 0 (180 colors)
rc2 <- colorRampPalette(colors = c("white", "green"), space = "Lab")(180)
## Combine the two color palettes
rampcols <- c(rc1, rc2)
mypal <- colorNumeric(palette = rampcols, domain = mydf$value)
## If you want to preview the color range, run the following code
previewColors(colorNumeric(palette = rampcols, domain = NULL), values = -20:180)
leaflet() %>%
addProviderTiles("OpenStreetMap.Mapnik") %>%
setView(lat = 55, lng = -3, zoom = 6) %>%
addPolygons(data = UK,
stroke = FALSE, smoothFactor = 0.2, fillOpacity = 0.3,
fillColor = ~mypal(mydf$value),
popup = paste("Region: ", UK$NAME_2, "<br>",
"Value: ", mydf$value, "<br>")) %>%
addLegend(position = "bottomright", pal = mypal, values = mydf$value,
title = "UK value",
opacity = 1)
关于r - 如何为 R 中传单中的数值变量设置不对称颜色渐变,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49126405/
这个问题在这里已经有了答案: 关闭 10 年前。 Possible Duplicate: How to nest OR statements in JavaScript? 有没有办法做到这一点:
在 JavaScript 中有没有办法让一个变量总是等于一个变量?喜欢var1 = var2但是当var2更新,也是var1 . 例子 var var1 = document.getElementBy
我正在努力理解这代表什么 var1 = var2 == var3 我的猜测是这等同于: if (var2 == var3): var1 = var2 最佳答案 赋值 var1 = var2
这个问题已经有答案了: What does the PHP error message "Notice: Use of undefined constant" mean? (2 个回答) 已关闭 8
我在临时表中有几条记录,我想从每条记录中获取一个值并将其添加到一个变量中,例如 color | caption -------------------------------- re
如何将字符串转为变量(字符串变量--> $variable)? 或者用逗号分隔的变量列表然后转换为实际变量。 我有 2 个文件: 列名文件 行文件 我需要根据字符串匹配行文件中的整行,并根据列名文件命
我有一个我无法解决的基本 php 问题,我也想了解为什么! $upperValueCB = 10; $passNodeMatrixSource = 'CB'; $topValue= '$uppe
这可能吗? php $variable = $variable1 || $variable2? 如果 $variable1 为空则使用 $variable2 是否存在类似的东西? 最佳答案 PHP 5
在 Perl 5.20 中,for 循环似乎能够修改模块作用域的变量,但不能修改父作用域中的词法变量。 #!/usr/bin/env perl use strict; use warnings; ou
为什么这不起作用: var variable; variable = variable.concat(variable2); $('#lunk').append(variable) 我无法弄清楚这一点
根据我的理解,在32位机器上,指针的sizeof是32位(4字节),而在64位机器上,它是8字节。无论它们指向什么数据类型,它们都有固定的大小。我的计算机在 64 位上运行,但是当我打印包含 * 的大
例如: int a = 10; a += 1.5; 这运行得很完美,但是 a = a+1.5; 此作业表示类型不匹配:无法从 double 转换为 int。所以我的问题是:+= 运算符 和= 运算符
您好,我写了这个 MySQL 存储过程,但我一直收到这个语法错误 #1064 - You have an error in your SQL syntax; check the manual that
我试图在我的场景中显示特定的奖牌,这取决于你的高分是基于关卡的目标。 // Get Medal Colour if levelHighscore goalScore { sc
我必须维护相当古老的 Visual C++ 源代码的大型代码库。我发现代码如下: bIsOk = !!m_ptr->isOpen(some Parameters) bIsOk的数据类型是bool,is
我有一个从 MySQL 数据库中提取的动态产品列表。在 list 上有一个立即联系 按钮,我正在使用一个 jquery Modal 脚本,它会弹出一个表单。 我的问题是尝试将产品信息变量传递给该弹出窗
这个问题在这里已经有了答案: 关闭 10 年前。 Possible Duplicate: What is the difference between (type)value and type(va
jQuery Core Style Guidelines建议两种不同的方法来检查变量是否已定义。 全局变量:typeof variable === "undefined" 局部变量:variable
这个问题已经有答案了: 已关闭11 年前。 Possible Duplicate: “Variable” Variables in Javascript? 我想肯定有一种方法可以在 JavaScrip
在语句中使用多重赋值有什么优点或缺点吗?在简单的例子中 var1 = var2 = true; 赋值是从右到左的(我相信 C# 中的所有赋值都是如此,而且可能是 Java,尽管我没有检查后者)。但是,
我是一名优秀的程序员,十分优秀!