在R Shiny中，可以使用DT::dataframe以交互方式突出显示单元格吗？
在R Shiny中，可以使用DT::datatable以交互方式突出显示单元格，而不是DT::dataframe。DT::datatable是一个用于在R Shiny应用程序中创建交互式数据表的功能强大的包。它提供了许多选项和功能，可以自定义数据表的外观和行为。
要在DT::datatable中突出显示单元格，可以使用formatStyle函数。该函数允许您根据特定条件设置单元格的样式。以下是一个示例代码，演示如何在R Shiny应用程序中使用DT::datatable突出显示单元格：
library(shiny)
library(DT)
ui <- fluidPage(
titlePanel("DT::datatable示例"),
sidebarLayout(
sidebarPanel(),
mainPanel(
DT::dataTableOutput("table")
)
)
)
server <- function(input, output) {
output$table <- DT::renderDataTable({
datatable(
iris,
options = list(
pageLength = 10
),
rownames = FALSE
) %>%
formatStyle(
'Sepal.Length',
backgroundColor = styleEqual(c(5, 6), c('yellow', 'orange'))
)
})
}
shinyApp(ui = ui, server = server)在上面的示例中，我们使用DT::datatable创建了一个显示iris数据集的数据表。然后，我们使用formatStyle函数来突出显示'Sepal.Length'列中值为5和6的单元格，将它们的背景颜色分别设置为黄色和橙色。
这是一个简单的示例，您可以根据自己的需求使用formatStyle函数来设置更多的样式选项，以突出显示单元格。您可以在腾讯云的R Shiny产品页面（https://cloud.tencent.com/product/rshiny）了解更多关于R Shiny的信息和相关产品。
相关·内容
我正在尝试从DT包创建一个带有数据表的shinyApp。每当表中的字段是NA/空白时，我都想用红色突出显示它。
我使用部分虹膜数据集创建了一个可重复的示例，并创建了一些NA值。
# Loading iris dataset, shortening and creating NA in ‘Sepal.Length‘ variable
data(iris)
iris
df <- iris[c(1:10),]
df[c(5:10),1] <- NA
library(shiny)
library(DT)
ui <- fluidPage(
dataTableOutput(outp
浏览 1提问于2021-09-29得票数 1
回答已采纳
就示例而言，我有以下代码：
library(DT)
datatable(iris, options = list(pageLength = 5)) %>%
formatStyle(
'Sepal.Width',
backgroundColor = styleInterval(3, c('gray', 'yellow'))
)
我感兴趣的是只突出一个特定的基于条件的“单元格”。
例如，如果是iris[3, 2] > 3.1，那么背景颜色应该是黄色。
供参考
sessionInfo() DT_0.1
浏览 2提问于2015-06-09得票数 10
回答已采纳
有没有办法对r shiny的dataTableOutput中的特定行进行着色？
我所发现的是，我可以将orderClasses = TRUE设置为彩色有序列，但我希望始终为输出数据表的第2列和第2行着色。我已经通读了选项手册，但没有找到任何东西。
-编辑
好了，根据艺惠和user5029763的建议，我现在可以使用DT来突出显示列了，但是我仍然无法突出显示行。下面是我的代码，以虹膜数据集为例-如果物种是setosa，我将尝试突出显示整个行，然而，在我的计算机上，它只突出显示了setosa的单元格：
datatable(iris) %>% formatStyle(
'Speci
浏览 0提问于2015-08-20得票数 3
我试图弄清楚在从反应性sql查询中获取数据后如何更改列的类型.
例如，当我从数据库获取数据时，其中一些列是字符，我希望它们是因素。而且有些列是数字的(这是正确的)，但是我需要将它们显示为datatable中的因素(在datatable中使用，因为列的名称是公差，并且公差不能按范围过滤，应该是一个数字)。
简单代码：
library(ROracle)
library(shiny)
library(DT)
server <- shinyServer(
function(input, output, session) {
con <- dbConnect(dbDrive
浏览 2提问于2016-02-22得票数 0
回答已采纳
我有下面这段代码，你可以在R中运行。它是一个数据表，我根据单元格是否等于列中的任何其他值来改变单元格的颜色。到目前为止，我只能根据输入的给定列名(Sepal.Length，Sepal.Width)，根据单元格的值更改它们的颜色(到目前为止只能更改为红色)。我试图将同一列中的所有副本都涂上相同的颜色，但不同副本的颜色会有所不同。 Sepal.Length Sepal.Width
3 9
4 3
5 3
3 4
8
浏览 20提问于2020-05-01得票数 0
我想用蓝色的背景来渲染数据表。但是，当使用“box()”的背景颜色更新代码时，由于白色的原因，文本不能显示。我想要将数据表的文本颜色改为黑色。我不知道如何编写文本颜色的代码。 下面是代码： library(shiny)
library(shinydashboard)
library(dbplyr)
library(DT)
data <- data.frame("iris")
ui <- shinyUI(
dashboardPage(
dashboardHeader(title = "Uptime"),
dashboardSi
浏览 20提问于2019-09-17得票数 1
回答已采纳
我正在尝试制作一个漂亮的应用程序，它可以显示一个数据表(使用DT::renderDataTable)，该数据表可以显示评论和他们的情绪。当sentiment列( sent_score )显示“积极”时，我希望sent_score的单元格突出显示为绿色。当它显示“否定”时，我希望该单元格突出显示为红色。
如果可能的话，我也想知道是否有一种方法可以根据sent_score是正数还是负数来使整行变绿或变红。
下面是仪表板代码的简化版本。我认为问题出在代码的output$comments部分。谢谢你的帮助！！
#Read in packages
library(readxl)
library(t
浏览 126提问于2018-12-07得票数 0
使用R Shiny和DT :可以轻松地交互地突出显示/取消突出显示单元格吗？ 我一直在查看DT input$dt_cell_clicked以捕获所单击的行和列。然后，我计划将该值存储在另一列中，以便有条件地突出显示该值(TRUE/FALSE)。 我的问题是:一个人可以用另一个选项/功能做得更好+更快吗？ library(shiny)
library(shinyjs)
library(dplyr)
library(DT)
options(DT.options = list(pageLength = 5))
df = as.data.frame(
cbind(
浏览 12提问于2019-05-17得票数 2
我有一个闪亮的应用程序，输出一个数据表。我希望数据表中与selectInput选取器对应的行突出显示为绿色(即，当选择'C‘时，整个行将显示为绿色-与其他选项相同)。有人能告诉我我会怎么做吗？ library(shiny)
dat <- data.frame(grp = c("A", "B", "C"),
val = 1:3)
ui <- fluidPage(
selectizeInput("grp", "Select Group", choices
浏览 17提问于2021-03-25得票数 0
回答已采纳
我想和styleColorBar做行比较。在这个示例中，我想逐行比较Sepal.Length和Sepal.Width。
app.R
library(shiny)
library(DT)
shinyApp(
ui = fluidPage(DT::dataTableOutput("table")),
server = function(input, output) {
iris2 <- iris[c(1:10),c(1,2)]
observe({
output$table <- DT::renderDataT
浏览 0提问于2020-03-15得票数 0
回答已采纳
1回答
我正在尝试根据单元格的内容在R闪亮的应用程序中格式化表格单元格的背景色。内容为TRUE或FALSE，并使用布尔函数分配。styleEqual()不是格式化单元格的正确方式吗？以下内容将运行，但我的单元格仍未着色。
output$myTable <-
DT::renderDataTable({
result<-custom_function()
result<-
datatable(result)%>% formatStyle(
names(result),
backgro
浏览 0提问于2018-05-04得票数 4
回答已采纳
1回答
我想在Shiny DT数据表中隐藏列过滤器，但我不能：
以下是我的做法：
library(shiny)
library(DT)
ui <- fluidPage(
tags$style("#mydatatable thead > tr:nth-child(2) {display:none;}"),
mainPanel(
dataTableOutput("mydatatable")
)
)
server <- function(input, output) {
output$mydatatable <- D
浏览 0提问于2019-11-05得票数 0
回答已采纳
我试图根据R闪亮数据表的值更改它们的单元格颜色。例如，我创建了以下应用程序：
# ui.R
fluidPage(
# Outputting data table.
DT::dataTableOutput("table")
)
# server.R
library(DT)
data(iris)
function(input, output) {
# Rendering data table.
output$table <- DT::renderDataTable({
head(iris)
},
options = list(dom
浏览 3提问于2018-04-03得票数 5
回答已采纳
1回答
我试着给符合特定条件的细胞着色。例如，我想给值等于数据第一行的相应列值的单元格着色。我想到了如何使用javascript对特定的值进行着色，但不知道如何将条件设置为我想要的。下面是代码：
library(DT)
df <- head(iris)
df %>%
datatable %>%
formatStyle(1:2, color = JS("value % 1 === 0 ? 'red' : ''"))
在此表中，突出显示的单元格的值与数据的第一行列的值相匹配。我想设置javascript条件，这样它将突出显示在图
浏览 0提问于2021-08-02得票数 2
回答已采纳
我知道我可以在shiny中对datatable使用条件格式，但它似乎是基于指定列的。如果行中的任何地方满足条件，是否有方法突出显示行？
到目前为止，我已经使用了()：
library(DT)
options(DT.options = list(pageLength = 5))
df = as.data.frame(cbind(matrix(round(rnorm(50), 3), 10), sample(0:1, 10, TRUE)))
datatable(df) %>% formatStyle(
'V6',
target = 'row',
浏览 2提问于2019-07-13得票数 2
我想把我的数据表放在我闪亮的仪表板上的一个盒子里。我将框的背景颜色设置为绿色。但是，我发现我的数据表内容没有显示在框中。有人知道如何解决这个问题吗？谢谢。 library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "example"),
dashboardSidebar(),
dashboardBody(
box(width=6, background = 'green',
DT
浏览 16提问于2020-05-01得票数 0
回答已采纳
我正在构建一个有时间线和数据表的闪亮的应用程序。我想要发生的是，当用户单击时间线中的某一项时，表中的相应数据将被高亮显示。
我已经想出了解决这个问题的办法，但这似乎很麻烦，R给了我警告信息。基本上，我所做的是在数据表中创建一个标志，如果选择了该项，则为1，如果不是，则根据该标志格式化行。当我创建" selected“字段时，我会收到一个警告，因为最初没有选择任何内容，而且变体不喜欢input$timeline_selected为NULL这一事实。另外，由于某种原因，当我试图将rownames = FALSE参数添加到datatable时，表中的所有数据都会被过滤掉(不确定那里发生了什么
浏览 0提问于2018-03-08得票数 1
回答已采纳
我在Shiny中创建了一个数据表，它使用DT根据一组隐藏列中的值设置值的样式。该表显示了一家公司的部门是否达到了电话和电子邮件的目标。 问题是，当我隐藏列时(使用columnDefs = list(list(targets = c(4, 5), visible = FALSE)))，我不能再在datatable()调用下使用rownames = FALSE：表显示时没有数据。有人知道如何让这两个选项协同工作吗？ 我使用了以下文章： https://rstudio.github.io/DT/010-style.html How do I suppress row names when usin
浏览 28提问于2019-02-26得票数 3
回答已采纳
2回答
根据第2列中的数据，我试图对表格的每一行进行颜色编码。见下图。
基本上，为了给你一个例子，代码需要依赖于第二列，所以如果上面写的是撒哈拉以南非洲，那就把整排画成一种特定的颜色，拉丁美洲和加勒比的颜色一样，但是颜色不同。在“区域”列的右侧还有几个其他列。我想我可能需要一些dataTable函数中的if语句，如下所示，但是如果能提供任何帮助，我们将不胜感激。
output$Composite <- renderDataTable(datatable(FVI_DATA_COMPOSITE,
浏览 0提问于2017-06-01得票数 2
回答已采纳
条件格式数据表R闪亮(多种条件和格式)
下面回答了如何突出显示每行的最大值的问题：
我不仅要高亮显示每个列的最大值(绿色)和最小值(红色)，还希望使这些单元格>该列的中位数以粗体显示。我该怎么做呢？
下面的代码来自链接的问题，适合我的需要。但不幸的是没起作用。
library(shinydashboard)
library(DT)
library(magrittr)
entity <- c('entity1', 'entity2', 'entity3')
value1 <- c(21000, 23400, 26800)
val
浏览 0提问于2018-06-20得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
