rCharts Zeros 而不是 y 轴中的数字

Question

在 renderChart() 中绘制 discreteBarChart 时，我在 y 轴上得到 0 个值，但是，出现了 y 轴的最高值（不是 0），但也有一些奇怪的格式和逗号（请参阅名为 Chart Plot 的第二张截图）

我想在 rCharts 中绘制 2 列，x 轴是字符（国家名称），y 轴是数字 (Collective_Turnover) 我根据数据创建了这个变量 (Collective_Turnover)，它是 Net_Turnover 的 总和我试着把 as.numeric() 放在它前面，但仍然在 yAxis

上得到 0
data$countryname= as.character(data$countryname) output$top10countries <-renderChart({ topcountries <- arrange(data%>% group_by(as.character(countryname)) %>% summarise( Collective_Turnover= sum(as.numeric(`Net turnover`)) ), desc(Collective_Turnover)) colnames(topcountries )[colnames(topcountries )=="as.character(countryname)"] <- "Country" topcountries <- subset(topcountries [1:10,], select = c(Country, Collective_Turnover)) p <- nPlot(Collective_Turnover~Country, data = topcountries , type = "discreteBarChart", dom = "top10countries") p$params$width <- 1000 p$params$height <- 200 p$xAxis(staggerLabels = TRUE) # p$yAxis(axisLabel = "CollectiveTO", width = 50) return(p) })

R 中 topcountries 的输出是这样的 table：

按降序排列... 我得到的情节是这样的：

Answer 1

刻度标签因太长而被截断。您需要设置左边距和填充。要去掉逗号，请使用数字格式化程序。

dat <- data.frame(
  Country = c("Russian", "Italy", "Spain"), 
  x = c(12748613.6, 5432101.2, 205789.7)
)

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

rCharts Zeros 而不是 y 轴中的数字

rCharts Zeros instead of numbers in the y Axis

rendering

r

rstudio

shiny

rcharts