将图元添加到R中的现有绘图中

我刚刚开始使用plotly，但我还不能做像向现有绘图添加对象这样简单的事情。如何将线段添加到现有的空绘图中

我已经试过了，但是每次调用

add\u segment

都会创建一个只有一个段的新绘图：

p<-plot_ly()
add_segment(p,x=0,y=1,x=5,y=1)
add_segment(p,x=0,y=4,x=5,y=4)

---

p答案：使用
%%>%
操作符，如下所示：

p <- plot_ly(data, x = ~x)
p <- p %>% add_trace(y = ~trace_0, name = 'trace 0',mode = 'lines')
p

library(ggplot2)
g <- ggplot(diamonds, aes(x=carat, y=price, color=cut)) + geom_point()
g <- g + geom_smooth()
g

逐步使用
%>%
：

library(plotly)

set.seed(1)
trace_0 <- rnorm(100, mean = 5)
trace_1 <- rnorm(100, mean = 0)
trace_2 <- rnorm(100, mean = -5)
x <- c(1:100)

data <- data.frame(x, trace_0, trace_1, trace_2)

p <- plot_ly(data, x = ~x) %>%
  add_trace(y = ~trace_0, name = 'trace 0',mode = 'lines') %>%
  add_trace(y = ~trace_1, name = 'trace 1', mode = 'lines+markers') %>%
  add_trace(y = ~trace_2, name = 'trace 2', mode = 'markers')
p

# step 1
p <- plot_ly(data, x = ~x)

# plot
p

# step 1
p <- plot_ly(data, x = ~x)

# step 2
p <- p %>% add_trace(y = ~trace_0, name = 'trace 0',mode = 'lines')

# plot
p

# step 1
p <- plot_ly(data, x = ~x)

# step 2
p <- p %>% add_trace(y = ~trace_0, name = 'trace 0',mode = 'lines')

# step 3
p <- p %>% add_trace(y = ~trace_1, name = 'trace 1', mode = 'lines+markers')

# step 4
p <- p %>% add_trace(y = ~trace_2, name = 'trace 2', mode = 'markers')

# plot
p

# step 1
p <- plot_ly(data, x = ~x)

# step 2
p <- p + add_trace(y = ~trace_0, name = 'trace 0',mode = 'lines')

编码步骤1:

library(plotly)

set.seed(1)
trace_0 <- rnorm(100, mean = 5)
trace_1 <- rnorm(100, mean = 0)
trace_2 <- rnorm(100, mean = -5)
x <- c(1:100)

data <- data.frame(x, trace_0, trace_1, trace_2)

p <- plot_ly(data, x = ~x) %>%
  add_trace(y = ~trace_0, name = 'trace 0',mode = 'lines') %>%
  add_trace(y = ~trace_1, name = 'trace 1', mode = 'lines+markers') %>%
  add_trace(y = ~trace_2, name = 'trace 2', mode = 'markers')
p

# step 1
p <- plot_ly(data, x = ~x)

# plot
p

# step 1
p <- plot_ly(data, x = ~x)

# step 2
p <- p %>% add_trace(y = ~trace_0, name = 'trace 0',mode = 'lines')

# plot
p

# step 1
p <- plot_ly(data, x = ~x)

# step 2
p <- p %>% add_trace(y = ~trace_0, name = 'trace 0',mode = 'lines')

# step 3
p <- p %>% add_trace(y = ~trace_1, name = 'trace 1', mode = 'lines+markers')

# step 4
p <- p %>% add_trace(y = ~trace_2, name = 'trace 2', mode = 'markers')

# plot
p

# step 1
p <- plot_ly(data, x = ~x)

# step 2
p <- p + add_trace(y = ~trace_0, name = 'trace 0',mode = 'lines')

+
方法不适用于plotly，但：

代码：

library(plotly)

set.seed(1)
trace_0 <- rnorm(100, mean = 5)
trace_1 <- rnorm(100, mean = 0)
trace_2 <- rnorm(100, mean = -5)
x <- c(1:100)

data <- data.frame(x, trace_0, trace_1, trace_2)

p <- plot_ly(data, x = ~x) %>%
  add_trace(y = ~trace_0, name = 'trace 0',mode = 'lines') %>%
  add_trace(y = ~trace_1, name = 'trace 1', mode = 'lines+markers') %>%
  add_trace(y = ~trace_2, name = 'trace 2', mode = 'markers')
p

# step 1
p <- plot_ly(data, x = ~x)

# plot
p

# step 1
p <- plot_ly(data, x = ~x)

# step 2
p <- p %>% add_trace(y = ~trace_0, name = 'trace 0',mode = 'lines')

# plot
p

# step 1
p <- plot_ly(data, x = ~x)

# step 2
p <- p %>% add_trace(y = ~trace_0, name = 'trace 0',mode = 'lines')

# step 3
p <- p %>% add_trace(y = ~trace_1, name = 'trace 1', mode = 'lines+markers')

# step 4
p <- p %>% add_trace(y = ~trace_2, name = 'trace 2', mode = 'markers')

# plot
p

# step 1
p <- plot_ly(data, x = ~x)

# step 2
p <- p + add_trace(y = ~trace_0, name = 'trace 0',mode = 'lines')

#步骤1
p我不太明白有什么区别，从技术上讲，管道操作员不应该使
函数（x）
与
x%>%function（）相同。
？我将尝试使用add_trace来检查，谢谢！现在只能打电话，但我明天会回来查看更多详细信息。try:p然后：p%>%add_trace（y=~trace_0，name='trace 0'，mode='lines'）有没有不使用管道就添加元素的方法？