闪亮:如何使用Ploly在长方体上添加一条中线? [英] Shiny: How to add a median line on a box plot using Plotly?
本文介绍了闪亮:如何使用Ploly在长方体上添加一条中线?的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我用闪亮的网络应用程序做这个项目。
我想在我的框图上添加中线的痕迹。
这是我的代码
library(shiny)
library(plotly)
ui <- fluidPage(
mainPanel(
plotlyOutput("distPlot")
)
)
server <- function(input, output) {
output$distPlot <- renderPlotly({
date <- c("1990-01-13",
"1990-01-13",
"1990-01-13",
"1990-01-13",
"1990-01-13",
"1990-01-13",
"1990-01-13",
"1990-01-14",
"1990-01-14",
"1990-01-14",
"1990-01-14",
"1990-01-14",
"1990-01-14",
"1990-01-14",
"1990-01-15",
"1990-01-15",
"1990-01-16",
"1990-01-16",
"1990-01-16",
"1990-01-16",
"1990-01-16",
"1990-01-16",
"1990-01-17",
"1990-01-17",
"1990-01-17",
"1990-01-18",
"1990-01-18",
"1990-01-18",
"1990-01-18",
"1990-01-18",
"1990-01-18",
"1990-01-19",
"1990-01-19",
"1990-01-19",
"1990-01-19"
)
trend <- c("9.5",
"6.2",
"3.3",
"3.6",
"6.1",
"0.6",
"2.3",
"2.3",
"4.7",
"9.9",
"12",
"4.6",
"4.5",
"8",
"2.3",
"3.4",
"7.7",
"1.9",
"2",
"10.1",
"3.3",
"4.7",
"6.5",
"3.9",
"4.4",
"5.2",
"8.1",
"3.2",
"6.3",
"4.4",
"2.4",
"0.5",
"7.2",
"8.1",
"5.9"
)
mydata <- data.frame(trend ,date())
p <- plot_ly(mydata,x=date,y = trend , type = "box",showlegend = FALSE)%>%
layout(yaxis = list(title = 'trend')
)
p
})
}
# Run the application
shinyApp(ui = ui, server = server)
其实我是从CSV文件导入数据(趋势和日期),但我不知道如何在StackOverflow中上传文件,所以我觉得创建数据框更适合复制。
在我的预期中。
我的情节
[重新创建以进行复制]
我在数据中使用Aggregate时出现这种情况
推荐答案
请检查以下各项:
library(shiny)
library(plotly)
mydata <- data.frame(trend = c(9.5, 6.2, 3.3, 3.6, 6.1, 0.6, 2.3, 2.3, 4.7, 9.9, 12, 4.6, 4.5, 8, 2.3, 3.4, 7.7, 1.9, 2, 10.1, 3.3, 4.7, 6.5, 3.9, 4.4, 5.2, 8.1, 3.2, 6.3, 4.4, 2.4, 0.5, 7.2, 8.1, 5.9),
date = c("1990-01-13", "1990-01-13", "1990-01-13", "1990-01-13", "1990-01-13", "1990-01-13", "1990-01-13", "1990-01-14", "1990-01-14", "1990-01-14", "1990-01-14", "1990-01-14", "1990-01-14", "1990-01-14", "1990-01-15", "1990-01-15", "1990-01-16", "1990-01-16", "1990-01-16", "1990-01-16", "1990-01-16", "1990-01-16", "1990-01-17", "1990-01-17", "1990-01-17", "1990-01-18", "1990-01-18", "1990-01-18", "1990-01-18", "1990-01-18", "1990-01-18", "1990-01-19", "1990-01-19", "1990-01-19", "1990-01-19"))
mymediandata <- aggregate(trend ~ date, data = mydata, median)
ui <- fluidPage(mainPanel(plotlyOutput("distPlot")))
server <- function(input, output) {
output$distPlot <- renderPlotly({
p <-
plot_ly(
mydata,
x = ~ date,
y = ~ trend,
type = "box",
showlegend = FALSE
) %>% add_lines(data = mymediandata, x = ~ date, y = ~ trend) %>%
layout(yaxis = list(title = 'trend'))
p
})
}
# Run the application
shinyApp(ui = ui, server = server)
这篇关于闪亮:如何使用Ploly在长方体上添加一条中线?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文