У меня есть кадр данных dat
, который я использую для создания радиолокационных графиков различных погодных условий (столбцов) на разных сайтах (обозначаемых каждой строкой arc1045, arc1047...) Первые две строки кадра данных добавляются для указания максимального и минимального значений. каждого климатического условия по примеру здесь
ambient_air_temperature relative_humidy barometric_pressure average_wind_speed particulate_density_2.5 particulate_density_10
1 85.000000 100.0000 2000.000 160.000000 999.900000 1999.90000
2 -40.000000 0.0000 10.000 0.000000 0.000000 0.00000
arc1045 9.176667 71.0700 1013.167 4.043333 5.133333 25.16667
arc1047 8.492500 80.9600 1014.000 2.035000 5.600000 25.10000
arc1048 8.477500 76.9875 1012.675 6.842500 6.275000 28.15000
arc1050 8.475000 76.5525 1013.775 6.335000 5.175000 30.20000
Затем я следую подходу, описанному здесь, чтобы сгенерировать URI графиков, которые будут включены в качестве маркеров. на листовке карта
library(fmsb)
makePlotURI <- function(expr, width, height, ...) {
pngFile <- plotPNG(function() { expr }, width = width, height = height, ...)
on.exit(unlink(pngFile))
base64 <- httpuv::rawToBase64(readBin(pngFile, raw(1), file.size(pngFile)))
paste0("data:image/png;base64,", base64)
}
rep(makePlotURI(radarchart(dat), 300, 300, bg = "transparent"), 4)
Однако здесь каждый радиолокационный график содержит несколько полигонов, каждый из которых представляет участок. Я хочу, чтобы каждый график радара имел один полигон и визуализировал погодные условия на одном сайте.