r语言 - 将自定义选项传递给 radarChartJS 时出错

Question

我正在尝试将自定义选项传递给每个 http://www.chartjs.org/docs/#chart-configuration-creating-a-chart-with-options chartJSRadar。在此示例中，我尝试传递一个简单的标题，但遇到此错误：

Error in validateCssUnit(sizeInfo$width) : CSS units must be a single-element numeric or character vector

示例代码：

library(radarchart)
labs <- c("Communicator", "Data Wangler", "Programmer",
          "Technologist",  "Modeller", "Visualizer")
scores <- list(
  "Rich" = c(9, 7, 4, 5, 3, 7),
  "Andy" = c(7, 6, 6, 2, 6, 9),
  "Aimee" = c(6, 5, 8, 4, 7, 6)
)

opList <- list(title=list(display='true', text='Title'))
chartJSRadar(scores = scores, labs = labs, maxScale = 10, opList)

Answer 1

我相信你只需要稍微改变你的opList论点。 chartJSRadar使用...作为传递其他选项的地方。 在代码中，假定opList是width参数。 一般来说，我会说大多数htmlwidgets把height和width放在最后，这样就不会发生这种情况，但chartJSRadar不遵循这个惯例。

这应该有效，但它没有，所以探索错误的来源。 看来它所基于的旧版本的chartJS不提供title。 我添加了代码来演示如何手动添加title。

library(radarchart)
labs <- c("Communicator", "Data Wangler", "Programmer",
          "Technologist",  "Modeller", "Visualizer")
scores <- list(
  "Rich" = c(9, 7, 4, 5, 3, 7),
  "Andy" = c(7, 6, 6, 2, 6, 9),
  "Aimee" = c(6, 5, 8, 4, 7, 6)
)

chartJSRadar(
  scores = scores, labs = labs, maxScale = 10,
  title = list(display = TRUE, text = "Custom Title")
)

我快速破解了一个您可以尝试的更新，但它尚未经过测试，尚未准备好拉取。

devtools::install_github("timelyportfolio/radarchart@update/2.1.6")