我用电子图表绘制了一个r的交互图。y轴为负值，导致水平x轴在零处绘制。如何将这条线移到底部（值为-100）？其次，如何在x轴上显示所有日期值（最好是天）（如下面的ggplot示例所示）

####################
# interactive plot #
####################

library(tidyverse)
library(lubridate)
library(echarts4r)

birthdate <-  ymd("1980-04-20")

timeline <- seq(ymd(Sys.Date()-14), (ymd(Sys.Date()+14)), by = "days")

t <- as.numeric(timeline - birthdate)

physical <-  sin(2*pi*t/23)*100

emotional <-  sin(2*pi*t/28)*100

intellectual <-  sin(2*pi*t/33)*100

df <- tibble(timeline,t, physical, emotional, intellectual)  

df <- df |> pivot_longer(cols = c('physical', 'emotional', 'intellectual'),
                         names_to = 'biorhythms',
                         values_to = 'value')

df$biorhythms <- as.factor(df$biorhythms)

# view data tibble
df

# interactive plot
df |> dplyr::group_by(biorhythms) %>% 
  e_charts(x = timeline) |> 
  e_line(value) |>
  e_format_y_axis(suffix = "%") |>
  e_mark_line(data = list(xAxis = Sys.Date()), title = "Today", symbol = 'none') |>
  e_title("Biorhythm Pseudo-Science") |>
  e_tooltip() |> 
  e_theme("dark-digerati")