r - 使用 awesomeIcons 更改图标颜色
问题描述
我正在使用 awesomeIcons(),在那里我找到了一个医院图标('hospital-o')。但是,图标原来是黑色的。使用下面的代码,我无法将其颜色更改为白色。
library(dplyr)
library(DT)
library(flexdashboard)
library(leaflet)
library(leaflet.extras)
library(reshape2)
library(shiny)
icons <- awesomeIcons(
icon = 'hospital-o',
lib = 'fa',
markerColor = getColor(DATASET))
其中 getColor() 是以下函数:
getColor <-
function(DATASET) {
sapply(DATASET$VAR, function(VAR) {
if(VAR == 0 | is.na(VAR) | is.nan(VAR)) {"gray"}
else if(VAR <= 2){"darkgreen"}
else if(VAR <= 4){"green"}
else if(VAR <= 6){"orange"}
else if(VAR <= 10){"red"}
else {"darkred"}
})
}
颜色功能正在工作(即灰色、绿色、红色、标记)。我已经尝试过这样的事情(并且还实现了颜色代码),但没有结果:
icons <- awesomeIcons(
icon = 'hospital-o',
lib = 'fa',
iconColor = "white",
markerColor = getColor(DATASET))
虚拟数据
NAME VAR latitude longitude
A 1 51.792 4.682
B 12 52.214 6.894
C 6 51.982 5.148
制作地图:
map <- leaflet(DATASET) %>%
addTiles() %>%
addAwesomeMarkers(lng = ~longitude, lat = ~latitude, icon = icons, label = ~as.character(DATASET$NAME),
popup = paste0("<strong>Name: </strong>", DATASET$NAME, "<br>","<strong>VAR: </strong>", DATASET$VAR)) %>%
addMarkers(lng = longitude, lat = latitude) %>%
addProviderTiles(providers$nlmaps.pastel, group = "Pastel") %>%
addMiniMap(toggleDisplay = T, minimized = T, position = "bottomright") %>%
addLayersControl(
baseGroups = c("Pastel"),
options = layersControlOptions(collapsed = F), position = "topleft") %>%
addMarkers(lng = longitude, lat = latitude)
有人可以帮助我吗?先感谢您!
解决方案
实施iconColor = "#FFFFFF"
就awesomeIcons()
行了!所以代码看起来像这样:
icons <- awesomeIcons(
icon = 'hospital-o',
lib = 'fa',
iconColor = "#FFFFFF",
markerColor = getColor(DATASET))
我以为我已经尝试过了。谢谢,MLavoie!
推荐阅读
- r - R中从字符到十进制数的类型转换问题(来自网络抓取的数据)
- javascript - Mongoose Populate() 不填充 ObjectIds 数组
- django - 将多张图片上传到 django rest framework/react
- python - 使用 numpy 增强图像 Python cv2 的数组操作
- sql - 如何删除 SQL 中的重复行?
- python-3.x - 通过以下脚本启动时无法 ssh 进入已启动的 ec2 实例,但从 AWS 页面启动时能够 ssh
- r - 在 R 中的 SPARQL 查询中搜索带空格的名称时遇到问题
- r - 排除感测器中的单词
- python - 根据两列计算唯一值的出现
- python - 使用 matplotlib.collections.PolyCollection 制作等高线图时如何不为 nan 值着色