关于R语言stockPortfolio库无法安装及状态的技术问询

首先直接给你结论：stockPortfolio确实已经从CRAN上移除了，核心原因就是你怀疑的Yahoo Finance旧API停用问题。

这个包的核心功能依赖Yahoo Finance的API来抓取股票价格数据，2023年Yahoo关闭了旧版的免费API接口后，stockPortfolio的维护者没有及时更新代码适配新的数据源或者API，导致包的核心功能完全失效。按照CRAN的规则，无法正常工作的包会被下架，这就是你运行library(stockPortfolio)时出现Error in library(stockPortfolio) : there is no package called ‘stockPortfolio’报错的原因。

接下来，针对你想要运行的有效前沿绘制代码，给你几个可行的替代方案：

1. 替代包推荐 #

可以选择这些维护活跃、功能更完善的投资组合分析包：

• tidyquant：整合了多种数据源（包括Alpha Vantage、雅虎新API接口等），能方便获取股票数据，同时支持tidyverse风格的代码
• PortfolioAnalytics：专门用于投资组合优化、有效前沿计算的包，功能覆盖风险、收益的多种指标
• fPortfolio：经典的投资组合分析工具，支持有效前沿、均值-方差优化等

2. 适配原代码的核心思路 #

原代码的核心是获取股票数据→计算收益率与协方差→生成有效前沿→绘图，你可以用替代包重新实现这个流程，这里给你一个简化的示例：

# 安装并加载所需包
install.packages(c("tidyquant", "PortfolioAnalytics", "ggplot2"))
library(tidyquant)
library(PortfolioAnalytics)
library(ggplot2)

# 选择要分析的股票标的
target_stocks <- c("AAPL", "MSFT", "AMZN")

# 获取股票调整后收盘价数据
stock_prices <- tq_get(target_stocks, 
                       from = "2020-01-01", 
                       to = "2024-06-01") %>%
  select(symbol, date, adjusted) %>%
  pivot_wider(names_from = symbol, values_from = adjusted)

# 计算日对数收益率
daily_returns <- stock_prices %>%
  select(-date) %>%
  tq_transmute(select = everything(), 
               mutate_fun = periodReturn, 
               period = "daily", 
               type = "log")

# 定义投资组合约束与目标
portfolio_spec <- portfolio.spec(assets = colnames(daily_returns))
# 约束：全投资（资金全部投入）
portfolio_spec <- add.constraint(portfolio_spec, type = "full_investment")
# 约束：仅做多（不允许卖空）
portfolio_spec <- add.constraint(portfolio_spec, type = "long_only")
# 目标：最小化风险（方差）、最大化收益（均值）
portfolio_spec <- add.objective(portfolio_spec, type = "risk", name = "var")
portfolio_spec <- add.objective(portfolio_spec, type = "return", name = "mean")

# 生成有效前沿（20个不同风险-收益组合）
efficient_frontier <- efficient.frontier(portfolio_spec, 
                                         returns = daily_returns, 
                                         n.portfolios = 20, 
                                         risk.measure = "StdDev")

# 绘制有效前沿图
ggplot(efficient_frontier, aes(x = StdDev, y = mean)) +
  geom_point(color = "#2c3e50", size = 2) +
  geom_line(color = "#e74c3c") +
  labs(x = "标准差（风险）", 
       y = "预期收益率", 
       title = "投资组合有效前沿") +
  theme_minimal()

这个示例实现了原代码的核心功能，而且用的都是目前维护活跃的包，不会因为API停用而失效。

另外，如果你一定要用原代码的逻辑，也可以尝试从CRAN的归档仓库下载旧版本的stockPortfolio包，但需要注意：旧版本依然依赖失效的Yahoo API，你需要手动修改包内的数据获取函数，替换成其他数据源（比如本地数据、Alpha Vantage等），这种方法比较麻烦，不推荐。

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