缩放次要y轴

Question

我是ggplotly和R的新手，我在最简单的问题上苦苦挣扎。我想放大辅助轴，以便突出数据。但是，简单的数学似乎并不起作用。

对数据进行平方和平方根。调整ylim

library(tidyr)
library(readxl)
library(ggplot2)
library(tidyverse)
library(plotly)
data = read_excel("./Input/VC_AV.xlsx")
data[,2:4] <- data[,2:4]/1000000
data[,5:7] <- data[,5:7]/100000
head(data)
data_clean = gather(data, "Scenario", "Value", -Time)
head(data_clean)
p <- data_clean  %>% 
  ggplot(aes(Time, y=Value, col=Scenario)) +
  geom_line(aes(linetype=Scenario)) +
  scale_y_continuous(sec.axis = sec_axis(~./scale, name = "Coastal Proximity Amenity Value (NZ$M)")) +
  labs(x="Time", y= ("Vulnerable Residential Capital(NZ$M)")) +
  theme_minimal() + 
  theme(legend.position="bottom") +
p
ggplotly(p)

我希望放大次要y轴以显示数据集中的差异，同时保持原始的左侧y轴。

enter image description here