如何在ggplot2中获取y轴标签？

Question

我遇到了一个简单的问题。

我有一个简单的ggplot2，我只想提取y轴标签 这是一个可重现的代码：

                    library(ggplot2)

                    ### Create random Data ###

                    real_xdata <- seq(from=1,to=1000,by=1)
                    real_ydata <- runif(1000,0,100)

                    ### Create Dataframe for ggplot2 ###

                    ggplot_data <- data.frame(matrix(NA,
                    nrow = length(real_xdata),
                    ncol = 2))

                    ggplot_data$X1 <- real_xdata
                    ggplot_data$X2 <- real_ydata

                    ggplot_one <- ggplot(ggplot_data, aes(x = X1, y = X2)) +
                     geom_line() +  
                     theme_gray() 

                    print(ggplot_one)  

在这种情况下，我需要数字0,25,50,75,100

我试过像

这样的东西

str(ggplot_one)

或

str(ggplot_one$scales)

但不知道如何继续。

任何帮助将不胜感激！提前致谢