Масштабирование вторичной оси Y - PullRequest
Новая
       10

Масштабирование вторичной оси Y

1 голос
/ 22 сентября 2019

Я новичок в 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описание изображения здесь

...