Нет вывода при построении графика HeatMap с использованием Rcharts

Question

Я рисую тепловую карту с использованием rcharts, используя следующий код.

a<-as.list(c(22,13,25,43,63,47,42,43,42,75)) 
b<-as.list(c(12,32,15,41,61,71,45,23,22,45)) 
c<-as.list(c(1,1,1,1,3,1,5,6,7,3)) 


a<-data$V1 
b<-data$V2 
c<-data$V3 

library(RCurl) 
require(devtools) 
library(rCharts) 
h <- rCharts:::Highcharts$new() 
h$chart(
     animation=FALSE, 
     plotBorderWidth=3, 
     type='line', 
     renderTo = "snipa-raplot-dynamic"  
     ) 
h$chart(margin = list(left =0)) 
xAxistmp <- list() 
#labels=list(style=c(fontSize="15px")) 
xAxistmp[[1]] <- list() 

h$xAxis(xAxistmp) 

yAxistmp <- list() 

yAxistmp[[1]] <- list() 


h$yAxis(yAxistmp)    
seriestmp<-list() 
seriestmp[[1]]<-list(data = cbind(a,b,c), type="heatmap") 
#seriestmp[[2]]<-list(data = b, type="column", name="Common",color='green') 
#seriestmp[[3]]<-list(data = c, type="column", name="1000 Genome") 
h$series(seriestmp) 
h$save('C:/Users/man4ish/Desktop/barplot.html', standalone = TRUE) 

Но нет выхода. Также я не мог найти способ отладить проблему, поскольку она является оболочкой для высоких диаграмм, где я могу генерировать тепловую карту, используя аналогичную логику. Pls помогает мне в этом вопросе.

Answer 1

Вам нужно добавить дополнительные библиотеки javascript, чтобы получить тепловую карту с помощью RCharts. Вы можете сделать это, добавив:

h$addAssets(js = c("https://code.highcharts.com/modules/exporting.js", 
        "https://code.highcharts.com/modules/heatmap.js")) 

также что данные неверные. Вам нужно удалить имена столбцов матрицы, чтобы получить правильный вывод JSON. Первый столбец матрицы - координата оси x, второй столбец - координата оси y, а третий столбец - значение квадрата тепловой карты.

Не удалось выяснить, что ваши ценности, где так вот пример:

library(rCharts) 
a<-as.list(c(0,0,1,1)) 
b<-as.list(c(0,1,0,1)) 
c<-as.list(c(2,3,4,5)) 

df <- cbind(a,b,c) 
colnames(df) <-NULL 


h <- rCharts:::Highcharts$new() 
h$addAssets(js = c("https://code.highcharts.com/modules/exporting.js", 
        "https://code.highcharts.com/modules/heatmap.js")) 

h$chart(type='heatmap') 
h$xAxis(categories=list(c(0,1))) 
h$yAxis(categories=list(c(0,1))) 
h$addParams(colorAxis=list(min=0,minColor='#FFFFFF',maxColor="#!Highcharts.getOptions().colors[0]!#")) 
h$series(data = df) 
h