Переберите список данных и назовите заголовок для каждого графика. - PullRequest
Новая
       51

Переберите список данных и назовите заголовок для каждого графика.

1 голос
/ 08 июля 2019

Я ссылаюсь на этот пример кода , чтобы сгенерировать график, который содержит несколько вспомогательных сюжетов со своими собственными заголовками, но у меня возникают проблемы с правильной маркировкой заголовков вспомогательных сюжетов с помощью цикла.Для простоты изложения я использую в качестве примера среду 1: 2. 

par(mfrow(1, 2))
require(fmsb)

data1=as.data.frame(matrix( sample(2:20, 10, replace=T) , ncol=10))
data2=as.data.frame(matrix( sample(2:20, 10, replace=T) , ncol=10))
colnames(data1)=c("math" , "english" , "biology" , "music" , "R-coding", "data-viz" , "french" , "physic", "statistic", "sport" )
colnames(data2)=c("math" , "english" , "biology" , "music" , "R-coding", "data-viz" , "french" , "physic", "statistic", "sport" )

df1=rbind(rep(20,10) , rep(0,10) , data1)
df2=rbind(rep(20,10) , rep(0,10) , data2)

my.list <- list(df1, df2)

for (i in my.list[[i]]) {

radarchart(i, 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=4 , 

    #custom the grid
    cglcol="grey", cglty=1, axislabcol="grey", caxislabels=seq(0,20,5), cglwd=0.8,

    #custom labels
    vlcex=0.8 
    )
}

Однако этот блок кода ничего не возвращал, так как требует, чтобы входные данные были кадром данных.Кроме того, если я хочу поместить аргумент title в radarchart(), присваивая каждому фрейму данных уникальное имя (скажем, студент 1, студент 2) и используя их в качестве заголовков для каждого подзаголовка, как я могу добиться этого в цикле?

1 Ответ

2 голосов
/ 08 июля 2019

В вашем коде были ошибки, вот ожидаемый результат: 

par(mfrow=c(1, 2)) #debugged

library(fmsb)

data1=as.data.frame(matrix( sample(2:20, 10, replace=T) , ncol=10))
data2=as.data.frame(matrix( sample(2:20, 10, replace=T) , ncol=10))
colnames(data1)=c("math" , "english" , "biology" , "music" , "R-coding", "data-viz" , "french" , "physic", "statistic", "sport" )
colnames(data2)=c("math" , "english" , "biology" , "music" , "R-coding", "data-viz" , "french" , "physic", "statistic", "sport" )

df1=rbind(rep(20,10) , rep(0,10) , data1)
df2=rbind(rep(20,10) , rep(0,10) , data2)

my.list <- list("df1" = df1, "df2" = df2) #name the list's elements

for (i in 1:length(my.list)) { #use i as list indexer, not to call the elements

  radarchart(my.list[[i]], axistype=1 , #call the list's elements

             #custom polygon
             pcol=rgb(0.2,0.5,0.5,0.9) , pfcol=rgb(0.2,0.5,0.5,0.5) , plwd=4 , 

             #custom the grid
             cglcol="grey", cglty=1, axislabcol="grey", caxislabels=seq(0,20,5), cglwd=0.8,

             #custom labels
             vlcex=0.8, 

             #title; calling the list's names
             title = names(my.list)[i] 
  )
}

enter image description here

...