见鬼，我买了标普500指数历史性的盘中价格（1分钟到1小时）追溯到2005年，因为大多数股票图表包在2016年或2011年左右停止报告日内价格。我已经成功地导入了价格，并让R只读取市场时间，不包括盘前和盘后。存在两个问题。第一，我需要让图表不显示周六和周日。更大的问题是，情节不是显示烛台，而是酒吧，他们是非常难以阅读。我已经尝试通过增加大小（size = 4），但是条形重叠，仍然不是烛台。我怎样才能使这些显示为适当的烛台？谢谢

library(quantmod)
library(tidyquant)
library(tidyverse)
library(ggplot2)
library(readr)
library(ggforce)
library(dplyr)

dir <-  "E:/Stock Trading/Historical Data/SPY_qjrt28"
setwd(dir)

data <- read_csv("SPY_30min.txt", 
        col_names = FALSE)
               
names(data) <- tolower(c("DateTime", "Open", "High", "Low", "Close", "Volume"))
data

#clean the data
write_rds(data, "cleaned.rds")
read_rds("cleaned.rds")

spy30m <- read_rds("cleaned.rds")
firstwave <- filter(spy30m, datetime >= as.Date('2009-03-02'), datetime <= as.Date('2009-03-19'))

# adding more time objects to the dataset
data <- data %>%
  mutate(hour = hour(datetime),
         minute = minute(datetime),
         hms = as_hms(datetime))

# is the hour function working as expected? Yes!
data %>%
  select(datetime, hour) %>%
  sample_n(10)

# look at bins of observations at 30 minute intervals. Looks good!
data %>%
  group_by(hms) %>%
  summarise(count = n()) %>%
  arrange(hms) %>% 
  print(n=100)

# filter the dataset to only include the times during regular market hours
data_regularmkt <- data %>%
  # `filter` is the dplyr function that limits the number of observations in a data frame
  # `between` function takes 3 arguments: an object/variable, a lower bound value, and upper bound value
  filter(between(hms, as_hms("09:30:00"), as_hms("16:00:00")))

# look at it again
data_regularmkt %>%
  group_by(hms) %>%
  summarise(count = n()) %>%
  arrange(hms) %>% 
  print(n=100)

###########

firstwave <- filter(spy30m, datetime >= as.Date('2009-03-06'), datetime <= as.Date('2009-03-19'))

ggplot(firstwave, aes(x = datetime, y = close)) +
  geom_candlestick(aes(open = open, high = high, low = low, close = close, size = 3))