R语言quantstrat跨标的策略：QQQ生成信号，QLD执行买卖

Absolutely you can implement this in quantstrat—this is a typical scenario for signal-driven cross-asset trading. Since you already have a QQQ-based strategy built, the core adjustment is separating signal generation (using QQQ data) from trade execution (using QLD prices). Here's a detailed, actionable breakdown:

Step 1: Prep Your Data & Environment #

First, make sure you have both QQQ and QLD price data loaded, and their timelines are perfectly aligned (critical to avoid signal-price misalignment).

library(quantstrat)
library(blotter)

# Load QQQ and QLD data (adjust date range as needed)
getSymbols("QQQ", from = "2020-01-01", to = "2023-12-31")
getSymbols("QLD", from = "2020-01-01", to = "2023-12-31")

# Align timestamps to ensure signals and trade prices match
QQQ <- QQQ[index(QLD)]
QLD <- QLD[index(QQQ)]

# Reset quantstrat/blotter environments to avoid conflicts
rm(list = ls(.blotter), envir = .blotter)
rm(list = ls(.quantstrat), envir = .quantstrat)

# Initialize core framework components
initDate <- "2019-12-31"
currency("USD")
stock(c("QQQ", "QLD"), currency = "USD", multiplier = 1)

# Set up account/portfolio (only QLD needs to be in the portfolio since we trade it)
initAcct("CrossAssetAcct", portfolios = "CrossAssetPort", initDate = initDate, initEq = 100000)
initPortf("CrossAssetPort", symbols = c("QLD"), initDate = initDate)
initOrders(portfolio = "CrossAssetPort", initDate = initDate)

Step 2: Build Your Strategy (Signal on QQQ, Execute on QLD) #

Create your strategy, then add indicators/signals using QQQ data, and tie those signals to trade rules that execute on QLD.

Add Indicators & Signals (QQQ-Based) #

Use your existing QQQ strategy's logic here—for example, a simple RSI-based signal:

# Create strategy object
strategy("QQQ_Signal_QLD_Trade", store = TRUE)

# Add RSI indicator using QQQ's closing price
add.indicator(strategy = "QQQ_Signal_QLD_Trade",
              name = "RSI",
              arguments = list(price = quote(Cl(QQQ)), n = 14),
              label = "QQQ_RSI")

# Add buy signal: RSI crosses below 30
add.signal(strategy = "QQQ_Signal_QLD_Trade",
           name = "sigThreshold",
           arguments = list(column = "QQQ_RSI", threshold = 30,
                            relationship = "lt", cross = TRUE),
           label = "Buy_Signal")

# Add sell signal: RSI crosses above 70
add.signal(strategy = "QQQ_Signal_QLD_Trade",
           name = "sigThreshold",
           arguments = list(column = "QQQ_RSI", threshold = 70,
                            relationship = "gt", cross = TRUE),
           label = "Sell_Signal")

Add Trade Rules (Execute on QLD) #

This is the key part: explicitly tell quantstrat to trade QLD when QQQ's signals fire, using the instrument parameter in your rules.

# Buy QLD when QQQ triggers a buy signal
add.rule(strategy = "QQQ_Signal_QLD_Trade",
         name = "ruleSignal",
         arguments = list(sigcol = "Buy_Signal", sigval = TRUE,
                          orderqty = 100,  # Adjust quantity as needed
                          ordertype = "market",
                          orderside = "long",
                          instrument = "QLD",  # Critical: target QLD for execution
                          pricemethod = "market",
                          replace = FALSE),
         type = "enter")

# Sell all QLD holdings when QQQ triggers a sell signal
add.rule(strategy = "QQQ_Signal_QLD_Trade",
         name = "ruleSignal",
         arguments = list(sigcol = "Sell_Signal", sigval = TRUE,
                          orderqty = "all",
                          ordertype = "market",
                          orderside = "long",
                          instrument = "QLD",
                          pricemethod = "market",
                          replace = FALSE),
         type = "exit")

Step 3: Run the Backtest & Validate Results #

Execute the strategy, update your portfolio/account, and verify that QLD trades are tied to QQQ's signals.

# Apply the strategy to your portfolio
applyStrategy(strategy = "QQQ_Signal_QLD_Trade", portfolios = "CrossAssetPort")

# Update portfolio/account metrics
updatePortf("CrossAssetPort")
updateAcct("CrossAssetAcct")
updateEndEq("CrossAssetAcct")

# Check trade results
getPortfolio("CrossAssetPort")$summary
getAccount("CrossAssetAcct")$summary

# Visualize QLD's position history to confirm signal alignment
chart.Posn("CrossAssetPort", "QLD")

Key Notes & Troubleshooting #

• Time Alignment: Always ensure QQQ and QLD data share identical timestamps. If one has missing dates, use na.locf() or merge() to fill gaps.
• Dynamic Position Sizing: Instead of fixed orderqty, use account equity to size positions (e.g., orderqty = quote(0.1 * getEndEq("CrossAssetAcct", Date = currentDate)) / Cl(QLD) for 10% of equity).
• Limit/Stop Orders: For non-market orders, reference QLD's price (e.g., pricemethod = quote(Cl(QLD) * 0.98) for a limit buy 2% below close).

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