Plotly栅格图像绘制技术求助：代码实现与输出问题

我看了你提供的代码，问题大概率出在Plotly坐标轴的配置上——默认的坐标轴范围和显示设置会导致栅格图像无法正常显示或者位置偏移。下面是针对你代码的修正方案，以及关键细节的解释：

第一步：确保加载必要的包 #

你用到的raster2uri()函数来自htmltools包，所以需要先加载它，否则会出现函数找不到的报错：

library(plotly)
library(htmltools)

第二步：修正Plotly布局配置 #

原代码的核心问题是没有限定坐标轴范围，也没有隐藏不必要的坐标轴元素。调整后的代码如下：

# 生成栅格数据（这部分你的代码没问题）
m <- matrix(hcl(0, 80, seq(50, 80, 10)), nrow = 4, ncol = 5)
r <- as.raster(m)

# 修正后的Plotly绘图代码
plot_ly() %>% 
  layout(
    images = list(
      source = raster2uri(r),
      xref = "x",
      yref = "y",
      x = 0,
      y = 0,
      sizex = 1,
      sizey = 1,
      sizing = "stretch",
      xanchor = "left",
      yanchor = "bottom"
    ),
    # 设置坐标轴范围为0-1，匹配图像的尺寸比例
    xaxis = list(
      range = c(0, 1),
      showticklabels = FALSE, # 隐藏刻度标签
      showgrid = FALSE,       # 隐藏网格线
      zeroline = FALSE        # 隐藏零线
    ),
    yaxis = list(
      range = c(0, 1),
      showticklabels = FALSE,
      showgrid = FALSE,
      zeroline = FALSE
    )
  )

关键细节说明 #

1. 坐标轴范围：把x和y轴的范围都设为c(0,1)，这样你的栅格图像（尺寸设为sizex=1、sizey=1）就能刚好填满整个绘图区域，不会被压缩或者截断。
2. 隐藏坐标轴元素：因为我们只需要显示栅格图像，所以把坐标轴的刻度、网格线都隐藏掉，让视觉效果更接近base R的plot(r)输出。
3. y轴方向匹配：Plotly默认y轴是向上递增的，所以设置y=0和yanchor="bottom"会让图像的底部对齐y轴起点，和base R的显示方向完全一致。如果你的图像出现上下颠倒的情况，只需要把y改成1，yanchor改成"top"即可。

运行这段代码后，你应该能得到和plot(r)一致的栅格图像——4行5列的红色系色块，充满整个Plotly绘图窗口。

内容的提问来源于stack exchange，提问作者Ameya