我认为你离你的目标还很远：这里是一个起点：请注意，这些只是10天的数据，而您有超过3000天的数据！

library(quantmod)
library(zoo)
library(ggplot2)
library(dplyr)

test1=getSymbols("BTC-USD",auto.assign=F)
test2=dailyReturn(test1)
test3 <- test2%>%
    fortify.zoo()%>%
    mutate(dr=daily.returns*100)

test4 <- test3 %>% 
  slice(1:10) %>% 
  mutate(new = rep(1, 10))

  
  # Create plot
  ggplot(test4, aes(Index, new, fill = dr)) +
    geom_tile(color = "black", height = 1.6, width = 0.8) +
    scale_fill_gradient(low = "white", high = "red") +
    theme_void() +
    ylim(-2,2)+
    theme(axis.text.x = element_text(angle = 45, hjust = 1))+
    geom_text(aes(label = round(dr,1)), size = 3, color = "black")+
    scale_x_continuous(breaks = test4$Index, labels = format(test4$Index, "%Y-%m-%d"), 
                       expand = c(0.05, 0)) +
    theme(legend.position = "none",
          axis.ticks.x = element_blank(),
          axis.text.x = element_text(angle = 45, hjust = 1, vjust = 1),
          plot.margin = unit(c(8,0.5,1,1), "cm")) +
    ggtitle("dr by date")