如何解决如何在RShiny破折号中以日期为x轴的情节拟合平滑线?
遇到一些尝试实现此问题的问题。我几乎有一个具有两个相关特征的数据集,一个值和一个日期(YYYY-MM-DD)。每个日期都有许多值,我想通过每个日期值的散点图的平均值(或中位数)拟合多项式LOB。日期存储为日期对象,值存储为浮点数。我也在RShiny仪表板上进行此操作。
我试过了,没有运气。
output$plot<- renderPlotly({
ggplot(df(),aes(x = date,y = value,text = paste('Headline: ',headline,'\n Author: ',author,'\n value: ',value))) +
geom_point(na.rm = TRUE) +
ggtitle('Overall Value') +
ylim(-1,1) +
stat_smooth()
})
我得到的只是一些输出,但是在图形上没有线条渲染。
`geom_smooth()` using method = 'loess' and formula 'y ~ x'
我尝试了其他几种方法,但是没有运气。有解决这个问题的更好方法吗?
解决方法
不知何故stat_smooth
不喜欢text
中的aes
,所以我不得不花些时间处理这些映射。请注意,使用ylim
代替coord_cartesian
会改变stat_smooth
的计算。
library(shiny)
library(ggplot2)
library(plotly)
headline = "test"
author = "starja"
value = "none"
set.seed(8)
test_data <- data.frame(date = rep(seq(as.Date("2000/1/1"),as.Date("2003/1/1"),by = "quarter"),each = 3),value = rnorm(39))
ui <- fluidPage(
plotlyOutput("test_plot")
)
server <- function(input,output,session) {
output$test_plot<- renderPlotly({
p <- ggplot() +
geom_point(data = test_data,mapping = aes(x = date,y = value,text = paste('Headline: ',headline,'\n Author: ',author,'\n value: ',value)),na.rm = TRUE) +
ggtitle('Overall Value') +
ylim(c(-1,1)) +
stat_smooth(aes(x = date,y = value),data = test_data)
ggplotly(p)
})
}
shinyApp(ui,server)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。