Gartner magic quadrant in highcharter

Question

highcharterに魔法象限を作成したいと思います。 ggplot2では、私は、これはhighcharterで行うことができる方法

data = data.frame(Aster_experience=c(-0.7, 0.3), 
        R_experience=c(0.9, 0.3), 
        coverage=c(60,30), 
        product=c("TeradataAsterR", "toaster")) 
ggplot(data, aes(Aster_experience, R_experience)) + 
    geom_point(aes(size=coverage, color=product)) + 
    geom_text(aes(label=product), size=5, nudge_x=0.0, nudge_y=-0.15) + 
    geom_hline(yintercept=0) + geom_vline(xintercept=0) + 
    theme_tufte() + 
    labs(x="Aster Experience", y="R Experience", title="R Packages for Teradata Aster") + 
    scale_x_continuous(limits=c(-1,1), breaks=c(-.8,.8), labels=c('less','more')) + 
    scale_y_continuous(limits=c(-1,1), breaks=c(-.8,.8), labels=c('less','more')) + 
    scale_size(range=c(15,20), breaks=c(30,60), guide=guide_legend(title="Aster Functions\n  Covered", 
                   override.aes = list(color=rev(two_colors)))) + 
    scale_color_manual(values=two_colors, guide="none") + 
    theme(axis.text.y = element_text(angle = 90, hjust = 1), 
     axis.ticks = element_blank(), 
     axis.text=element_text(size=12), 
     axis.title=element_text(size=14,face="bold"), 
     plot.title=element_text(size=18, vjust=1), 
     legend.position="right") 

https://gist.github.com/grigory93/f370c5eb997fc74b7b7ec83e73d4dffaの素敵な例を見つけましたか？ http://jsfiddle.net/gh/get/library/pure/highcharts/highcharts/tree/master/samples/highcharts/demo/polygon/ UNFは、この単純なサンプルコードで作業していない：

は、だから私は、これは例をhighchartsからhighcharterで多角形を作ってみました

library(highcharter) 

hc <- highchart() 
hc <- hc %>% 
    # hc_title(style = list(color = "red")) %>% 
    # hc_subtitle(text = "I want to add a subtitle too with style", 
    #    style = list(color = "#B71C1C", fontWeight = "bold")) %>% 
    hc_xAxis(categories = c(1:12)) %>% 
    # hc_add_series(name = "Another data", type = "scatter", color = "#1A237E", 
    #    dataLabels = list(align = "center", enabled = TRUE), 
    #    data = c(1:12)) %>% 
    hc_add_series(name='Polygon',type='polygon',data=list(list(list(1,4),list(2,4),NULL))) %>% 
    hc_tooltip(crosshairs = TRUE, shared = TRUE) 
hc 

Answer 1

あなたはpoloygon例のデータをチェックする必要があります。

ジオメトリでは、ポリゴンを取得するには少なくとも3ポイントが必要なので、なぜ2ポイントしか入れず、NULL値を入れるのかはわかりません。

library(highcharter) 
highchart() %>% 
    hc_add_series(name='Polygon',type='polygon',data=list(c(1,4),c(2,4), c(3,3))) 

、より詳細な例：

で試してみてください

highchart() %>% 
    hc_add_series(
    name = 'Polygon', type = 'polygon', color = hex_to_rgba("red", 0.1), 
    enableMouseTracking = FALSE, 
    data = list(c(-1, 0), c(1, 0), c(1, 1), c(0, 1), c(0, -1), c(-1, -1)) 
    ) %>% 
    hc_add_series(data = list(c(0.5, 0.5), c(-0.5, 0.5)), type = "scatter") %>% 
    hc_xAxis(min = -1, max = 1) %>% 
    hc_yAxis(min = -1, max = 1) %>% 
    hc_add_theme(hc_theme_null())