嵌入圖像：ggplot 到 plotly 日期問題

Question

我正在嘗試使用ggplotly將以下ggplot圖像轉換為plotly ：

library(tidyverse)
library(ggimage)
library(plotly)
df <- data.frame(date = 
                   as.Date(c("01/01/1998", "10/01/1998", "15/01/1998", 
                             "25/01/1998", "01/02/1998", "12/02/1998", "20/02/1998"), "%d/%m/%Y"),
                 counts = c(12, 10, 2, 24, 15, 1, 14),
                 image = c(NA, "https://www.r-project.org/logo/Rlogo.png", NA, NA, 
                           "https://www.r-project.org/logo/Rlogo.png", NA, NA))
df
#         date counts                                    image
# 1 1998-01-01     12                                     <NA>
# 2 1998-01-10     10 https://www.r-project.org/logo/Rlogo.png
# 3 1998-01-15      2                                     <NA>
# 4 1998-01-25     24                                     <NA>
# 5 1998-02-01     15 https://www.r-project.org/logo/Rlogo.png
# 6 1998-02-12      1                                     <NA>
# 7 1998-02-20     14                                     <NA>

gg <- ggplot(df, aes(date, counts)) + 
  geom_line() +
  geom_image(aes(image = image), size = 0.05)
gg

我不能使用 ggplotly 直接轉換它，因為geom_image沒有在plotly中實現：

ggplotly(gg, height = 700, width = 900)
# In geom2trace.default(dots[[1L]][[1L]], dots[[2L]][[1L]], dots[[3L]][[1L]]) :
#   geom_GeomImage() has yet to be implemented in plotly.
#   If you'd like to see this geom implemented,
#   Please open an issue with your example code at
#   https://github.com/ropensci/plotly/issues

我認為您需要通過刪除geom_image並在layout中添加圖像來以不同的方式 go 關於它。 我不知道如何通過（即df$image ）引用圖像的位置。

即使手動進行，我也無法在圖表上獲得一張圖像：

gg2 <- ggplot(df, aes(date, counts)) + 
  geom_line() 

ggplotly(gg2, height = 700, width = 900) %>% 
  layout(
    images = list(
      list(source = "https://www.r-project.org/logo/Rlogo.png",
           xref = "paper", #https://plotly.com/r/reference/
           yref = "paper",
           x = .2, #as.Date(c("10/01/1998"), "%d/%m/%Y"),
           y = .2,
           sizex = 0.1,
           sizey = 0.1,
           opacity = 0.8
      )))

該解決方案建議我需要以不同的日期格式工作，但我也無法讓它工作：

ggplotly(gg2, height = 700, width = 900) %>% 
  layout(
    images = list(
      list(source = "https://www.r-project.org/logo/Rlogo.png",
           xref = "x", #or paper
           yref = "y", #or paper
           x = as.numeric(as.POSIXct("10/01/1998", format = "%d/%m/%Y")), #or .3
           y = 10, #or .4
           sizex = 0.1,
           sizey = 0.1,
           opacity = 0.8
      )))

#or, reformat the x axis first
ggplotly(gg2, height = 700, width = 900) %>% 
  layout(xaxis = list(range = 
              c(as.numeric(as.POSIXct("01/01/1998", format="%d/%m/%Y"))*1000,
                as.numeric(as.POSIXct("20/02/1998", format="%d/%m/%Y"))*1000),
                type = "date"),
         images = list(
           list(source = "https://www.r-project.org/logo/Rlogo.png",
                xref = "x",
                yref = "y",
                x = as.numeric(as.POSIXct("10/01/1998", format="%d/%m/%Y"))*1000,
                y = 10,
                sizex = 0.1,
                sizey = 0.1,
                opacity = 0.8
           )))

#converting date from the outset using as.POSIXct doesn't help
#df$date <- as.numeric(as.POSIXct(df$date, format="%d/%m/%Y"))*1000

任何靈活的建議允許我參考我想要圖像的所有點？

謝謝

Answer 1

我不確定您的問題是日期問題，因為我無法使用layout.image在 plot 上獲取圖像，即使我使用1:7而不是日期，但我又不是 plotly 專家. 也就是說，我確信有幾種方法可以在不使用geom_image的情況下獲取 plot 上的圖像，這是一種不太干凈的方法 - 並且對於大數據幀可能效率低下 - 但它適用於 plotly：

library(ggplot2)
library(png)
library(RCurl)
library(plotly)
mydf <- data.frame(date = 
                   as.Date(c("01/01/1998", "10/01/1998", "15/01/1998", 
                             "25/01/1998", "01/02/1998", "12/02/1998", "20/02/1998"), "%d/%m/%Y"),
                 counts = c(12, 10, 2, 24, 15, 1, 14),
                 image = c(NA, "https://www.r-project.org/logo/Rlogo.png", NA, NA, 
                           "https://www.r-project.org/logo/Rlogo.png", NA, NA))
mydf

# You should find some way to compute your desired image height and image width
yHeight <- (max(mydf$counts) - min(mydf$counts)) * 0.05
xWidth <- (max(as.numeric(mydf$date)) - min(as.numeric(mydf$date))) * 0.05

# create the base plot
gg2 <- ggplot(mydf, aes(date, counts)) + 
  geom_line()

# for each row in the df
for (x in 1:nrow(mydf)) {
  row <- mydf[x, ]
  if(!is.na(row$image)){
    # read the image
    img <- readPNG(getURLContent(row$image))
    # add the image with annotation_raster
    gg2 <- gg2 + annotation_raster(img, 
                            xmin = as.numeric(row$date) - xWidth/2, 
                            xmax = as.numeric(row$date) + xWidth/2, 
                            ymin = row$counts - yHeight/2, 
                            ymax = row$counts + yHeight/2)
  }
}

ggplotly(gg2)