左手侧y轴的范围从0到5000左右，右手侧从0到600。对于scale_y_continuous(sec.axis = sec_axis(~. * 0.2, name = "price"))，我想将点向上移动，但它们现在似乎在0-5000范围内，所以它们都在底部。
How to link the secondary y-axis to the correct variable in ggplot2?的这一行没有帮助。

scale_y_continuous(
    name="Price",
    sec.axis=sec_axis(trans=~ . * 0.2, 
                      name="Price")
  )

如何更改代码？谢谢

library(ggplot2)
library(tidyverse)

price.avg <- diamonds %>%
  group_by(cut, color) %>%
  summarise(price = 0.1 * mean(price), dummy = "1")

summary(price.avg)
        cut    color     price          dummy          
 Fair     :7   D:5   Min.   :259.8   Length:35         
 Good     :7   E:5   1st Qu.:358.5   Class :character  
 Very Good:7   F:5   Median :423.9   Mode  :character  
 Premium  :7   G:5   Mean   :421.4                     
 Ideal    :7   H:5   3rd Qu.:480.2                     
               I:5   Max.   :629.5                     
               J:5            

   

diamonds %>%
  ggplot() +
  geom_bar(aes(x = cut, fill = clarity)) +
  facet_wrap(~ color) +
  ylab("Count") +
  xlab("Cut") + 
  geom_point(data = price.avg, aes(x = cut, y = price, col = "")) +
  scale_y_continuous(sec.axis = sec_axis(~. * 0.2, name = "price")) + 
  scale_color_manual(name = "", label = "Average price", values = "black")