how to use ggplot into a function

Question

I\'m using this function to draw time series data. but I get no line

cotation <- function(x) {
    ggplot2::ggplot(subset(sample_data, lib=="x