使用单个数据框生成雷达图

如何解决使用单个数据框生成雷达图

我有一个数据框dat，我用它来生成不同位置（由每一行arc1045，arc1047表示）的不同天气条件（列）的雷达图，添加了数据框的前两行根据示例here

来指示每种气候条件的最大值和最小值

        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

然后，我按照here描述的方法来生成图的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,bg = "transparent"),4)

但是，这里每个雷达图都包含多个多边形，每个多边形代表一个站点。我希望每个雷达图都具有一个多边形，并在单个站点上可视化天气状况。

解决方法

执行此操作非常简单，无需将整个数据帧传递给radachart()函数，只需传递一个站点所需的数据即可。

df = data.frame(ambient_air_temp = c(85,-40,9.176667,8.492500,8.477500,8.475000),rel_hum = c(100.0000,0.0000,71.0700,80.9600,76.9875,76.5525 ),bar_pre = c(2000.000,10.000,1013.167,1014.000,1012.675,1013.775),ave_ws = c(160,4.043333,2.035000,6.842500,6.335000),pd2.5 = c(999.9,5.133333,5.600000,6.275000,5.175000),pd10 = c(1999.9,25.16667,25.10000,28.15000,30.20000))

row.names(df) = c("1","2","arc1045","arc1047","arc1048","arc1050")

library(fmsb)
pltrd = function(idx) radarchart(df[c(1,2,idx),],title = row.names(df)[idx])

由于数据位于行= {3,4,5,6}中，因此您可以使用这些行值来调用此函数。请注意，行= {1、2}是每个变量的最小值/最大值...

pltrd(3)

pltrd(4)

pltrd(5)