How to generate buy sell trading signals using ggplot in r?

1
2

install.packages("ggplot2")
install.packages("quantmod")

1
2

library(ggplot2)
library(quantmod)

1
2
3
4
5
6
7
8

# Specify the stock symbol and the date range
stock_symbol <- "AAPL"
start_date <- as.Date("2020-01-01")
end_date <- Sys.Date()

# Get the stock data using quantmod
getSymbols(stock_symbol, from = start_date, to = end_date)
stock_data <- get(stock_symbol)[, c("Open", "High", "Low", "Close")]

1
2
3
4
5
6
7
8

# Calculate simple moving average (SMA) for 20 days and 50 days
sma_20 <- SMA(Cl(stock_data), n = 20)
sma_50 <- SMA(Cl(stock_data), n = 50)

# Calculate the buy and sell signals
buy_signal <- ifelse(sma_20 > sma_50, 1, 0)
sell_signal <- ifelse(sma_20 < sma_50, -1, 0)
signals <- buy_signal + sell_signal

1

stock_data_with_signals <- cbind(stock_data, signals)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19

# Create a new column for x-axis (date)
stock_data_with_signals$date <- index(stock_data_with_signals)

# Plot the stock data
ggplot() +
  geom_line(data = stock_data_with_signals, aes(x = date, y = Close), color = "blue") +
  
  # Add buy signals
  geom_point(data = stock_data_with_signals[stock_data_with_signals$signals == 1, ], aes(x = date, y = Low), color = "green", shape = 17) +
  
  # Add sell signals
  geom_point(data = stock_data_with_signals[stock_data_with_signals$signals == -1, ], aes(x = date, y = High), color = "red", shape = 8) +
  
  # Set x-axis and y-axis labels
  xlab("Date") +
  ylab("Stock Price") +
  
  # Add a title
  ggtitle(paste("Stock Price with Buy/Sell Signals for", stock_symbol))