使用绘图软件包在R中的同一图中绘制两个图形

Question

如何在同一窗口中绘制两个图形？

library(shiny) 

library(plotly) 

shinyServer(function(input, output) { 
today <- Sys.Date() 
tm1 <- c(2,3,5,7,9) 
tm2 <- c(3,4,6,8,9) 
x1 <- today + tm1 
x2 <- today + tm2 
y1 <- rnorm(length(x1)) 
y2 <- rnorm(length(x2)) 
output$p <- renderPlot(plot_ly(x = ~x1, y = ~y1, text = paste(tm1), mode = 'markers')) 
output$p1 <- renderPlot (plot_ly(x = ~x1, y = ~y2,text = paste(tm2, "days today"), mode = 'markers', color = '4')) 

}) 

Answer 1

我认为你应该使用subplots来实现你的目标。他们进行了说明：https://plot.ly/r/subplots/

第一个例子中的代码是：

library(plotly) 
p1 <- plot_ly(economics, x = ~date, y = ~unemploy) %>% 
    add_lines(name = ~"unemploy") 
p2 <- plot_ly(economics, x = ~date, y = ~uempmed) %>% 
    add_lines(name = ~"uempmed") 
p <- subplot(p1, p2) 

# Create a shareable link to your chart 
# Set up API credentials: https://plot.ly/r/getting-started 
chart_link <- plotly_POST(p, filename = "subplot/basic") 
chart_link 

希望它可以帮助:-)