Удаление десятичных знаков по оси Y в rCharts Блестящие - PullRequest
Новая
       38

Удаление десятичных знаков по оси Y в rCharts Блестящие

0 голосов
/ 06 июня 2019

Я строю график nPlot, используя rCharts на блестящей приборной панели .. на оси Y у меня большие числа (9 цифр) плюс 1 десятичная дробь (ноль), см. Этот снимок экрана метки yAxis Я хочу получитьИзбавившись от нуля (выделено желтым цветом), я попробовал несколько решений, которые я нашел в stackoverflow, но до сих пор ничего не получалось

Я пытался использовать формат (round ()) для переменной, которая отображается в yAxis

   ct$Market = as.character(ct$Market)
  output$top10markets <-renderChart({
    topmarkets <- 
      arrange(ct %>%  
                group_by(as.character(Market)) %>% 
                summarise(
                  CTo = format(round(sum(`Net turnover`)), digits = 0)
                ), desc(CTo))
    colnames(topmarkets)[colnames(topmarkets)=="as.character(Market)"] <- "Market"

    topmarkets <- subset(topmarkets[1:10,], select = c(Market, CTo))
    topmarkets$CTo <- format(round(topmarkets$CTo, digits = 0))

    p <- nPlot(CTo~Market, data = topmarkets, type = "discreteBarChart", dom = "top10markets") 
    p$params$width <- 1000
    p$params$height <- 200
    p$xAxis(staggerLabels = TRUE)
    p$yAxis(staggerLabels = TRUE, width = 10)

return(p)

})

и получил эту ошибку: нечисловой аргумент математической функции

Я пыталсяиспользовать TickFormat внутри rCharts 

p$yAxis(staggerLabels = TRUE, width = 50, tickFormat = "#! function(d) {return '€' + d} !#")

и получить его результат yAxis с tickFormat все запятые удалены, и все же он перекрывает строку yAxis

я пытался также добавить некоторыеCSS: 

.nv-discreteBarWithAxes .nvd3 > g > g > text,
.nv-axisMaxMin text {
  transform: translateX(13px); 
  width: 150px;
  height: 80px;
  -ms-transform: rotate(20deg); 
  -webkit-transform: rotate(20deg);
  transform: rotate(20deg); 
}
.nv-axisMaxMin text {
  word-break: break-word;
}

Результат: на этом скриншоте вывод с CSS тоже не годится, так как числа выходят за границы поля!

Я также пытался изменить размеры рамки, но это не помогло

Пожалуйста, помогите?

спасибо большое

1 Ответ

0 голосов
/ 07 июня 2019

Вы можете установить левое поле с помощью p$chart(margin = list(left = 100)), и вы можете установить отступ в p$yAxis, выполнив tickPadding = 15.

Требуемое значение форматера чисел tickFormat = "#! function(d) {return d3.format('c')(8364) + d3.format(',.1')(d)} !#" (8364 - десятичное числокод знака евро).

Итак: 

library(rCharts)

dat <- data.frame(
  Market = c("A", "B", "C"),
  CTo = c(1000000, 5000000, 10000000)
)

p <- nPlot(CTo~Market, data = dat, type = "discreteBarChart")
p$yAxis(tickPadding = 15, tickFormat = "#! function(d) {return d3.format('c')(8364) + d3.format(',.1')(d)} !#")
p$chart(margin = list(left = 100))
p

enter image description here

...