обозначить график для радиолокационного графика г - PullRequest
Новая
       25

обозначить график для радиолокационного графика г

0 голосов
/ 26 февраля 2020 

#R-radar map for sub-categories price-elasticity:  
#Make data frame  
SUB_CAT <- c("PRETZEL","PIZZA","ADULT CEREAL", "FAMILY CEREAL", "MOUTHWASH", "MOUTHWASH(ANTISEPTIC)", "KIDS CEREAL") 
Max <- c(2.5, 2.5, 2.5, 2.5, 2.5, 2.5, 2.5) 
Min <- c(0,0,0,0,0,0,0) 
Price_elasticity <- c(1.512, 1.392, 0.3675, 0.2229, 1.2, 0.4676, 2.317) 
PE<- data.frame(SUB_CAT,Max, Min, Price_elasticity)  

#Make radar chart  
M<-PE %>%  
  pivot_longer(cols = -SUB_CAT) %>% 
  pivot_wider(names_from = SUB_CAT, values_from = value) %>%  
  column_to_rownames("name")  

radarchart( M  , axistype=0.5 ,   
            #custom polygon  
            pcol=rgb(0.2,0.5,0.5,0.9) , pfcol=rgb(0.2,0.5,0.5,0.5), plwd=5 ,            
            #custom the grid  
            cglcol="grey", cglty=1, axislabcol="grey", caxislabels=seq(0,3,0.7), cglwd=0.8,        
            #custom labels  
            vlcex=0.5)

Я сделал этот радарный график, но по какой-то причине номера для сетки не отображаются.

Я продолжаю получать это: the graph I get

но я хочу это: this is what I want

У меня было то же самое код для обоих, я думаю, но когда я попробую это снова, мои метки просто исчезнут, что не так с моим кодом?

1 Ответ

0 голосов
/ 26 февраля 2020

Используя axistype=1, дайте мне номера для сетки, как 

library(fmsb)
library(tidyverse)

#R-radar map for sub-categories price-elasticity:  
#Make data frame  
SUB_CAT <- c("PRETZEL","PIZZA","ADULT CEREAL", "FAMILY CEREAL", "MOUTHWASH", "MOUTHWASH(ANTISEPTIC)", "KIDS CEREAL") 
Max <- c(2.5, 2.5, 2.5, 2.5, 2.5, 2.5, 2.5) 
Min <- c(0,0,0,0,0,0,0) 
Price_elasticity <- c(1.512, 1.392, 0.3675, 0.2229, 1.2, 0.4676, 2.317) 
PE<- data.frame(SUB_CAT,Max, Min, Price_elasticity)  

#Make radar chart  
M<-PE %>%  
  pivot_longer(cols = -SUB_CAT) %>% 
  pivot_wider(names_from = SUB_CAT, values_from = value) %>%  
  column_to_rownames("name")  

radarchart(M, axistype=1,   
            #custom polygon  
            pcol=rgb(0.2,0.5,0.5,0.9), pfcol=rgb(0.2,0.5,0.5,0.5), plwd=2,            
            #custom the grid  
            cglcol="grey", cglty=1, axislabcol="grey", caxislabels=seq(0,3,0.5), cglwd=0.8,        
            #custom labels  
            vlcex=0.5)

enter image description here

...