3

我在 RMarkdown 文档中呈现这个 d3 图表：

Javascript（test.js）：

// !preview r2d3 data=readr::read_tsv("X:/D3 Practice/data.tsv"), d3_version = "3", container="div"
//
// r2d3: https://rstudio.github.io/r2d3


var margin = {top: 40, right: 20, bottom: 30, left: 40},
    width = width - margin.left - margin.right,
    height = height - margin.top - margin.bottom;

var formatPercent = d3.format(".0%");

var x = d3.scale.ordinal()
    .rangeRoundBands([0, width], .1);

var y = d3.scale.linear()
    .range([height, 0]);

var xAxis = d3.svg.axis()
    .scale(x)
    .orient("bottom");

var yAxis = d3.svg.axis()
    .scale(y)
    .orient("left")
    .tickFormat(formatPercent);


var svg = div.append("svg")
    .attr("width", width + margin.left + margin.right)
    .attr("height", height + margin.top + margin.bottom)
  .append("g")
    .attr("transform", "translate(" + margin.left + "," + margin.top + ")");



r2d3.onRender(function(data, s, w, h, options) {
  x.domain(data.map(function(d) { return d.letter; }));
  y.domain([0, d3.max(data, function(d) { return d.frequency; })]);

  svg.append("g")
      .attr("class", "x axis")
      .attr("transform", "translate(0," + height + ")")
      .call(xAxis);

  svg.append("g")
      .attr("class", "y axis")
      .call(yAxis)
    .append("text")
      .attr("transform", "rotate(-90)")
      .attr("y", 6)
      .attr("dy", ".71em")
      .style("text-anchor", "end")
      .text("Frequency");

  svg.selectAll(".bar")
      .data(data)
    .enter().append("rect")
      .attr("class", "bar")
      .attr("x", function(d) { return x(d.letter); })
      .attr("width", x.rangeBand())
      .attr("y", function(d) { return y(d.frequency); })
      .attr("height", function(d) { return height - y(d.frequency); })


});

function type(d) {
  d.frequency = +d.frequency;
  return d;
}

数据（data.tsv）：

letter  frequency
A   .08167
B   .01492
C   .02780
D   .04253
E   .12702
F   .02288
G   .02022
H   .06094
I   .06973
J   .00153
K   .00747
L   .04025
M   .02517
N   .06749
O   .07507
P   .01929
Q   .00098
R   .05987
S   .06333
T   .09056
U   .02758
V   .01037
W   .02465
X   .00150
Y   .01971
Z   .00074

代码：

library(r2d3)
r2d3(data = readr::read_tsv("X:/D3 Practice/data.tsv"),
     script = "X:/D3 Practice/test.js",
     d3_version = "3",
     container="div")

图表在 R 预览中看起来不错，在输出的 HMTL 文档中看起来也不错。但是当我将窗口大小调整到某个点时，图表就会消失。在控制台中，我可以看到一条消息：

Node cannot be found in the current page.

这是最初的 HTML：

在此处输入图像描述

这是我调整大小的时候（注意“错误”div？不知道那是什么）。：

在此处输入图像描述

4

1 回答 1

1

我的理解是r2d3已经声明并设置width和height初始化或调整大小。因此，您可以通过更改 js 的顶部来提供最低限度：

var margin = {top: 40, right: 20, bottom: 30, left: 40},
    min_width = 250, /// The smallest width your plot area (exluding margins) should have
    min_height = 480; /// The smallest height your plot area (exluding margins) should have
    width = d3.max([width, min_width]) - margin.left - margin.right;
    height = d3.max([height, min_height]) - margin.top - margin.bottom;
于 2021-11-17T18:03:13.037 回答