R × [googleVis]로 interactive 그림을 그립니다.

예

Shiny에 그림을 올릴 때 클릭하고 움직일 수있는 그림을 그리려고했습니다.

해결책

c3.js에서 shiny에 JavaScript를 결합하는 방법을 조사하고 있었는데,
googleVis을 사용하여 동적 다이어그램을 그릴 수 있음을 발견했습니다.

이쪽은 문턱이 낮을 것입니다.

예Bubble chart

Google Bubble Chart with R

data: 데이터 프레임,X,Y,idvar 열 필요
idvar: ID에 사용할 변수
xvar: x축에 표시할 변수
yvar: y축에 표시할 변수
colorvar : 버블을 색으로 구분하는 데 사용되는 변수
sizevar: 거품 크기
values ​​in this column are mapped to actual pixel values ​​using the sizeAxis option.

app.R

library(googleVis)
library(shiny)

shinyApp(

# Server.R
server = server <- function(input, output) {
　
　#表示させるデータフレーム
  df_for_bubble <- read.csv(textConnection("
                              NAME,YEAR,VALUE,VALUE2,SIZE
                              A,2015,90,90,90
                              A,2016,80,95,80
                              A,2017,95,70,80
                              B,2015,80,50,50
                              B,2016,87,54,54
                              B,2017,75,50,50
                              C,2015,89,15,40
                              C,2016,82,16,30
                              C,2017,90,50,54 "))

  output$Bubble_Plot <- renderGvis({
    # 表示方法を書く
    Bubble <- gvisBubbleChart(df_for_bubble, 
                              idvar="NAME", 
                              xvar="VALUE",
                              yvar="VALUE2",
                              colorvar="YEAR", 
                              sizevar="SIZE",
                              options=list(
                                hAxis='{minValue:60, maxValue:100}',
                                vAxis='{minValue:0,maxValue:120}')
    　　　　　　　　　　　　　　　)
    return(Bubble)
  })
},
# ui.R
ui = ui <- fluidPage(
  titlePanel("Bubble Chart"),
    mainPanel(
      htmlOutput("Bubble_Plot")
  　)
  )

)

출력

커서를 맞추면 포인트 설명이 출력되는 버블 차트를 만들 수있었습니다.

before

after

실제로 움직이는 방법은 다음 앱에서 확인하십시오.

googleVis_test

참고

First steps of using googleVis on shiny

googleVis examples

c3.js 도 평행하게 커버해 갑니다