我正在使用R库‘parcoord’来创建一个交互式的平行坐标图。默认情况下,如果未沿任何轴进行选择,则绘图将显示所有轨迹。当在轴上选择某个范围时,只有选择窗口内的轨迹可见,而所有其他轨迹都会消失。我想知道是否有一种方法可以使其他轨迹变灰,但在绘图上仍然可见,类似于使用plotly软件包的平行坐标绘图?
谢谢!
library(shiny)
library(parcoords)
library(d3r)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
),
mainPanel(
parcoordsOutput("par_plot")
)
)
)
server <- function(input, output) {
output$par_plot<- renderParcoords({
data(mtcars)
parcoords(mtcars, rownames = TRUE, brushMode = "1d-axes-multy", reorderable = FALSE,
color = list(
colorBy = "mpg",
colorScale = "scaleOrdinal",
colorScheme = "schemeCategory10"
),
withD3 = TRUE)
})
}
shinyApp(ui = ui, server = server)发布于 2021-02-22 07:51:13
我已经设法弄清楚了一些非常相似的东西,这对我也是有效的,即不是灰显未选中的痕迹,而是使它们更透明,这样它们就不会比选中的更加突出。这是通过使用parcoord参数'alphaOnBrushed‘来实现的。我将其设置为0.15,在强调画笔轨迹方面,绘图看起来完全符合我的要求。
library(shiny)
library(parcoords)
library(d3r)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
),
mainPanel(
parcoordsOutput("par_plot")
)
)
)
server <- function(input, output) {
output$par_plot<- renderParcoords({
data(mtcars)
parcoords(mtcars, rownames = TRUE, brushMode = "1d-axes-multy", reorderable = FALSE,
alphaOnBrushed = 0.15,
color = list(
colorBy = "mpg",
colorScale = "scaleOrdinal",
colorScheme = "schemeCategory10"
),
withD3 = TRUE)
})
}
shinyApp(ui = ui, server = server)https://stackoverflow.com/questions/66146387
复制相似问题