R中的highcharts样式修改
highcharts style modification in R
我希望在 highcharts 中更改属性,这是 rCharts R package 的一部分。另外,我希望通过使用 R 来做到这一点,而不是通过网络相关或任何其他语言。
在任何highcharts例子中,我们可以看到style
标签下的默认属性如下:
<style>
.rChart {
display: block;
margin-left: auto;
margin-right: auto;
width: 800px;
height: 400px;
}
</style>
希望修改为:
<style>
.rChart {
display: block;
margin-left: auto;
margin-right: auto;
width: 100%;
height: 100%;
position: absolute
}
</style>
我试图在参考资料 (https://media.readthedocs.org/pdf/rcharts/latest/rcharts.pdf) 中找到如何执行此操作,但找不到。如果有人告诉我,我将不胜感激。
我认为最好的方法是仅生成特定于 highcharts 的代码并将其插入包含您的自定义 CSS 的 HTML 文件中。否则,如果您想直接从 R 调整样式,可以分别通过 chart$params$width
和 chart$params$height
访问图表的 width
和 height
属性。但是,您似乎需要提供一个 像素 的值,因此我建议在 rCharts 之外调整此 属性。
这里是一个小例子,基于包网站quick start page中提供的代码,从R调整宽度和高度:
library(rCharts)
h1 <- hPlot(x = "Wr.Hnd", y = "NW.Hnd", data = MASS::survey, type = c("line",
"bubble", "scatter"), group = "Clap", size = "Age")
h1$params$width <- 1000
h1$params$height <- 1000
print(h1) # Display the chart
如果你只想获取 highcharts-specific 代码(div + 图表 JS),用于外部网页:
chartCode <- capture.output(chart$print("chart_id"))
chartCode <- paste(chartCode, collapse='') # If you want a single string containing the code, that can be exported as you please.
我希望在 highcharts 中更改属性,这是 rCharts R package 的一部分。另外,我希望通过使用 R 来做到这一点,而不是通过网络相关或任何其他语言。
在任何highcharts例子中,我们可以看到style
标签下的默认属性如下:
<style>
.rChart {
display: block;
margin-left: auto;
margin-right: auto;
width: 800px;
height: 400px;
}
</style>
希望修改为:
<style>
.rChart {
display: block;
margin-left: auto;
margin-right: auto;
width: 100%;
height: 100%;
position: absolute
}
</style>
我试图在参考资料 (https://media.readthedocs.org/pdf/rcharts/latest/rcharts.pdf) 中找到如何执行此操作,但找不到。如果有人告诉我,我将不胜感激。
我认为最好的方法是仅生成特定于 highcharts 的代码并将其插入包含您的自定义 CSS 的 HTML 文件中。否则,如果您想直接从 R 调整样式,可以分别通过 chart$params$width
和 chart$params$height
访问图表的 width
和 height
属性。但是,您似乎需要提供一个 像素 的值,因此我建议在 rCharts 之外调整此 属性。
这里是一个小例子,基于包网站quick start page中提供的代码,从R调整宽度和高度:
library(rCharts)
h1 <- hPlot(x = "Wr.Hnd", y = "NW.Hnd", data = MASS::survey, type = c("line",
"bubble", "scatter"), group = "Clap", size = "Age")
h1$params$width <- 1000
h1$params$height <- 1000
print(h1) # Display the chart
如果你只想获取 highcharts-specific 代码(div + 图表 JS),用于外部网页:
chartCode <- capture.output(chart$print("chart_id"))
chartCode <- paste(chartCode, collapse='') # If you want a single string containing the code, that can be exported as you please.