如何解决R Shiny + D3js - 使用新输入更新图会导致重叠图
我正在开发一个 Shiny 仪表板,我想在其中显示与用户可以选择的选定数据集相对应的条形图。虽然我可以创建条形图并在输入之间切换,但我在切换图表时遇到了问题:
在我的数据集之间切换会导致图中的条形重叠(将列添加到上一个图中)。
我想用“.transition()”来尝试以某种方式在数据集之间快速切换,但不幸的是,我没有让它工作。我不确定这是否有任何意义。我也尝试使用“.remove”,但它总是会随着每个开关删除一个栏。 “.exit().remove()”对我不起作用。
有人知道如何防止重叠吗?
我的数据:
Histogram.js(我确实注释掉了上面提到的我的方法)
// !preview r2d3 data=readr::read_tsv("Beispiel.tsv"),d3_version = "5",container = "div"
//r2d3: https://rstudio.github.io/r2d3,d3_version=3
// d3.tip
// Returns a tip
/* !preview r2d3 data=readr::read_tsv("Beispiel.tsv"),d3_version = "3",container = "div"*/
/* !preview r2d3 data=readr::read_tsv("Histogram_Data_Barplot.tsv"),container = "div" */
d3.tip = function() {
var direction = d3TipDirection,offset = d3TipOffset,html = d3TipHTML,rootElement = document.body,node = initNode(),svg = null,point = null,target = null;
function tip(vis) {
svg = getSVGNode(vis);
if (!svg) return;
point = svg.createSVGPoint();
rootElement.appendChild(node);
}
// Public - show the tooltip on the screen
//
// Returns a tip
tip.show = function() {
var args = Array.prototype.slice.call(arguments);
if (args[args.length - 1] instanceof SVGElement) target = args.pop();
var content = html.apply(this,args),poffset = offset.apply(this,dir = direction.apply(this,nodel = getNodeEl(),i = directions.length,coords,scrollTop = document.documentElement.scrollTop ||
rootElement.scrollTop,scrollLeft = document.documentElement.scrollLeft ||
rootElement.scrollLeft;
nodel.html(content)
.style('opacity',1).style('pointer-events','all');
while (i--) nodel.classed(directions[i],false);
coords = directionCallbacks.get(dir).apply(this);
nodel.classed(dir,true)
.style('top',(coords.top + poffset[0]) + scrollTop + 'px')
.style('left',(coords.left + poffset[1]) + scrollLeft + 'px');
return tip;
};
// Public - hide the tooltip
//
// Returns a tip
tip.hide = function() {
var nodel = getNodeEl();
nodel.style('opacity',0).style('pointer-events','none');
return tip;
};
// Public: Proxy attr calls to the d3 tip container.
// Sets or gets attribute value.
//
// n - name of the attribute
// v - value of the attribute
//
// Returns tip or attribute value
// eslint-disable-next-line no-unused-vars
tip.attr = function(n,v) {
if (arguments.length < 2 && typeof n === 'string') {
return getNodeEl().attr(n);
}
var args = Array.prototype.slice.call(arguments);
d3.selection.prototype.attr.apply(getNodeEl(),args);
return tip;
};
// Public: Proxy style calls to the d3 tip container.
// Sets or gets a style value.
//
// n - name of the property
// v - value of the property
//
// Returns tip or style property value
// eslint-disable-next-line no-unused-vars
tip.style = function(n,v) {
if (arguments.length < 2 && typeof n === 'string') {
return getNodeEl().style(n);
}
var args = Array.prototype.slice.call(arguments);
selection.prototype.style.apply(getNodeEl(),args);
return tip;
};
// Public: Set or get the direction of the tooltip
//
// v - One of n(north),s(south),e(east),or w(west),nw(northwest),// sw(southwest),ne(northeast) or se(southeast)
//
// Returns tip or direction
tip.direction = function(v) {
if (!arguments.length) return direction;
direction = v == null ? v : functor(v)
return tip;
};
// Public: Sets or gets the offset of the tip
//
// v - Array of [x,y] offset
//
// Returns offset or
tip.offset = function(v) {
if (!arguments.length) return offset;
offset = v == null ? v : functor(v)
return tip;
};
// Public: sets or gets the html value of the tooltip
//
// v - String value of the tip
//
// Returns html value or tip
tip.html = function(v) {
if (!arguments.length) return html;
html = v == null ? v : functor(v)
return tip;
};
// Public: sets or gets the root element anchor of the tooltip
//
// v - root element of the tooltip
//
// Returns root node of tip
tip.rootElement = function(v) {
if (!arguments.length) return rootElement;
rootElement = v == null ? v : functor(v)
return tip;
};
// Public: destroys the tooltip and removes it from the DOM
//
// Returns a tip
tip.destroy = function() {
if (node) {
getNodeEl().remove()
node = null;
}
return tip;
};
function d3TipDirection() { return 'n' }
function d3TipOffset() { return [0,0] }
function d3TipHTML() { return ' ' }
var directionCallbacks = d3.map({
n: directionnorth,s: directionSouth,e: directionEast,w: directionWest,nw: directionnorthWest,ne: directionnorthEast,sw: directionSouthWest,se: directionSouthEast
}),directions = directionCallbacks.keys();
function directionnorth() {
var bBox = getScreenBBox(this);
return {
top: bBox.n.y - node.offsetHeight,left: bBox.n.x - node.offsetWidth / 2
};
}
function directionSouth() {
var bBox = getScreenBBox(this);
return {
top: bBox.s.y,left: bBox.s.x - node.offsetWidth / 2
};
}
function directionEast() {
var bBox = getScreenBBox(this);
return {
top: bBox.e.y - node.offsetHeight / 2,left: bBox.e.x
};
}
function directionWest() {
var bBox = getScreenBBox(this);
return {
top: bBox.w.y - node.offsetHeight / 2,left: bBox.w.x - node.offsetWidth
};
}
function directionnorthWest() {
var bBox = getScreenBBox(this);
return {
top: bBox.nw.y - node.offsetHeight,left: bBox.nw.x - node.offsetWidth
}
}
function directionnorthEast() {
var bBox = getScreenBBox(this)
return {
top: bBox.ne.y - node.offsetHeight,left: bBox.ne.x
}
}
function directionSouthWest() {
var bBox = getScreenBBox(this)
return {
top: bBox.sw.y,left: bBox.sw.x - node.offsetWidth
}
}
function directionSouthEast() {
var bBox = getScreenBBox(this)
return {
top: bBox.se.y,left: bBox.se.x
}
}
function initNode() {
var div = d3.select(document.createElement('div'))
div
.style('position','absolute')
.style('top',0)
.style('opacity',0)
.style('pointer-events','none')
.style('Box-sizing','border-Box')
return div.node()
}
function getSVGNode(element) {
var svgNode = element.node()
if (!svgNode) return null
if (svgNode.tagName.toLowerCase() === 'svg') return svgNode
return svgNode.ownerSVGElement
}
function getNodeEl() {
if (node == null) {
node = initNode()
// re-add node to DOM
rootElement.appendChild(node)
}
return d3.select(node)
}
// Private - gets the screen coordinates of a shape
//
// Given a shape on the screen,will return an SVGPoint for the directions
// n(north),w(west),ne(northeast),se(southeast),// nw(northwest),sw(southwest).
//
// +-+-+
// | |
// + +
// | |
// +-+-+
//
// Returns an Object {n,s,e,w,nw,sw,ne,se}
function getScreenBBox(targetShape) {
var targetel = target || targetShape
while (targetel.getScreenCTM == null && targetel.parentNode != null) {
targetel = targetel.parentNode
}
var bBox = {},matrix = targetel.getScreenCTM(),tbBox = targetel.getBBox(),width = tbBox.width,height = tbBox.height,x = tbBox.x,y = tbBox.y
point.x = x
point.y = y
bBox.nw = point.matrixTransform(matrix)
point.x += width
bBox.ne = point.matrixTransform(matrix)
point.y += height
bBox.se = point.matrixTransform(matrix)
point.x -= width
bBox.sw = point.matrixTransform(matrix)
point.y -= height / 2
bBox.w = point.matrixTransform(matrix)
point.x += width
bBox.e = point.matrixTransform(matrix)
point.x -= width / 2
point.y -= height / 2
bBox.n = point.matrixTransform(matrix)
point.y += height
bBox.s = point.matrixTransform(matrix)
return bBox
}
// Private - replace D3JS 3.X d3.functor() function
function functor(v) {
return typeof v === 'function' ? v : function() {
return v
}
}
return tip
}
//d3----------------------------------
var margin = {top: 40,right: 20,bottom: 30,left: 40},/// width and height will be generated by R automatically. Removed parts: Numbers after width = xxx and height = xxx.
width = width - margin.left - margin.right,height = height - margin.top - margin.bottom;
var formatPercent = d3.format("");
var x = d3.scaleBand()
.rangeRound([0,width])
.padding(.1);
var y = d3.scaleLinear()
.rangeRound([height,0]);
var xAxis = d3.axisBottom()
.scale(x);
var yAxis = d3.axisLeft()
.scale(y)
// .tickFormat(formatPercent);
var tip = d3.tip()
.attr('class','d3-tip')
.offset([-10,0])
.html(function(d) {
return "<strong>SubCluster:</strong> <span style='color:red'>" + d.SubCluster + "</span>";
})
//R already created a SVG element. So we do not need to create it again. Removing the following part:
//d3.select("body")
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 + ")");
svg.call(tip);
// To make the data input dynamically,we would do this: Create .tsv file (only in this example)
// Then change the header to read this specific .tsv file
// r2d3.onRender = To read the data into r2d3.
r2d3.onRender(function(data,h,options) {
x.domain(data.map(function(d) { return d.DimensionName; }));
y.domain([0,d3.max(data,function(d) { return d.Amount;})]);
//d3.count(data,d => d.amount);
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("Occurence");
svg.selectAll(".bar")
.data(data)
.enter()
.append("rect")
.attr("class","bar")
.attr("x",function(d) { return x(d.DimensionName); })
.attr("width",x.bandwidth())
.attr("y",function(d) { return y(d.Amount); })
.attr("height",function(d) { return height - y(d.Amount); })
.on('mouSEOver',tip.show)
.on('mouSEOut',tip.hide)
// .remove()
;
/* svg.select(".bar")
.transition()
.duration(500)
.attr("x",function(d) { return x(d.DimensionName); })
.attr("width",function(d) { return y(d.Amount); })
.attr("y")
.remove(); */
// svg.exit().remove();
/* svg.transition()
.data(data)
.duration(500)
.attr("class",tip.hide)
svg.exit().remove() */
});
function type(d) {
d.Amount = +d.Amount;
return d;
}
.R 文件(我将只包括我如何在 UI 和服务器中调用绘图,因为代码很长:
if (interactive()) {
ui <- [Code about navigation bar etc.]
body = argonDashBody(
argonTabItems(
argonTabItem(
tabName = "subcluster_analysis",fluidRow(
column(width=4,#FM
argonTable(
cardWrap = FALSE,#title = "Barplots",headTitles = "D3JS Barplot - Cluster Per Feature",shinycssloaders::withSpinner(
# verbatimtextoutput("summary"),d3Output(outputId = "out_barplotD3_clusterPerFeature_NEU")),)
),[...rest of the body...]
#### Server initiation ---------------------------------
server <- function(input,output,session){
[Server output]
#Barplot in D3.Js
output$out_barplotD3_clusterPerFeature_NEU <- renderD3({
r2d3(data = cleanedSubClusteringData_barplot(),script= "Histogram.js",d3_version = "4",container = "div")
})
}
shinyApp(ui,server)
}
数据: https://drive.google.com/drive/folders/1BXQPgEBYax0mwB8eTA5Uf-PuYs27C_kD?usp=sharing
我很感激任何建议! :)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。