#graph_R
#fmsb
График радара или паукообразная диаграмма отражает значения переменных в единой шкале, представленной в виде круга.
Примерами могут служить средняя оценка по различным предметам (математика, английский и т.д.), распределение метрик ликвидности компании за определенный год и т.д.
Для данного графика важна фиксация: фиксация наблюдения (например, для конкретной компании, индивида) или фиксация года. При фиксации наблюдений происходит вариативность переменных, но данные переменные должны быть задействованы в единой шкале: текущая ликвидность, срочная ликвидность, абсолютная ликвидность. При фиксации года можно рассматривать единый показатель по разным компаниям: можно рассмотреть коэффициенты текущей ликвидности по компаниям, как приведено на графике.
Технически при построении данного графика важно задавать максимальное и минимальное значение. График №1 построен при минимуме – 0, максимуме – 2.2, а график №2 построен при таком же минимуме и максимуме – 5. Настройки цветов pcol – цвет точек, pfcol – цвет заливки, plwd – ширина соединительной линии. График №3 учитывает шкалу.
Код:
library(fmsb)
CurrentRatio <- c(1.8, 2.2, 1.25, 2.3, 1.5)
data <- as.data.frame(t(data.frame(CurrentRatio = c(1.8, 2.2, 1.25, 2.3, 1.5), row.names = c("Company 1", "Company 2", "Company 3", "Company 4", "Company 5"))))
radarchart(data)
#добавляем в дату строчки - максимальное и минимальное значение
data1 <- rbind(rep(2.2, 5), rep(0,5), data)
radarchart(data1, title = "График №1. Значения коэффициента
текущей ликвидности по компаниям", pcol = "darkblue", pfcol=rgb(0.2,0.5,0.7,0.5))
data2 <- rbind(rep(5, 5), rep(0,5), data)
radarchart(data2, title = "График №2. Значения коэффициента
текущей ликвидности по компаниям", pcol = "darkblue", pfcol=rgb(0.2,0.5,0.7,0.5))
radarchart(data2, title = "График №3. Значения коэффициента текущей ликвидности по компаниям", pcol = "darkblue", pfcol=rgb(0.2,0.5,0.7,0.5), axistype=1, cglcol="darkred", cglty=1, axislabcol="darkred", caxislabels=seq(0,5,1.25))
