如何将_trace添加到从r中创建的ggplotly创建的绘图对象

发布于 2025-01-21 22:48:18 字数 2424 浏览 4 评论 0原文

我希望能够在绘图对象中添加新的线/跟踪。将使用ggplotly从ggplot对象创建此绘图对象。

我尝试了1。创建绘图对象和2。使用add_trace到绘图对象，但我无法生成图表。

我已经使用了ggplot2一段时间了，但是是新的绘制/ggplotly。

请感谢任何帮助。

library(ggplot2)
library(plotly)

structure(list(Date = structure(c(1646697600, 1646784000, 1646870400, 
1646956800, 1647216000, 1647302400, 1647388800, 1647475200, 1647561600, 
1647820800, 1647907200, 1647993600, 1648080000, 1648166400, 1648425600, 
1648512000, 1648598400, 1648684800, 1648771200, 1649030400, 1649116800, 
1649203200, 1649289600, 1649376000, 1649635200, 1649721600, 1649808000, 
1649894400, 1649980800), class = c("POSIXct", "POSIXt"), tzone = "UTC"), 
    PolicyRate = c(0.125, 0.125, 0.125, 0.125, 0.125, 0.125, 
    0.375, 0.375, 0.375, 0.375, 0.375, 0.375, 0.375, 0.375, 0.375, 
    0.375, 0.375, 0.375, 0.375, 0.375, 0.375, 0.375, 0.375, 0.375, 
    0.375, 0.375, 0.375, 0.375, 0.375), USGG1y = c(1.0522, 1.096, 
    1.1063, 1.0907, 1.2092, 1.1937, 1.1989, 1.1911, 1.1755, 1.2477, 
    1.3147, 1.4839, 1.5409, 1.629, 1.6627, 1.647, 1.5951, 1.595, 
    1.6649, 1.6675, 1.7168, 1.7245, 1.6933, 1.7347, 1.7528, 1.6567, 
    1.6566, 1.6979, 1.6979), USGG2y = c(1.601, 1.682, 1.698, 
    1.75, 1.863, 1.852, 1.941, 1.917, 1.939, 2.118, 2.167, 2.099, 
    2.141, 2.273, 2.331, 2.368, 2.309, 2.337, 2.459, 2.424, 2.517, 
    2.473, 2.463, 2.516, 2.502, 2.407, 2.351, 2.456, 2.456), 
    USGG5y = c(1.778, 1.88, 1.925, 1.948, 2.092, 2.107, 2.182, 
    2.145, 2.144, 2.323, 2.4, 2.32, 2.399, 2.546, 2.558, 2.5, 
    2.44, 2.462, 2.56, 2.552, 2.697, 2.683, 2.709, 2.756, 2.791, 
    2.69, 2.654, 2.788, 2.788), USGG10y = c(1.848, 1.955, 1.99, 
    1.995, 2.135, 2.146, 2.188, 2.173, 2.152, 2.292, 2.384, 2.294, 
    2.374, 2.477, 2.461, 2.397, 2.352, 2.341, 2.385, 2.398, 2.549, 
    2.6, 2.66, 2.705, 2.782, 2.724, 2.702, 2.829, 2.829), USGG30y = c(2.229, 
    2.337, 2.369, 2.356, 2.473, 2.479, 2.455, 2.471, 2.423, 2.519, 
    2.603, 2.486, 2.541, 2.587, 2.542, 2.503, 2.477, 2.45, 2.434, 
    2.458, 2.574, 2.628, 2.681, 2.72, 2.811, 2.813, 2.814, 2.918, 
    2.918)), row.names = c(NA, -29L), class = "data.frame")

g <- data %>% ggplot() +
     geom_line(aes(x=Date, y=USGG2y))

g
p <- ggplotly(g)
p # works fine until here.

p1 <- p %>% add_trace(x=~Date, y=~USGG5y,yaxis = "y2", mode="lines+markers",type = "scatter")
#doesnt throw up any obvious error"

p1 #this one gives me a blank plotly chart"

原文

I want to be able to add a new line/trace to a plotly object. This plotly object will be created from a ggplot object using ggplotly.

I tried 1. creating the plotly object and 2. using add_trace to the plotly object, but I am unable to generate the chart.

I have used ggplot2 for a while now but am new to plotly/ggplotly.

Any help on this is appreciated please.

library(ggplot2)
library(plotly)

structure(list(Date = structure(c(1646697600, 1646784000, 1646870400, 
1646956800, 1647216000, 1647302400, 1647388800, 1647475200, 1647561600, 
1647820800, 1647907200, 1647993600, 1648080000, 1648166400, 1648425600, 
1648512000, 1648598400, 1648684800, 1648771200, 1649030400, 1649116800, 
1649203200, 1649289600, 1649376000, 1649635200, 1649721600, 1649808000, 
1649894400, 1649980800), class = c("POSIXct", "POSIXt"), tzone = "UTC"), 
    PolicyRate = c(0.125, 0.125, 0.125, 0.125, 0.125, 0.125, 
    0.375, 0.375, 0.375, 0.375, 0.375, 0.375, 0.375, 0.375, 0.375, 
    0.375, 0.375, 0.375, 0.375, 0.375, 0.375, 0.375, 0.375, 0.375, 
    0.375, 0.375, 0.375, 0.375, 0.375), USGG1y = c(1.0522, 1.096, 
    1.1063, 1.0907, 1.2092, 1.1937, 1.1989, 1.1911, 1.1755, 1.2477, 
    1.3147, 1.4839, 1.5409, 1.629, 1.6627, 1.647, 1.5951, 1.595, 
    1.6649, 1.6675, 1.7168, 1.7245, 1.6933, 1.7347, 1.7528, 1.6567, 
    1.6566, 1.6979, 1.6979), USGG2y = c(1.601, 1.682, 1.698, 
    1.75, 1.863, 1.852, 1.941, 1.917, 1.939, 2.118, 2.167, 2.099, 
    2.141, 2.273, 2.331, 2.368, 2.309, 2.337, 2.459, 2.424, 2.517, 
    2.473, 2.463, 2.516, 2.502, 2.407, 2.351, 2.456, 2.456), 
    USGG5y = c(1.778, 1.88, 1.925, 1.948, 2.092, 2.107, 2.182, 
    2.145, 2.144, 2.323, 2.4, 2.32, 2.399, 2.546, 2.558, 2.5, 
    2.44, 2.462, 2.56, 2.552, 2.697, 2.683, 2.709, 2.756, 2.791, 
    2.69, 2.654, 2.788, 2.788), USGG10y = c(1.848, 1.955, 1.99, 
    1.995, 2.135, 2.146, 2.188, 2.173, 2.152, 2.292, 2.384, 2.294, 
    2.374, 2.477, 2.461, 2.397, 2.352, 2.341, 2.385, 2.398, 2.549, 
    2.6, 2.66, 2.705, 2.782, 2.724, 2.702, 2.829, 2.829), USGG30y = c(2.229, 
    2.337, 2.369, 2.356, 2.473, 2.479, 2.455, 2.471, 2.423, 2.519, 
    2.603, 2.486, 2.541, 2.587, 2.542, 2.503, 2.477, 2.45, 2.434, 
    2.458, 2.574, 2.628, 2.681, 2.72, 2.811, 2.813, 2.814, 2.918, 
    2.918)), row.names = c(NA, -29L), class = "data.frame")

g <- data %>% ggplot() +
     geom_line(aes(x=Date, y=USGG2y))

g
p <- ggplotly(g)
p # works fine until here.

p1 <- p %>% add_trace(x=~Date, y=~USGG5y,yaxis = "y2", mode="lines+markers",type = "scatter")
#doesnt throw up any obvious error"

p1 #this one gives me a blank plotly chart"

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

久隐师 2025-01-28 22:48:18

这个花了一段时间。

Plotly的解释（或ggplot2的交付）被渲染好，好像日期是字符字段一样；轴刻度标签是字面标签。
该图不会呈现，因为它更多地显示了ggplot2而不是图形的图片。

前进的方式

更改x用于跟踪的数据到日期类型数据
更新轴以保存值，而不是标签
添加新跟踪，

有几种不同的方法可以实现这一目标。我只提供了一种方法。

创建ggplotly对象后，更新对象。最简单的方法是添加数据框中完全相同的数据。

p = ggplotly(g)
p[["x"]][["data"]][[1]][["x"]] <- data$Date # change the 'type'

使用轴，您可以更新对象或分配新设置。此方法分配了一些新设置。最后，添加新迹线。

p %>% layout(yaxis = list(range = c(0, 3), tickmode = "auto"),
             xaxis = list(range =  c(data$Date[1], data$Date[nrow(data)]),
                          tickformat = "%b %d", type = "date", 
                          tickmode = "auto")) %>% 
  add_lines(x = ~Date, y = ~USGG5y)

就是这样。关于我首先在这里做的事情的一些注释...

range设置下限和上限
tickmode有三个选项
- 使用标签
- 我将其更改为自动（忽略标签）
我将其更改为X轴的，range等同于min/max dates < em>在日期类型格式中
tickformat：
- ％b是缩写月份的D3编码
- ％d是本月的一天，没有填充（即3月1日的3月1日，3月1日对2月1日。）
- 两者之间有一个空间，因此轴上的一个月和一天之间有一个空间

This one took a while.

Plotly's interpretation (or ggplot2's delivery) was rendered as if the dates were character fields; the axis tick labels were literal labels.
The plot wouldn't render because it presented more of a picture of what ggplot2 created than a graph.

The way forward

change the x data for the trace to date type data
update the axes to hold values instead of labels
add the new trace

There are a few different ways that would work to accomplish this. I've only provided one method.

After creating your ggplotly object, update the object. The easiest way to do this is by adding the exact same data from your data frame.

p = ggplotly(g)
p[["x"]][["data"]][[1]][["x"]] <- data$Date # change the 'type'

With the axes, you could update the object or assign new settings. This method assigns some new settings. Lastly, add the new trace.

p %>% layout(yaxis = list(range = c(0, 3), tickmode = "auto"),
             xaxis = list(range =  c(data$Date[1], data$Date[nrow(data)]),
                          tickformat = "%b %d", type = "date", 
                          tickmode = "auto")) %>% 
  add_lines(x = ~Date, y = ~USGG5y)

That's it. A few notes on what I did here first...

range sets the lower and upper limit
tickmode has three options
- it is set toarray when you use labels
- I changed it to auto (the labels are ignored)
for the x-axis, that range equates to the min/max dates in date type format
tickformat:
- %b is d3 coding for the abbreviated month name
- %d is the day of the month without padding (i.e., Mar 1 versus Mar 01 for March 1st.)
- there's a space between the two, so that there's a space between the month and day on the axis