R: построение двух осей Y с использованием scale_y_continuous (sec.axis) иordin_trans (log10)

Question

Я пытаюсь построить двухосный график;слева - фактические значения, а справа - значения в%.В дополнение к этому, мне нужно применитьordin_trans на левой оси Y для лучшей визуализации небольших значений.Однако, когда я делаю это, метки справа не отображаются.

Здесь данные ( пример )

Здесь код

DAXIS <- ggplot(x1, aes(hour, value_T, colour=season, linetype = variable)) +
  geom_line(size = 1) +
  scale_linetype_manual(c("var"), values=c("solid", "dashed", "dotted"))+ # here to change one name
  geom_point(aes(shape = season), size = 1)+
  labs(x = "hour", y = "T") +
  scale_x_continuous(breaks = c(0, 6, 12, 18, 23), labels= c(0, 6, 12, 18, 24))+
  scale_y_continuous("T",
                 sec.axis = sec_axis(~./2.341598, name = "     [%] ", 
                                     breaks=c(0.2135294, 0.4270588, 0.6405882, 0.8541176,1),
                                     labels = function(b) { paste0(round(b * 100, 0), "%")}))+
  #coord_trans(y = "log10", breaks=c(0.5,1,1.5,1.903738), labels = c(0.5,1,1.5,1.9))+ # attemp 1
  #coord_trans(y = "log10")+  # attemp 2
  scale_color_aaas()+
  theme_bw()+
  theme(legend.direction = "horizontal", legend.position = "bottom", legend.key = element_blank(), 
    legend.background = element_rect(fill = "white", colour = "gray30")) +
  theme(legend.position="bottom", 
    text=element_text(size=18), 
    axis.text.x = element_text(size=15),
    axis.text.y = element_text(size=15))
DAXIS

Здесь выходные данные без координат_транса

Здесь выходные данные с координат_транса

Любая помощь очень ценится