2014-06-08 4 views
2

나는 원하는 반짝이는 응용 프로그램을 거의 완성했습니다.x 및 y 레이블이 광택 및 r 차트로 표시

그래프의 x 축과 y 축에 어떻게 레이블을 추가 할 수 있습니까?

library(rCharts) 
library(shiny) 
X <- data.frame(Var1 = c(1L, 2L, 3L, 4L, 5L, 6L, 7L,8L, 9L, 10L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 1L, 2L,3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L), 
       Var2 = structure(c(1L,1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c("control","treatment1", "treatment2"), class = "factor"), 
       Freq = c(0L,0L, 3L, 2L, 6L, 9L, 13L, 36L, 50L, 497L, 0L, 2L, 1L, 3L, 6L, 4L, 11L, 29L, 50L, 499L, 1L, 2L, 0L, 2L, 5L, 6L, 12L, 22L, 63L,490L) 
) 
runApp(
    list(ui = fluidPage(
    titlePanel("Quiz 3 grades distribution"), 

    fluidRow(
     column(3, 
      #helpText("Select grade in Quiz 1 before the treatment:"),  
      selectInput("select", label = h3("Grade Quiz 1 before the treatment:"), 
         choices = list("All" = 0, "Not Perfect" = 1, "Perfect" = 2), 
         selected = 0) 
    ), 

     column(9, div(showOutput("histogram","nvd3")), style = 'align:center;') 
    ) 
), 
    server = shinyServer(
    function(input, output, session) { 
     output$histogram <- renderChart2({ 
     n2 <- nPlot(Freq ~ Var1, group = 'Var2', data = X, type = 'multiBarChart') 
     n2$params$width <- 500 
     n2$params$height <- 400 
     n2 
     }) 
    } 
) 

) 
) 

감사 :

이것은 내가 지금 무엇을 가지고!

+0

! 이런 종류의 정보가 담긴 설명서를 가르쳐 주시겠습니까? 라벨의 크기를 어떻게 늘릴 수 있습니까? – jdharrison

답변

2

개체는 axisLabel 옵션을 사용하는 xAxisyAxis 메서드를가집니다. y 축의 너비를 조정해야 할 수도 있습니다.

library(rCharts) 
library(shiny) 
X <- data.frame(Var1 = c(1L, 2L, 3L, 4L, 5L, 6L, 7L,8L, 9L, 10L, 1L, 2L, 3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 1L, 2L,3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L), 
       Var2 = structure(c(1L,1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L,2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c("control","treatment1", "treatment2"), class = "factor"), 
       Freq = c(0L,0L, 3L, 2L, 6L, 9L, 13L, 36L, 50L, 497L, 0L, 2L, 1L, 3L, 6L, 4L, 11L, 29L, 50L, 499L, 1L, 2L, 0L, 2L, 5L, 6L, 12L, 22L, 63L,490L) 
) 
runApp(
    list(ui = fluidPage(
    titlePanel("Quiz 3 grades distribution"), 

    fluidRow(
     column(3, 
      #helpText("Select grade in Quiz 1 before the treatment:"),  
      selectInput("select", label = h3("Grade Quiz 1 before the treatment:"), 
         choices = list("All" = 0, "Not Perfect" = 1, "Perfect" = 2), 
         selected = 0) 
    ), 

     column(9, div(showOutput("histogram","nvd3")), style = 'align:center;') 
     , tags$head(tags$style(HTML(".nv-axislabel {font: 22px Arial;}"))) # to style labels 
    ) 
), 
    server = shinyServer(
    function(input, output, session) { 
     output$histogram <- renderChart2({ 
     n2 <- nPlot(Freq ~ Var1, group = 'Var2', data = X, type = 'multiBarChart') 
     n2$params$width <- 500 
     n2$params$height <- 400 
     n2$xAxis(axisLabel = "my x axis label") 
     n2$yAxis(axisLabel = "my y axis label", width = 50) 
     n2 
     }) 
    } 
) 

) 
) 
문제가`nvd3` https://github.com/ramnathv/rCharts/issues/102
+0

감사에서 Y 축 레이블이

enter image description here

Ignacio

+0

현재 사용할 수있는 설명서 또는 설명서가 없습니다 (적어도 R 패키지에 있음). github 페이지 http://ramnathv.github.io/rCharts/ 및 https://github.com/ramnathv/rCharts에는 많은 자료가 있습니다. 사람들이 https://github.com/ramnathv/rCharts/issues?state=open을 사용하여 닫은 공개 문제를 볼 수 있습니다. – jdharrison

+0

레이블 크기를 늘리려면 어떻게해야합니까? – Ignacio