如何在 R 的 Google Viz 包中自定义 gvisBarChart 中的轴

Question

我试图弄清楚如何从 R 中的 googleVis 自定义一些绘图选项，一个典型的例子是 gvisBarChart 中的轴标签。

使用可重现/包含的数据集 CityPopularity 和 gvisBarChart：

data(CityPopularity)
df <- CityPopularity
Bar <- gvisVarChart(CityPopularity)
plot(Bar)

这会给你这个：

现在假设您要在 Y 轴顶部添加一个显示“城市名称”的 Y 轴标签，并在 X 轴末端添加一个显示“平均人气评级”的 X 轴标签。

在此示例中，您可以在没有这些标签的情况下立即计算出轴的值，但对于非示例用例，标签可能更重要，并且一些观众习惯于看到此类标签​​。

?gvisBarChart 告诉你参考这个资源：

https://developers.google.com/chart/interactive/docs/gallery/barchart#Configuration_Options

在阅读了该网站一段时间后，我看到了一些切线相关的选项，例如

list(axisTitlesPosition = "in")) 或 list(axisTitlesPosition = "out"))

但我不知道如何使轴标签出现或如何操作它们的值。如果我至少可以让它们出现在预期的位置，那么更改数据的列名可能足以让它们说出我想要的内容，尽管能够独立于列名操作它们的值会更好。

Answer 1

为标题提供了一些控制元素：

library(googleVis)
data(CityPopularity)
df <- CityPopularity
Bar <- gvisBarChart(CityPopularity, 
                    options = list(hAxes="[{title:'Mean Popularity Rating', titleTextStyle: {color: 'yellow'}}]"
                         , vAxes="[{title:'City Name', titleTextStyle: {color: 'blue'}}]"))
plot(Bar)