Hey，我帮你梳理下可能的问题和解决办法——看起来你遇到的大概率是数据列名不匹配的问题，咱们一步步来：

1. 先修正加权平均的计算代码 #

你原来的ddply代码里，summarize部分没有给加权平均的结果指定列名，这会导致生成的数据集里，销售额列的名字是weighted.mean(sales, w = size)而不是你以为的Sales。这直接导致后面plotly代码里regionsales$Sales找不到对应的变量！

修正后的计算代码应该是这样的：

library(plyr)
# 给加权平均结果指定列名为Sales
regionsales <- ddply(d, ~Region, summarize, Sales = weighted.mean(sales, w = size))

运行这段代码后，regionsales就会有你预期的Region和Sales两列了。

2. 修复并优化plotly绘图代码 #

接下来用修正后的数据集绘图，我还加了一些常见的优化（比如坐标轴标题、图表标题、柱子颜色），让图表更清晰：

library(plotly)

# 把Region转成因子类型，让x轴的区域编号显示更规整（如果原本是数值型也可以跳过这步）
regionsales$Region <- as.factor(regionsales$Region)

# 绘制柱状图
p <- plot_ly(
  data = regionsales,
  x = ~Region,
  y = ~Sales,
  name = "加权平均销售额",
  type = "bar",
  marker = list(color = 'rgb(55, 83, 109)') # 可选：自定义柱子颜色
) %>%
  layout(
    title = "各区域加权平均销售额",
    xaxis = list(title = "区域编号"),
    yaxis = list(title = "加权平均销售额")
  )

# 展示图表
p

额外排查点（如果还是有问题） #

如果运行后还是报错，可以先做这几步检查：

• 运行str(regionsales)，确认数据集里确实有Region和Sales两列，且Sales是数值型
• 运行summary(regionsales$Sales)，检查有没有缺失值或者异常值
• 要是plotly加载有问题，先重装包：install.packages("plotly")再重新加载library(plotly)

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